[PD-cvs] pd/src desire.tk,1.1.2.600.2.392,1.1.2.600.2.393

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed wire deletion


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.392
retrieving revision 1.1.2.600.2.393
diff -C2 -d -r1.1.2.600.2.392 -r1.1.2.600.2.393
*** desire.tk	17 Aug 2007 18:18:57 -0000	1.1.2.600.2.392
--- desire.tk	17 Aug 2007 20:58:35 -0000	1.1.2.600.2.393
***************
*** 2413,2416 ****
--- 2413,2418 ----
  def Macro append_ref {mess} {lappend @ref_list $mess}
  def Macro ref_list {} {puts "$@ref_list";return $@ref_list}
+ def Canvas ref_list {} {$::macro ref_list}
+ 
  
  def Macro notice {args} {
***************
*** 4994,4997 ****
--- 4996,5000 ----
  
  def Box wires2 {} {return $@wires2}
+ def Box wires2+= {val} {if {[lsearch $@wires2 $val] < 0} {lappend @wires2 $val}}
  
  def Box changed_wires {} {foreach wire $@wires2 {$wire changed}}
***************
*** 5174,5180 ****
  	set @from [$children get $from]
  	set   @to [$children get $to]
! 	# associate wires to its connected objects
! 	lappend _($@from:wires2) $self
! 	lappend   _($@to:wires2) $self
  }
  
--- 5177,5181 ----
  	set @from [$children get $from]
  	set   @to [$children get $to]
! 	$@from wires2+= $self; $@to wires2+= $self
  }