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 }