Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26056
Modified Files: Tag: desiredata desire.tk Log Message: shrunk hilite_io
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.88 retrieving revision 1.1.2.600.2.89 diff -C2 -d -r1.1.2.600.2.88 -r1.1.2.600.2.89 *** desire.tk 14 Dec 2006 20:41:15 -0000 1.1.2.600.2.88 --- desire.tk 14 Dec 2006 21:57:08 -0000 1.1.2.600.2.89 *************** *** 4093,4104 **** if {$ports==0 | $port==-1} return if {$port >= $ports} {set port [expr $ports-1]} - #set p $self$type$port - 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}} ! $self item ${p}b rectangle [l+ [$self io_bbox $type $port $ns] $hilitebox] -outline $outline -width 1 ! #$self item ${p}b rectangle [l+ [lmap / [$c coords $p2] [$@canvas zoom]] $hilitebox] -outline $outline -width 1 if {[$self look tooltip]} {$@canvas show_tooltip $x $y [$self tip $type $port] $type} return $port --- 4093,4098 ---- if {$ports==0 | $port==-1} return if {$port >= $ports} {set port [expr $ports-1]} switch $type {i {set ns $@ninlets} o {set ns $@noutlets}} ! $self hilite_io_2 $type $port $ns if {[$self look tooltip]} {$@canvas show_tooltip $x $y [$self tip $type $port] $type} return $port *************** *** 4109,4123 **** set type [lindex $@ioselect 1] set zoom [$@canvas zoom] ! set n [lindex $@ioselect 0] ! 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] switch $type { i {set ns $@ninlets} o {set ns $@noutlets} } ! $self item ${p}b rectangle [l+ [$self io_bbox $type $n $ns] $hilitebox] -outline $outline -width 1 }
--- 4103,4119 ---- set type [lindex $@ioselect 1] set zoom [$@canvas zoom] ! set port [lindex $@ioselect 0] ! set p $type$port switch $type { i {set ns $@ninlets} o {set ns $@noutlets} } ! $self hilite_io_2 $type $port $ns ! } ! ! def Box hilite_io_2 {type port ns} { ! set outline [switch $type {i {concat [$self look outletfg]} o {concat [$self look inletfg]}}] ! set box [l+ [$self io_bbox $type $port $ns] [list -3 -3 +3 +3]] ! $self item $type${port}b rectangle $box -outline $outline -width 1 }