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) {} ! ! } }