Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18556
Modified Files: Tag: devel_0_39 desire.tk Log Message: wires now should also delete too
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.145 retrieving revision 1.1.2.146 diff -C2 -d -r1.1.2.145 -r1.1.2.146 *** desire.tk 22 Feb 2006 16:38:14 -0000 1.1.2.145 --- desire.tk 23 Feb 2006 16:24:31 -0000 1.1.2.146 *************** *** 1451,1455 **** puts "===== [concat [list $self]]" ! puts "==== self:$self wires:$wires" $self changed --- 1451,1455 ---- puts "===== [concat [list $self]]" ! puts "===== self:$self wires:$wires" $self changed *************** *** 1585,1589 **** foreach tag $stack { set tags [$c gettags $tag] ! if {[regexp {^([0-9]{6,8})} $tags id]} { puts "tags:: $tags" return [list "wire" $id] --- 1585,1589 ---- foreach tag $stack { set tags [$c gettags $tag] ! if {[regexp {^([0-9a-f]{6,8})} $tags id]} { puts "tags:: $tags" return [list "wire" $id] *************** *** 1885,1895 **** } if {[llength $@selection_wire] > 0} { ! $@selection_wire erase $self ! #puts "delete wires!!!" ! #set wire $@selection_wire; puts "wire: ${wire}WIRE" ! #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" ! #$c delete ${wire}WIRE ! #foreach wire $@selection_wire {$c delete $wire} ! #set @selection_wire {} } } --- 1885,1901 ---- } if {[llength $@selection_wire] > 0} { ! puts "delete this $self :: $@selection_wire" ! #puts "wires: $@wires_pair" ! ! foreach x $@selection_wire { ! set find [lsearch $@wires_pair $x] ! if { $find != -1} { ! #remove the selected wire from the @wire_pair... ! set @wires_pair [lreplace $@wires_pair $find $find] ! set @wires_pair [lreplace $@wires_pair [expr $find - 1] [expr $find - 1]] ! } ! # i don't know why wires are taged as 00000000WIRE... ! $c delete ${x}WIRE ! } } } *************** *** 2055,2068 **** }
- #def* wire erase {canvas} { - # puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" - # super - # puts "wires: $_($canvas:wires)" - # - # #$c delete ${wire}WIRE - # #foreach wire $@selection_wire {$c delete $wire} - # #set @selection_wire {} - #} - def wire update {source outlet target inlet kind} { set @source $source --- 2061,2064 ----