Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14003
Modified Files: Tag: devel_0_39 desire.tk Log Message: small commit in removing lreverse in identify_target
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.442 retrieving revision 1.1.2.443 diff -C2 -d -r1.1.2.442 -r1.1.2.443 *** desire.tk 31 Aug 2006 21:17:09 -0000 1.1.2.442 --- desire.tk 1 Sep 2006 02:04:20 -0000 1.1.2.443 *************** *** 2051,2055 **** set cx [expr $x*$@zoom] set cy [expr $y*$@zoom] ! set stack [lreverse [$c find overlapping [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]]] foreach tag $stack { set tags [$c gettags $tag] --- 2051,2058 ---- set cx [expr $x*$@zoom] set cy [expr $y*$@zoom] ! #doesn't do anything yet ! #if {$@action != "none"} {set range 2} else {set range 2} ! #set stack [lreverse [$c find overlapping [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]]] ! set stack [$c find overlapping [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]] foreach tag $stack { set tags [$c gettags $tag]