svn: r14818

original commit: ad856384a3cdceaaad6b2c8e8c6e99cb006d24e3
2009-05-14 19:23:24 +00:00 · 2009-05-14 19:23:24 +00:00 · 9702e4e3b4
commit 9702e4e3b4
parent ad59a814a3
1 changed files with 4 additions and 0 deletions
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@ -56,6 +56,10 @@
                [alternate-bitmap bitmap]
                [vertical-tight? #f])
    
+    (when (and (is-a? label bitmap%)
+               (not (send label ok?)))
+      (error 'switchable-button% "label bitmap is not ok?"))
+    
    (define/override (get-label) label)
    
    (define disable-bitmap (make-dull-mask bitmap))