suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r14818

Browse Source
This commit is contained in:
Robby Findler 2009-05-14 19:23:24 +00:00
parent 40467a005e
commit ad856384a3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/switchable-button.ss
View File

@ -56,6 +56,10 @@
[alternate-bitmap bitmap] [alternate-bitmap bitmap]
[vertical-tight? #f]) [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/override (get-label) label)
(define disable-bitmap (make-dull-mask bitmap)) (define disable-bitmap (make-dull-mask bitmap))