[PD-cvs] pd/src desire.tk,1.1.2.145,1.1.2.146

[chunlee]

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 ----