RosettaCodeData/Task/Simulate-input-Keyboard/Tcl/simulate-input-keyboard-2.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}]
}