[PD-cvs] pd/src desire.tk,1.1.2.333,1.1.2.334

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15676

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed positioning of tooltip when zooming


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.333
retrieving revision 1.1.2.334
diff -C2 -d -r1.1.2.333 -r1.1.2.334
*** desire.tk	14 Aug 2006 14:28:15 -0000	1.1.2.333
--- desire.tk	14 Aug 2006 14:33:20 -0000	1.1.2.334
***************
*** 4225,4230 ****
  	$self hide_tooltip
  	set border 4
! 	set x [expr $x+$border+4]
  	set c .$self.c
  	$c create text $x $y -text $text -anchor w -tags tooltip_fg
  	mset {x1 y1 x2 y2} [$c bbox tooltip_fg]
--- 4225,4231 ----
  	$self hide_tooltip
  	set border 4
! 	set x [expr $x+$border+4] ;# huh, why add border twice?
  	set c .$self.c
+ 	mset {x y} [lmap * [list $x $y] $@scale]
  	$c create text $x $y -text $text -anchor w -tags tooltip_fg
  	mset {x1 y1 x2 y2} [$c bbox tooltip_fg]