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

...

Browse Source 
original commit: 81997b6b2455372038eee5f96d89e2411e78b3c4
This commit is contained in:
Robby Findler 1999-01-12 22:01:40 +00:00
parent 41df19a6bb
commit 94d9a03bc2
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/framework/frame.ss
View File

@ -770,11 +770,12 @@
(if locked-now? (if locked-now?
(icon:get-lock-bitmap) (icon:get-lock-bitmap)
(icon:get-unlock-bitmap))]) (icon:get-unlock-bitmap))])
(send lock-message (when (object? lock-message)
set-label (send lock-message
(if (send label ok?) set-label
label (if (send label ok?)
(if locked-now? "Locked" "Unlocked"))))))))))]) label
(if locked-now? "Locked" "Unlocked")))))))))))])
(public (public
[update-info [update-info
(lambda () (lambda ()
@ -927,9 +928,10 @@
(when info-edit (when info-edit
(let ([anchor-now? (send info-edit get-anchor)]) (let ([anchor-now? (send info-edit get-anchor)])
(unless (eq? anchor-now? last-state?) (unless (eq? anchor-now? last-state?)
(send anchor-message (when (object? anchor-message)
show (send anchor-message
anchor-now?) show
anchor-now?))
(set! last-state? anchor-now?)))))))] (set! last-state? anchor-now?)))))))]
[editor-position-changed [editor-position-changed
(lambda () (lambda ()
@ -943,9 +945,10 @@
(when info-edit (when info-edit
(let ([overwrite-now? (send info-edit get-overwrite-mode)]) (let ([overwrite-now? (send info-edit get-overwrite-mode)])
(unless (eq? overwrite-now? last-state?) (unless (eq? overwrite-now? last-state?)
(send overwrite-message (when (object? overwrite-message)
show (send overwrite-message
overwrite-now?) show
overwrite-now?))
(set! last-state? overwrite-now?)))))))]) (set! last-state? overwrite-now?)))))))])
(rename [super-update-info update-info]) (rename [super-update-info update-info])
(override (override