Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8023
Modified Files: Tag: desiredata desire.tk Log Message: fixed io_bbox in case of zoom
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.85 retrieving revision 1.1.2.600.2.86 diff -C2 -d -r1.1.2.600.2.85 -r1.1.2.600.2.86 *** desire.tk 14 Dec 2006 18:59:02 -0000 1.1.2.600.2.85 --- desire.tk 14 Dec 2006 19:39:48 -0000 1.1.2.600.2.86 *************** *** 2686,2698 **** if {$@editmode && [$id canvas] == $self} { switch $type { ! inlet { ! set port [$id hilite_io i $x $y] ! set @dehighlight [list $c delete ${id}i${port}b] ! } ! outlet { ! set port [$id hilite_io o $x $y] ! set @dehighlight [list $c delete ${id}o${port}b] ! } } } } --- 2686,2695 ---- if {$@editmode && [$id canvas] == $self} { switch $type { ! inlet {set io i} ! outlet {set io o} ! default {return} } + set port [$id hilite_io $io $x $y] + set @dehighlight [list $c delete ${id}$io${port}b] } } *************** *** 4099,4103 **** set p2 $self$type$port set p $type$port ! set hilitebox [lmap * [list -3 -3 +3 +3] [$@canvas zoom]] set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}] switch $type {i {set ns $@ninlets} o {set ns $@noutlets}} --- 4096,4100 ---- set p2 $self$type$port set p $type$port ! set hilitebox [list -3 -3 +3 +3] set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}] switch $type {i {set ns $@ninlets} o {set ns $@noutlets}} *************** *** 4115,4119 **** set port ${self}${type}${n} set p $type$n ! set hilitebox [lmap * [list -3 -3 +3 +3] [$@canvas zoom]] set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}] set c [$@canvas widget] --- 4112,4116 ---- set port ${self}${type}${n} set p $type$n ! set hilitebox [list -3 -3 +3 +3] set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}] set c [$@canvas widget]