applet: Introduce applet::tooltip_offset

This is primarily so you can put, in ~/.config/xbatmon-simple-tray,
something like this
  set applet::tooltip_offset {-30 -30}

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

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