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

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

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.166 retrieving revision 1.1.2.600.2.167 diff -C2 -d -r1.1.2.600.2.166 -r1.1.2.600.2.167 *** desire.tk 12 Jan 2007 22:47:13 -0000 1.1.2.600.2.166 --- desire.tk 16 Jan 2007 12:06:28 -0000 1.1.2.600.2.167 *************** *** 923,926 **** --- 923,927 ---- def Menuable raise {} { set w [$self window] + set w $w.c raise $w focus -force $w *************** *** 1944,1948 **** mset {obj1 outlet obj2 inlet} [$wire report] $self disconnect [$wire connects] ! $wire delete set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2] --- 1945,1949 ---- mset {obj1 outlet obj2 inlet} [$wire report] $self disconnect [$wire connects] ! #$wire delete set obj1_idx [$self children_idx $obj1] set obj2_idx [$self children_idx $obj2] *************** *** 2475,2480 **** $@history add [list $self ins $i [$o deconstruct]] } else { - #foreach wire [$o wires] {$@history add [list $o ins $i [$wire deconstruct]]} - #foreach obj [$o children] {$@history add [list $o ins $i [$obj deconstruct]]} foreach wire [$o wires] { $@history add [list $self ins $i [$wire deconstruct]] --- 2476,2479 ---- *************** *** 2516,2520 **** $self disconnect [$wire connects] lappend del_wire $wire ! $wire delete } } --- 2515,2519 ---- $self disconnect [$wire connects] lappend del_wire $wire ! #$wire delete } } *************** *** 2526,2530 **** if {$find != -1 && $find2 < 0} { $self disconnect [$x connects] ! $x delete } } --- 2525,2529 ---- if {$find != -1 && $find2 < 0} { $self disconnect [$x connects] ! #$x delete } } *************** *** 3306,3310 **** } } ! $wire delete } } --- 3305,3309 ---- } } ! #$wire delete } }