[PD-cvs] pd/src desire.tk,1.1.2.9,1.1.2.10

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
select rect wire delete worx


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -C2 -d -r1.1.2.9 -r1.1.2.10
*** desire.tk	21 Aug 2005 17:42:21 -0000	1.1.2.9
--- desire.tk	21 Aug 2005 18:57:08 -0000	1.1.2.10
***************
*** 1996,2002 ****
  	
  	if {[llength $_($self:selection)] > 0} {object_delete $canvas}
  	if {[llength $_($self:selection_wire)] > 0} {
  	
! 		$canvas delete $_($self:selection_wire)
  		set _($self:selection_wire) {}
  	
--- 1996,2010 ----
  	
  	if {[llength $_($self:selection)] > 0} {object_delete $canvas}
+ 	
  	if {[llength $_($self:selection_wire)] > 0} {
  	
! 		#$canvas delete $_($self:selection_wire)
! 		
! 		foreach wire $_($self:selection_wire) {
! 		
! 			$canvas delete $wire
! 		
! 		}
! 		
  		set _($self:selection_wire) {}