fix swiatchble-button to lose its hilite state when its hidden

svn: r13764
2009-02-21 13:30:01 +00:00 · 2009-02-21 13:30:01 +00:00 · 5c7b122118
commit 5c7b122118
parent f79d87bea5
1 changed files with 8 additions and 0 deletions
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@ -76,9 +76,17 @@
    (define/override (enable e?)
      (unless (equal? disabled? (not e?))
        (set! disabled? (not e?))
+        (set! down? #f)
+        (set! in? #f)
        (refresh)))
    (define/override (is-enabled?) (not disabled?))

+    (define/override (on-superwindow-show show?)
+      (unless show?
+        (set! in? #f)
+        (set! down? #f))
+      (super on-superwindow-show show?))
+    
    (define/override (on-event evt)
      (cond
        [(send evt button-down? 'left)