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