chiark / gitweb /
raise tooltip
[chiark-tcl-applet.git] / applet.tcl
index 0aa2b94..57270a2 100644 (file)
@@ -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
 }