selectable transform
This commit is contained in:
parent
25a43be973
commit
32accf3982
|
@ -7,6 +7,7 @@ text .content
|
|||
text .output
|
||||
listbox .transform
|
||||
|
||||
.transform insert end {One line}
|
||||
.transform insert end Line/Word/Char
|
||||
|
||||
grid .transform -row 1 -column 1 -rowspan 2
|
||||
|
@ -30,4 +31,10 @@ proc wordcount {} {
|
|||
|
||||
bind .content <KeyRelease> wordcount
|
||||
|
||||
proc select_transform {} {
|
||||
puts {transform selected}
|
||||
}
|
||||
|
||||
bind .transform <Button-1> select_transform
|
||||
|
||||
update
|
||||
|
|
Loading…
Reference in a new issue