raise tooltip

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

diff --git a/applet.tcl b/applet.tcl
index 0aa2b9495a8c56c278663e3fd755830e7de54cdb..57270a245c6e4363d059df2e0485a2c0a07371cf 100644 (file)
--- a/applet.tcl
+++ b/applet.tcl
@@ -174,6 +174,7 @@ proc tooltip-show {x y} {
     incr y 9
     wm geometry .tt +$x+$y
     wm deiconify .tt
+    raise .tt
     uplevel #0 $tooltip_on_vis
 }