[PD-cvs] pd/src desire.tk,1.1.2.600.2.85,1.1.2.600.2.86

[Mathieu Bouchard]

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]