fix problem with switchable-button tool tip

mflatt · mflatt · commit ff580c212c15 · 2013-04-19T08:19:47.000-06:00
Closes PR 12562

Merge to v5.3.4
diff --git a/collects/mrlib/switchable-button.rkt b/collects/mrlib/switchable-button.rkt
@@ -44,11 +44,12 @@
           (send dc set-font font))))
     
     (define/override (on-event evt)
-      (show #f))
+      (send (get-top-level-window) show #f))
         
     (inherit stretchable-width stretchable-height
              min-width min-height
-             get-client-size get-dc show)
+             get-client-size get-dc
+             get-top-level-window)
     (super-new)
     (let-values ([(tw th _1 _2) (send (get-dc) get-text-extent label small-control-font)])
       (min-width (floor (inexact->exact (+ tw 4))))
