2 lines
46 B
Tcl
2 lines
46 B
Tcl
set key "x"
|
|
event generate $target <Key-$key>
|
set key "x"
|
|
event generate $target <Key-$key>
|