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

svn: r13764 original commit: 5c7b1221186a05a9a257fccd6289357be89fc1e5
2009-02-21 13:30:01 +00:00 · 2009-02-21 13:30:01 +00:00 · fa1e88c03d
commit fa1e88c03d
parent 4dcb8ccdff
1 changed files with 8 additions and 0 deletions
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@ -76,8 +76,16 @@
    (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