jer/texttools
1
Fork 0
Code Actions Activity

now with a listbox

Browse source
This commit is contained in:
Jan-Erik Rediger 2024-10-29 20:27:01 +01:00
parent d7fc0dd64a
commit 25a43be973
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
texttools.tcl
View file

@ -5,6 +5,14 @@ wm title . "Text Tools"
text .content text .content
text .output 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 focus .content
proc wordcount {} { proc wordcount {} {
@ -22,7 +30,4 @@ proc wordcount {} {
bind .content <KeyRelease> wordcount bind .content <KeyRelease> wordcount
grid .content -row 1
grid .output -row 2
update update