pd/src desire.tk,1.1.2.333,1.1.2.334 - Pd-cvs

14 Aug 2006


      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]