[PD-cvs] pd/src desire.tk,1.1.2.600.2.336,1.1.2.600.2.337

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix for wire_idx


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.336
retrieving revision 1.1.2.600.2.337
diff -C2 -d -r1.1.2.600.2.336 -r1.1.2.600.2.337
*** desire.tk	9 Aug 2007 20:08:46 -0000	1.1.2.600.2.336
--- desire.tk	9 Aug 2007 20:20:31 -0000	1.1.2.600.2.337
***************
*** 3842,3854 ****
  
  def Canvas wire_idx {connects} {
! 	set wire ""; set idx 0
! 	foreach x [$@wires values] {
! 		if {[string compare [join $connects] [join [$x connects]]] == 0} {
! 			set wire $x
! 			break
! 		}
! 		incr idx
  	}
! 	if {$wire != ""} {return $idx} else {return -1}
  }
  
--- 3842,3849 ----
  
  def Canvas wire_idx {connects} {
! 	foreach {idx x} [$@wires list] {
! 		if {[string compare [join $connects] [join [$x connects]]] == 0} {return $idx}
  	}
! 	return -1
  }