original commit: 4d943b2de4653c4de640bf4ef9d05fe9ac730946
This commit is contained in:
Robby Findler 2001-12-10 22:12:07 +00:00
parent 9040278b04
commit e21895cca2

View File

@ -749,7 +749,10 @@
#t))
(define/override file-menu:create-revert? (lambda () #t))
(define file-menu:save-callback (lambda (item control)
(send (get-editor) save-file/gui-error)
(let ([ed (get-editor)])
(if (send ed get-filename)
(send ed save-file/gui-error)
(save-as)))
#t))
(define file-menu:create-save? (lambda () #t))