2011年8月26日
gesture
摘要： 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 $ 阅读全文
posted @ 2011-08-26 12:15 greencolor 阅读(166) 评论(0) 推荐(0) 编辑