ulis, 2004-01-29. No, Tcl nor Tk can move your mouse or your hand. But Tk (with the help of Tcl) can move the mouse cursor on your screen. The trick is to use the -warp option of the event generate command. (This trick comes from Kroc).
A little script to illustrate this:
pack [button .b -text Ok -width 4 -command exit] bind . <Key> { set ::stop 1 } update set stop 0 set x -20; set y -10; set incrx 1; set incry 0.5 proc move {} \ { if {$::stop} { return } set ::x [expr {$::x + $::incrx}] set ::y [expr {$::y + $::incry}] if {$::x < 20} \ { event generate .b <Motion> -warp 1 -x $::x -y $::y after 100 move } \ else \ { event generate .b <ButtonPress-1> after 100 event generate .b <ButtonRelease-1> } } focus -f . raise . move
See also
Category ?