[PD-cvs] pd/src desire.tk,1.1.2.600.2.88,1.1.2.600.2.89

[Mathieu Bouchard]

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
  }