【发布时间】:2017-07-16 01:06:07
【问题描述】:
我想做同样的事情,下面这个命令:
event generate . <Motion> -warp 1 -x 0 -y 0
但对于 Tk 8.2,-warp(从 Tcl Tk 8.3 开始)
任何解决方法,想法?
【问题讨论】:
-
8.2?几十年来都没有得到支持。
我想做同样的事情,下面这个命令:
event generate . <Motion> -warp 1 -x 0 -y 0
但对于 Tk 8.2,-warp(从 Tcl Tk 8.3 开始)
任何解决方法,想法?
【问题讨论】:
是的,您应该尽快升级。但是如果你被困在 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
【讨论】: