[PD-cvs] pd/src desire.tk, 1.1.2.600.2.410, 1.1.2.600.2.411 poe.tcl, 1.1.2.2.2.26, 1.1.2.2.2.27

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk poe.tcl 
Log Message:
added motion_wrap filter


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.26
retrieving revision 1.1.2.2.2.27
diff -C2 -d -r1.1.2.2.2.26 -r1.1.2.2.2.27
*** poe.tcl	13 Oct 2007 00:45:08 -0000	1.1.2.2.2.26
--- poe.tcl	15 Oct 2007 15:58:13 -0000	1.1.2.2.2.27
***************
*** 43,54 ****
  		proc $name $args "upvar 1 selector ___; puts \"\[VTgreen\]CALL TO PROC $name selector=\$___ [join $argl " "]\[VTgrey\]\"; $body"
  	} else {
! 		if {![catch {time {}}]} {
! 			if {![regexp "return" $body]} {
! 				set body  "time {$body}"
! 				proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "], \[VTred\]\[lrange \[split \[$body\] \] 0 1\] \[VTgrey\]\""
! 			} {
! 				proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
! 			}
! 			
  		} {
  			proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
--- 43,49 ----
  		proc $name $args "upvar 1 selector ___; puts \"\[VTgreen\]CALL TO PROC $name selector=\$___ [join $argl " "]\[VTgrey\]\"; $body"
  	} else {
! 		if {![regexp "return" $body]} {
! 			set body  "time {$body}"
! 			proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "], \[VTred\]\[lrange \[split \[$body\] \] 0 1\] \[VTgrey\]\""
  		} {
  			proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"

Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.410
retrieving revision 1.1.2.600.2.411
diff -C2 -d -r1.1.2.600.2.410 -r1.1.2.600.2.411
*** desire.tk	11 Oct 2007 19:39:42 -0000	1.1.2.600.2.410
--- desire.tk	15 Oct 2007 15:58:11 -0000	1.1.2.600.2.411
***************
*** 1497,1500 ****
--- 1497,1501 ----
  
  def Canvas close {} {
+ 	after cancel $@motion_after_id
  	if {$@subpatch} {
  		#can't wait till @mapped get updated thru proc change
***************
*** 1728,1731 ****
--- 1729,1733 ----
      set @editmode 0
      set @show_id 0
+     set @motion_queue {}
  }
  
***************
*** 1843,1846 ****
--- 1845,1849 ----
      $self new_binds
      $self update_title
+     $self motion_update
      set @runcommand [Runcommand new .$self "command" canvas_eval]
      set @crosshair [Crosshair new $self]
***************
*** 1957,1961 ****
  def Canvas bind {eventtype selector args} {
      set c [$self widget]
!     bind $c $eventtype [concat [list $self $selector] $args \; $self statusbar_draw %x %y]
  }
  
--- 1960,1971 ----
  def Canvas bind {eventtype selector args} {
      set c [$self widget]
!     #bind $c $eventtype [concat [list $self $selector] $args \; $self statusbar_draw %x %y]
!     #bind $c $eventtype "puts \[time {[concat [list $self $selector] $args \; $self statusbar_draw %x %y]}\]"
!     #bind $c $eventtype "puts \[time {[concat [list $self $selector] $args]}\]"
! 	if {[$self look statusbar]} {
! 		bind $c $eventtype [concat [list $self $selector] $args \; $self statusbar_draw %x %y]
! 	} else {
! 		bind $c $eventtype [concat [list $self $selector] $args]
! 	}
  }
  
***************
*** 2992,2997 ****
  	set x [expr [$c canvasx $x]/$@zoom]
  	set y [expr [$c canvasy $y]/$@zoom]
! 	$self motion $x $y $f [$self identify_target $x $y $f]
  }
  def Canvas click_wrap {x y b f} {
  	set c [$self widget]
--- 3002,3017 ----
  	set x [expr [$c canvasx $x]/$@zoom]
  	set y [expr [$c canvasy $y]/$@zoom]
! 	lappend @motion_queue [list $x $y $f]
! 	#$self motion $x $y $f [$self identify_target $x $y $f]
! }
! 
! def Canvas motion_update {} {
! 	if {[llength $@motion_queue]} {
! 		mset {x y f} [lindex $@motion_queue end]; set @motion_queue {}
! 		$self motion $x $y $f [$self identify_target $x $y $f]
! 	}
! 	set @motion_after_id [after 50 "$self motion_update"]
  }
+ 
  def Canvas click_wrap {x y b f} {
  	set c [$self widget]