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

added lock icon in there

Browse Source 
original commit: da26c5dc9eccc9d969f0618217d0029fdd4c7765
This commit is contained in:
Robby Findler 1997-06-02 20:16:55 +00:00
parent 0b8688bde5
commit 5698736743
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/mred/edit.ss
View File

@ -623,20 +623,31 @@
[super-after-edit-sequence after-edit-sequence]
[super-on-edit-sequence on-edit-sequence]
[super-after-insert after-insert]
[super-after-delete after-delete])
[super-after-delete after-delete]
[super-lock lock])
(private
[edit-sequence-depth 0]
[needs-updating #f]
[position-needs-updating #f]
[lock-needs-updating #f]
[maybe-update-lock-icon
(lambda ()
(if (= edit-sequence-depth 0)
(send (get-frame) lock-status-changed)
(set! lock-needs-updating #t)))]
[maybe-update-position-edit
(lambda ()
(if (= edit-sequence-depth 0)
(update-position-edit)
(set! needs-updating #t)))]
(set! position-needs-updating #t)))]
[update-position-edit
(lambda ()
(send (get-frame) edit-position-changed))])
(public
[lock
(lambda (x)
(super-lock x)
(maybe-update-lock-icon))]
[after-set-position
(lambda ()
(maybe-update-position-edit)
@ -652,10 +663,13 @@
[after-edit-sequence
(lambda ()
(set! edit-sequence-depth (sub1 edit-sequence-depth))
(when (and (= 0 edit-sequence-depth)
needs-updating)
(set! needs-updating #f)
(update-position-edit))
(when (= 0 edit-sequence-depth)
(when position-needs-updating
(set! position-needs-updating #f)
(update-position-edit))
(when lock-needs-updating
(set! lock-needs-updating #f)
(send (get-frame) lock-status-changed)))
(super-after-edit-sequence))]
[on-edit-sequence
(lambda ()