Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14941
Modified Files: Tag: devel_0_39 desire.tk Log Message: small fix to update the wires that should be dead
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.410 retrieving revision 1.1.2.411 diff -C2 -d -r1.1.2.410 -r1.1.2.411 *** desire.tk 26 Aug 2006 17:16:20 -0000 1.1.2.410 --- desire.tk 26 Aug 2006 18:40:03 -0000 1.1.2.411 *************** *** 1926,1930 **** incr i } ! set dead [lwithout $@wires $wires]; foreach x $dead {$x unsubscribe $self; $x erase} set @wires $wires $self changed --- 1926,1935 ---- incr i } ! set dead [lwithout $@wires $wires]; foreach x $dead { ! $x delete ! set find [lsearch $@wires_pair $x] ! set @wires_pair [lreplace $@wires_pair [expr $find -1] $find] ! $x unsubscribe $self; $x erase ! } set @wires $wires $self changed