Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27024
Modified Files: Tag: desiredata desire.tk Log Message: keyboard Macro part III
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.298 retrieving revision 1.1.2.600.2.299 diff -C2 -d -r1.1.2.600.2.298 -r1.1.2.600.2.299 *** desire.tk 7 Aug 2007 01:17:35 -0000 1.1.2.600.2.298 --- desire.tk 7 Aug 2007 02:55:06 -0000 1.1.2.600.2.299 *************** *** 280,284 **** if {[string compare $callback noserial]} { set replyset($serial) $callback - puts " callback :::: $callback" set message [concat [lrange $message 0 0] [list with_reply $serial] [lrange $message 1 end]] incr serial --- 280,283 ---- *************** *** 2273,2276 **** --- 2272,2278 ---- if {[regexp {^Shift_} $k]} {return} if {$event == "KeyRelease"} {return} + if {$event == "ButtonRelease"} {lappend @list [lreplace $mess 0 0 "Motion"]} + if {$event == "KeyPress"} {lappend @list [lreplace $mess 0 0 "Motion"]} + if {$event == "ButtonPress"} {lappend @list [lreplace $mess 0 0 "Motion"]} lappend @list $mess } *************** *** 2286,2289 **** --- 2288,2292 ---- ButtonPress {set name $event-$k} ButtonRelease {set name $event-$k} + Motion {set name $event} default {puts "Error: this event should not have been here.."} } *************** *** 2297,2300 **** --- 2300,2304 ---- incr @idx event generate $w <$name> -x $x -y $y + puts "playing <$name> -x $x -y $y" $self play $@delay } *************** *** 2975,2979 **** } } ! if {$f == 9} {set @action imove} else {set @action move} mset {ox oy} $@click_at } --- 2979,2983 ---- } } ! if {$f == 9} {set @action imove} else {set @action move; $self motion_move $@click_at $x $y} mset {ox oy} $@click_at }