[PD-cvs] pd/src desire.tk,1.1.2.600.2.302,1.1.2.600.2.303

chunlee chunlee at users.sourceforge.net
Tue Aug 7 09:15:06 CEST 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23986

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
small fix to the Mackerel


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.302
retrieving revision 1.1.2.600.2.303
diff -C2 -d -r1.1.2.600.2.302 -r1.1.2.600.2.303
*** desire.tk	7 Aug 2007 07:12:15 -0000	1.1.2.600.2.302
--- desire.tk	7 Aug 2007 07:15:01 -0000	1.1.2.600.2.303
***************
*** 2281,2287 ****
  	set @rect [Macro_Rect new]
  }
! def Macro state= {val} {set @state $val; if {$val} {set @list {}; puts "start recording macro..."} {puts "end..."}}
  def Macro state {} {return $@state}
! def Macro dump {} {set i 0; foreach step $@list {puts "step $i -> $step"; incr i}}
  def Macro idx= {val} {set @idx $val}
  def Macro idx {} {return $@idx}
--- 2281,2287 ----
  	set @rect [Macro_Rect new]
  }
! def Macro state= {val} {set @state $val; if {$val} {set @list {}; post %s "start recording macro..."} {post %s "end..."}}
  def Macro state {} {return $@state}
! def Macro dump {} {set i 0; foreach step $@list {post %s "step $i -> $step"; incr i}}
  def Macro idx= {val} {set @idx $val}
  def Macro idx {} {return $@idx}
***************
*** 2339,2342 ****
--- 2339,2343 ----
  	mset {event widget X Y x y mode k kval} $step
  	switch $event {
+ 		#KeyRelease {set name [modekey $k $mode]}
  		KeyPress {set name [modekey $k $mode]}
  		ButtonPress {set name $event-$k}
***************
*** 2346,2350 ****
  	}
  	if {$@idx < [llength $@list]} {
! 		after $delay [list $self run $event $name [expr $X+$@offset_x] [expr $Y+$@offset_y] \
  				  [expr $x+$@offset_x] [expr $y+$@offset_y]]
  	}
--- 2347,2351 ----
  	}
  	if {$@idx < [llength $@list]} {
! 		after $delay [list $self run $event $name $k [expr $X+$@offset_x] [expr $Y+$@offset_y] \
  				  [expr $x+$@offset_x] [expr $y+$@offset_y]]
  	}
***************
*** 2372,2379 ****
  }
  
! def Macro run {event name X Y x y} {
  	set w [focus]
  	incr @idx
  	event generate $w <$name> -x $x -y $y
  	puts "playing <$name> -x $x -y $y"
  	$self play $@delay
--- 2373,2381 ----
  }
  
! def Macro run {event name k X Y x y} {
  	set w [focus]
  	incr @idx
  	event generate $w <$name> -x $x -y $y
+ 	if {$event=="KeyPress"} {event generate $w <KeyRelease-$k> -x $x -y $y}
  	puts "playing <$name> -x $x -y $y"
  	$self play $@delay
***************
*** 8304,8308 ****
  
  def KeyboardDialog notice {origin add event} {
! 	mset {type W X Y mod K k} $event
  	if {![info exists ::keyboard_row_of($k)]} {puts "unknown key $k"; return}
  	set i $::keyboard_row_of($k)
--- 8306,8310 ----
  
  def KeyboardDialog notice {origin add event} {
! 	mset {type W X Y x y mod K k} $event
  	if {![info exists ::keyboard_row_of($k)]} {puts "unknown key $k"; return}
  	set i $::keyboard_row_of($k)





More information about the Pd-cvs mailing list