[PD-cvs] pd/src desire.tk,1.1.2.410,1.1.2.411

[chunlee]

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