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