From ad856384a3cdceaaad6b2c8e8c6e99cb006d24e3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 14 May 2009 19:23:24 +0000 Subject: [PATCH] svn: r14818 --- collects/mrlib/switchable-button.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss index b5563438c2..85e795d9c0 100644 --- 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))