[PD-cvs] pd/src desire.tk,1.1.2.600.2.325,1.1.2.600.2.326

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed bug related to removal of objects_reinit,wires_reinit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.325
retrieving revision 1.1.2.600.2.326
diff -C2 -d -r1.1.2.600.2.325 -r1.1.2.600.2.326
*** desire.tk	8 Aug 2007 23:45:06 -0000	1.1.2.600.2.325
--- desire.tk	9 Aug 2007 00:05:48 -0000	1.1.2.600.2.326
***************
*** 4795,4798 ****
--- 4795,4800 ----
  }
  
+ def Box delete {} {if {$@canvas != ""} {[$@canvas objects] unset $@index}; super}
+ 
  def Box remove_braces {str} {
  	# this hack is to remove the "\" in the text
***************
*** 5122,5125 ****
--- 5124,5128 ----
  	$@from delete_wire $self
  	$@to   delete_wire $self
+ 	[$@canvas objects] remove $@index
  	super
  }