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 }