[PD-cvs] pd/src desire.tk,1.1.2.600.2.298,1.1.2.600.2.299

[chunlee]

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
  	}