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

...

Browse Source 
original commit: 7c0882ae6f966b79d255938739335562efb90b90
This commit is contained in:
Robby Findler 2001-01-26 22:28:06 +00:00
parent a0769c4947
commit 75d930fb98
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/frame.ss
View File

@ -255,16 +255,10 @@
(let ([locked-now? (send info-edit is-locked?)]) (let ([locked-now? (send info-edit is-locked?)])
(unless (eq? locked-now? icon-currently-locked?) (unless (eq? locked-now? icon-currently-locked?)
(set! icon-currently-locked? locked-now?) (set! icon-currently-locked? locked-now?)
(let ([label (when (object? lock-message)
(if locked-now? (send lock-message
(icon:get-lock-bitmap) set-label
(icon:get-unlock-bitmap))]) (if locked-now? "Locked" "Unlocked")))))]
(when (object? lock-message)
(send lock-message
set-label
(if (and (object? label) (send label ok?))
label
(if locked-now? "Locked" "Unlocked")))))))]
[else [else
(when (send lock-message is-shown?) (when (send lock-message is-shown?)
(send lock-message show #f))]))))]) (send lock-message show #f))]))))])