changelog: start 1.0-3

[chiark-tcl-applet.git] / applet.tcl

diff --git a/applet.tcl b/applet.tcl
index 5e300aba53bd032a5f16e402b2441ac9a6d83917..87c0a6000bb51e725f204b309ace52c94c07c258 100644 (file)
--- 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