simple text editor in tcl/tk