X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=applet.tcl;h=87c0a6000bb51e725f204b309ace52c94c07c258;hb=85b45fff24fd58c2ffb85ac9466cf66628941582;hp=5e300aba53bd032a5f16e402b2441ac9a6d83917;hpb=708d94d514ccfd246944d2d2c4929947321a6ee5;p=chiark-tcl-applet.git

diff --git a/applet.tcl b/applet.tcl
index 5e300ab..87c0a60 100644
--- a/applet.tcl
+++ b/applet.tcl
@@ -82,6 +82,7 @@ proc become {} {
 
 # used by both menus and tooltips
 variable posted 0
+variable tooltip_offset {9 9}
 
 #----- menus -----
 
@@ -175,8 +176,9 @@ proc tooltip-set {s} {
 
 proc tooltip-show {x y} {
     variable tooltip_on_vis
-    incr x 9
-    incr y 9
+    variable tooltip_offset
+    incr x [lindex $tooltip_offset 0]
+    incr y [lindex $tooltip_offset 1]
     wm geometry .tt +$x+$y
     wm deiconify .tt
     raise .tt