事件生成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