Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22341
Modified Files: Tag: devel_0_39 desire.tk Log Message: more on hilite io stuff
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.537 retrieving revision 1.1.2.538 diff -C2 -d -r1.1.2.537 -r1.1.2.538 *** desire.tk 30 Oct 2006 12:02:49 -0000 1.1.2.537 --- desire.tk 30 Oct 2006 16:41:28 -0000 1.1.2.538 *************** *** 3009,3016 **** --- 3009,3018 ---- switch [expr $f&255] { 0 { + if {[lsearch $@selection $id] < 0 || [llength $@selection] == 0} { if {[llength $@obj_in_edit]} {$@obj_in_edit unedit; set @obj_in_edit {}} $self deselect_all $self selection+= $id set @action edit + } else {set @action edit} } 1 { *************** *** 3390,3394 **** } } ! mset {x y x1 y1} [[$self widget] bbox ${object}${type}${port}] lappend @keynav_port2 ${object}${type}${port} set _($object:ioselect) [list [lindex $ports3 $@keynav_iocount] [lindex $ports2 $@keynav_iocount]] --- 3392,3396 ---- } } ! mset {x y x1 y1} [[$self widget] bbox ${object}${type}${port}] lappend @keynav_port2 ${object}${type}${port} set _($object:ioselect) [list [lindex $ports3 $@keynav_iocount] [lindex $ports2 $@keynav_iocount]] *************** *** 3675,3678 **** --- 3677,3681 ---- def Box draw {} { $self draw_box + $self update_hilite_io # if {[$self class] == "Canvas"} {$self restack} } *************** *** 3794,3798 ****
if {$ports==0 | $port==-1} return - #set port [expr int(($x-$x1)*$ports/$xs)] if {$port >= $ports} {set port [expr $ports-1]} #set p $self$type$port --- 3797,3800 ---- *************** *** 3801,3810 **** 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} return $port } #-----------------------------------------------------------------------------------# class_new Wire {View} --- 3803,3831 ---- 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}} ! $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 switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}} if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type} return $port } + + def Box update_hilite_io {} { + if {![llength $@ioselect]} {return} + 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 [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] + 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 + } + #-----------------------------------------------------------------------------------# class_new Wire {View}