diff --git a/texttools.tcl b/texttools.tcl index a2cd89f..9881b63 100755 --- a/texttools.tcl +++ b/texttools.tcl @@ -5,6 +5,14 @@ wm title . "Text Tools" text .content text .output +listbox .transform + +.transform insert end Line/Word/Char + +grid .transform -row 1 -column 1 -rowspan 2 +grid .content -row 1 -column 2 +grid .output -row 2 -column 2 + focus .content proc wordcount {} { @@ -22,7 +30,4 @@ proc wordcount {} { bind .content wordcount -grid .content -row 1 -grid .output -row 2 - update