fix problem with switchable-button tool tip

Closes PR 12562

Merge to v5.3.4

original commit: ff580c212c150e91822c2cdeb8be0f86caa366bf

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))))