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]