7 lines
143 B
Tcl
7 lines
143 B
Tcl
|
package require Tk
|
||
|
|
pack [text .t]
|
||
|
|
focus -force .t
|
||
|
|
foreach c [split "hello world" ""] {
|
||
|
|
event generate .t [expr {$c eq " "?"<space>": $c}]
|
||
|
|
}
|