Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15739
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed wire drawing code (was my fault)
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.31 retrieving revision 1.1.2.32 diff -C2 -d -r1.1.2.31 -r1.1.2.32 *** desire.tk 6 Sep 2005 03:32:00 -0000 1.1.2.31 --- desire.tk 6 Sep 2005 03:54:53 -0000 1.1.2.32 *************** *** 535,540 **** puts "d = $d" wire_update $wire_id $d; ! wire_draw2 $wire_id $canvas.c; ! } } --- 535,539 ---- puts "d = $d" wire_update $wire_id $d; ! wire_draw2 $wire_id $canvas.c } } *************** *** 2297,2302 **** def wire draw2 {canvas} { puts "wire_draw2:: $self $canvas" ! set bbox1 [$canvas bbox $@obj1o$@port1] ! set bbox2 [$canvas bbox $@obj2i$@port2] if {[llength $bbox1] < 4} {puts stderr "wire_draw2: crap ($@obj1 outlet)"; return} if {[llength $bbox2] < 4} {puts stderr "wire_draw2: crap ($@obj2 inlet)"; return} --- 2296,2301 ---- def wire draw2 {canvas} { puts "wire_draw2:: $self $canvas" ! set bbox1 [$canvas bbox [join [list "$@obj1" o "$@port1"] ""]] ! set bbox2 [$canvas bbox [join [list "$@obj2" i "$@port2"] ""]] if {[llength $bbox1] < 4} {puts stderr "wire_draw2: crap ($@obj1 outlet)"; return} if {[llength $bbox2] < 4} {puts stderr "wire_draw2: crap ($@obj2 inlet)"; return}