Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15284
Modified Files: Tag: devel_0_39 desire.tk Log Message: resize obj will update wires
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.11 retrieving revision 1.1.2.12 diff -C2 -d -r1.1.2.11 -r1.1.2.12 *** desire.tk 23 Aug 2005 03:49:29 -0000 1.1.2.11 --- desire.tk 23 Aug 2005 09:54:08 -0000 1.1.2.12 *************** *** 992,995 **** --- 992,1051 ---- [expr ($_($self:name_len)*$font(width)) + $font(padx)] \ [expr $font(height) + $font(pady)] 1 3 + + #wire_update $wire_id $_($wire_id) + #wire_draw2 $wire_id $canvas + + + for {set x 0} {$x<$_($self:inlets)} {incr x} { + + #if {[info exists]} + puts "check -> $self" + if {[info exists _($self:0:$x)]} { + + puts "wires at inlet $x to select --> $_($self:0:$x)" + #wire_update $_() + #wire_update:: l80f8ea8 81168ae 1 81168af 0 0 + + + + foreach wire_id $_($self:0:$x) { + + wire_update $wire_id $_($wire_id) + wire_draw2 $wire_id $canvas + + + #set i [lsearch $_($self:selection_wire) $wire_id] + #if {$i<0} {lappend _($self:selection_wire) $wire_id} + + } + + + } + + } + + + for {set x 0} {$x<$_($self:outlets)} {incr x} { + + if {[info exists _($self:1:$x)]} { + + puts "wires at outlet $x to update --> $_($self:1:$x)" + + foreach wire_id $_($self:1:$x) { + + wire_update $wire_id $_($wire_id) + wire_draw2 $wire_id $canvas + + + #set i [lsearch $_($self:selection_wire) $wire_id] + #if {$i<0} {lappend _($self:selection_wire) $wire_id} + + + } + + } + + } + #pdtk_text_new \ *************** *** 1002,1005 **** --- 1058,1063 ---- #puts "destroy check = [winfo exists ${canvas}.${self}text]" + + } #-----------------------------------------------------------------------------------#