jer/texttools
1
Fork 0
Code Actions Activity

selectable transform

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

7
texttools.tcl
View file

@ -7,6 +7,7 @@ text .content
text .output text .output
listbox .transform listbox .transform
.transform insert end {One line}
.transform insert end Line/Word/Char .transform insert end Line/Word/Char
grid .transform -row 1 -column 1 -rowspan 2 grid .transform -row 1 -column 1 -rowspan 2
@ -30,4 +31,10 @@ proc wordcount {} {
bind .content <KeyRelease> wordcount bind .content <KeyRelease> wordcount
proc select_transform {} {
puts {transform selected}
}
bind .transform <Button-1> select_transform
update update