From a28ead9464b30aa7ac9d7a863b10061db21bfc7e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 10 Jan 2011 12:26:05 -0700
Subject: [PATCH] fix some switchable-button tooltip problems

---
 collects/mrlib/switchable-button.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/collects/mrlib/switchable-button.rkt b/collects/mrlib/switchable-button.rkt
index 7700c0dd47..d588749717 100644
--- a/collects/mrlib/switchable-button.rkt
+++ b/collects/mrlib/switchable-button.rkt
@@ -89,6 +89,7 @@
       (unless show?
         (set! in? #f)
         (set! down? #f)
+                (update-float #f)
         (refresh))
       (super on-superwindow-show show?))
     
@@ -105,6 +106,7 @@
          (refresh)
          (when (and in?
                     (not disabled?))
+           (update-float #f)
            (callback this))]
         [(send evt entering?)
          (set! in? #t)
@@ -145,7 +147,7 @@
            (unless (and float-window
                         (equal? new-value? (send float-window is-shown?)))
              (cond
-               [in?
+               [new-value?
                 (unless float-window
                   (set! float-window (new frame% 
                                           [label ""]
@@ -186,8 +188,8 @@
                     (<= 0 (send evt get-y) ch))])
           (unless (equal? new-in? in?)
             (set! in? new-in?)
-            (update-float in?)
-            (refresh)))))
+            (refresh))
+          (update-float new-in?))))
     
     (define/override (on-paint)
       (let ([dc (get-dc)])