From 75d930fb9860d348c715944d557473b4e89e6529 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 26 Jan 2001 22:28:06 +0000 Subject: [PATCH] ... original commit: 7c0882ae6f966b79d255938739335562efb90b90 --- collects/framework/frame.ss | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss index faa4bf46..497e592e 100644 --- a/collects/framework/frame.ss +++ b/collects/framework/frame.ss @@ -255,16 +255,10 @@ (let ([locked-now? (send info-edit is-locked?)]) (unless (eq? locked-now? icon-currently-locked?) (set! icon-currently-locked? locked-now?) - (let ([label - (if locked-now? - (icon:get-lock-bitmap) - (icon:get-unlock-bitmap))]) - (when (object? lock-message) - (send lock-message - set-label - (if (and (object? label) (send label ok?)) - label - (if locked-now? "Locked" "Unlocked")))))))] + (when (object? lock-message) + (send lock-message + set-label + (if locked-now? "Locked" "Unlocked")))))] [else (when (send lock-message is-shown?) (send lock-message show #f))]))))])