.
original commit: 4d943b2de4653c4de640bf4ef9d05fe9ac730946
This commit is contained in:
parent
9040278b04
commit
e21895cca2
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user