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

...

Browse Source 
original commit: 3b22ea1463d2f9a3ce96546da3bd79cbc0ab4622
This commit is contained in:
Robby Findler 2001-01-06 03:52:26 +00:00
parent d6a2324215
commit 1f57de0047
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/editor.ss
View File

@ -49,7 +49,8 @@
#t)
(super-can-save-file? filename format)))])
(rename [super-after-save-file after-save-file])
(rename [super-after-save-file after-save-file]
[super-after-load-file after-load-file])
(private
[last-saved-file-time #f])
(override
@ -57,7 +58,12 @@
(lambda (sucess?)
(when sucess?
(set! last-saved-file-time (file-or-directory-modify-seconds (get-filename))))
(super-after-save-file sucess?))])
(super-after-save-file sucess?))]
[after-load-file
(lambda (sucess?)
(when sucess?
(set! last-saved-file-time (file-or-directory-modify-seconds (get-filename))))
(super-after-load-file sucess?))])
(public
[save-file-out-of-date?
(lambda ()