[PD-cvs] pd/src desire.tk,1.1.2.5,1.1.2.6

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
can delete wire


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -d -r1.1.2.5 -r1.1.2.6
*** desire.tk	18 Aug 2005 21:47:40 -0000	1.1.2.5
--- desire.tk	19 Aug 2005 07:22:05 -0000	1.1.2.6
***************
*** 52,55 ****
--- 52,56 ----
  set look(canvasbgedit) #dddddd
  set look(wirefg) #888888
+ set look(wirefg2) #777777
  #set look(sliderbg) #bbe4ff
  set look(sliderbg) #ccebff
***************
*** 538,541 ****
--- 539,543 ----
      
      set _($self:selection) {}
+     set _($self:selection_wire) {}
      set _($self:grab) ""
      
***************
*** 1502,1506 ****
      		#		}
      		#
!     		#} 
  		
  		
--- 1504,1508 ----
      		#		}
      		#
!     		#}
  		
  		
***************
*** 1515,1519 ****
  	    puts "RIGHTCLICK WIRE"
  	}
! 	pd "[canvastosym $canvas] click-on-wire $id $cx $cy $b $f;"
  	return
        }
--- 1517,1533 ----
  	    puts "RIGHTCLICK WIRE"
  	}
! 	#pd "[canvastosym $canvas] click-on-wire $id $cx $cy $b $f;"
! 	
! 	puts "click on wire"
! 	
! 	#$canvas create line $xys -tags $self -width $thick \
! 	#-arrow $arrow -arrowshape $arrowshape -fill $look(wirefg)
! 	
! 	#$canvas itemconfigure ${obj}BASE -outline $look(wirefg2)
! 	
! 	$canvas itemconfigure $id -fill $look(objectframe3)
! 	
! 	set _($self:selection_wire) $id
! 	
  	return
        }
***************
*** 1848,1853 ****
      
      	puts "delete something"
!     	object_delete $canvas
!     
      }
      
--- 1862,1875 ----
      
      	puts "delete something"
! 	
! 	puts "object selected=> [llength $_($self:selection)] => $_($self:selection)"
! 	
! 	if {[llength $_($self:selection)] > 0} {object_delete $canvas}
! 	if {[llength $_($self:selection_wire)] > 0} {
! 	
! 		$canvas delete $_($self:selection_wire)
! 		set _($self:selection_wire) {}
! 	
! 	}
      }