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