事件产生TCL/TK 8.2

Question

我想作同样的事情，这个命令如下：

event generate . <Motion> -warp 1 -x 0 -y 0 

但对于Tk的8.2，-warp

任何解决方法（从Tcl的Tk的8.3开始）想法？

Answer 1

是的，你应该尽快升级。但是如果你被困在Tk 8.2，在Windows上，你可以下载twapi（Tcl Windows API）。确保你获得兼容版本或Tk8.2。然后做：

package require twapi 

# Move mouse cursor to absolute coordinates 0 0 
twapi::move_mouse 0 0 

# Move mouse 15 pixels right and 3 pixels up relative to current location: 
twapi::move_mouse 15 -3 -relative