selectable transform
This commit is contained in:
parent
25a43be973
commit
32accf3982
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue