6 lines
143 B
Tcl
6 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}]
|
|
}
|