RosettaCodeData/Task/Simulate-input-Keyboard/Tcl/simulate-input-keyboard-1.tcl

3 lines
46 B
Tcl

set key "x"
event generate $target <Key-$key>