avoiding flashing from unecessary update of disabled buttons

svn: r9891
2008-05-19 14:03:21 +00:00 · 2008-05-19 14:03:21 +00:00 · 721a846cef
commit 721a846cef
parent f1390fa699
1 changed files with 4 additions and 2 deletions
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@ -93,11 +93,13 @@
        [(send evt entering?)
         (set! in? #t)
         (update-float #t)
-         (refresh)]
+         (unless disabled?
+           (refresh))]
        [(send evt leaving?)
         (set! in? #f)
         (update-float #f)
-         (refresh)]
+         (unless disabled?
+           (refresh))]
        [(send evt moving?)
         (update-in evt)]))