[PD-cvs] pd/src desire.tk,1.1.2.442,1.1.2.443

[chunlee]

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]