摘要： proc gesture_init {w} { bind $w <1> "gesture_start $w %x %y" bind $w <B1-Motion> "gesture_move $w %x %y" bind $w <ButtonRelease-1> "gesture_end $w"}proc gesture_start {w x y} { global $w.GestureX $w.GestureY $w.Dirs set $w.GestureX $x set $w.GestureY $ 阅读全文