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

.

Browse Source 
original commit: 4d943b2de4653c4de640bf4ef9d05fe9ac730946
This commit is contained in:
Robby Findler 2001-12-10 22:12:07 +00:00
parent 9040278b04
commit e21895cca2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/frame.ss
View File

@ -749,7 +749,10 @@
#t)) #t))
(define/override file-menu:create-revert? (lambda () #t)) (define/override file-menu:create-revert? (lambda () #t))
(define file-menu:save-callback (lambda (item control) (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)) #t))
(define file-menu:create-save? (lambda () #t)) (define file-menu:create-save? (lambda () #t))