Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30865
Modified Files: Tag: devel_0_39 desire.tk Log Message: oops
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.75 retrieving revision 1.1.2.76 diff -C2 -d -r1.1.2.75 -r1.1.2.76 *** desire.tk 23 Sep 2005 12:05:33 -0000 1.1.2.75 --- desire.tk 23 Sep 2005 12:12:27 -0000 1.1.2.76 *************** *** 1259,1263 **** set @cx [expr $@cx+$dx] set @cy [expr $@cy+$dy] ! #.x$@canvas.c move $self $dx $dy $self draw $_($self:canvas) for {set x 0} {$x<$@ninlets} {incr x} { --- 1259,1263 ---- set @cx [expr $@cx+$dx] set @cy [expr $@cy+$dy] ! #.x$@canvas.c move $self $dx $dy; return $self draw $_($self:canvas) for {set x 0} {$x<$@ninlets} {incr x} { *************** *** 1281,1288 **** set port [expr int(($x-$@cx)*$ports/$@xs)] set port [expr int(($x-$@cx)*$ports/$@xs)] ! set p ${self}${type}${port}b #if {![llength $@wire_from]} {} ! set outline [switch $type {i {list $look(outletfg)} o {list $look(inletfg)}] ! $c create rectangle [l+ [$c coords ${self}i${port}] {-4 -4 +4 +4}] -outline $outline -width 1 -tags $p return $port
--- 1281,1288 ---- set port [expr int(($x-$@cx)*$ports/$@xs)] set port [expr int(($x-$@cx)*$ports/$@xs)] ! set p ${self}${type}${port} #if {![llength $@wire_from]} {} ! set outline [switch $type {i {list $look(outletfg)} o {list $look(inletfg)}}] ! $c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b return $port