Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8413
Modified Files: Tag: devel_0_39 desire.tk Log Message: Box hilite_io also uses View item now
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.533 retrieving revision 1.1.2.534 diff -C2 -d -r1.1.2.533 -r1.1.2.534 *** desire.tk 29 Oct 2006 19:52:51 -0000 1.1.2.533 --- desire.tk 29 Oct 2006 20:31:33 -0000 1.1.2.534 *************** *** 1041,1045 **** lappend tags [list $self] if {![llength [$c gettags $ss]]} { - #puts " c --> $c" eval [concat [list $c create $type $coords -tags $tags] $args] } { --- 1041,1044 ---- *************** *** 3775,3782 **** #set port [expr int(($x-$x1)*$ports/$xs)] if {$port >= $ports} {set port [expr $ports-1]} ! set p $self$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]}}] ! $c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}} if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type} --- 3774,3784 ---- #set port [expr int(($x-$x1)*$ports/$xs)] if {$port >= $ports} {set port [expr $ports-1]} ! #set p $self$type$port ! 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]}}] ! #$c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b ! $self item ${p}b rectangle [l+ [$c coords $p2] $hilitebox] -outline $outline -width 1 switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}} if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type}