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

*** empty log message ***

Browse Source 
original commit: 38074a9af3f564b2a4f094212b455aac2b63269a
This commit is contained in:
Robby Findler 1996-07-25 16:49:28 +00:00
parent 6f769498bb
commit e595b66a9a
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/edit.ss
View File

@ -21,12 +21,24 @@
[super-set-filename set-filename]
[super-set-modified set-modified]
[super-on-change on-change]
[super-on-save-file on-save-file])
[super-on-save-file on-save-file]
[super-on-focus on-focus]
[super-lock lock])
(private
[auto-saved-name #f]
[auto-save-out-of-date? #t]
[auto-save-error? #f])
(public
[locked? #f]
[lock
(lambda (v)
(set! locked? v)
(super-lock v))]
[on-focus
(lambda (in?)
'(send (ivar (get-frame) save-icon) show (and in? (modified?)))
'(send (ivar (get-frame) lock-icon) show (and in? locked?))
(super-on-focus in?))]
[get-file (lambda (d) (let ([v (mred:finder:get-file d)])
(if v
v