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

...

Browse Source 
original commit: f66eca4fade06057362eaf817d83663d2539000e
This commit is contained in:
Robby Findler 2002-01-28 15:43:32 +00:00
parent 487e5b20a4
commit 1e57ad3a9e
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -609,6 +609,7 @@
get-editor<%> get-editor<%>
make-editor make-editor
save
save-as save-as
get-canvas get-canvas
get-editor get-editor
@ -694,15 +695,22 @@
<%> %)) <%> %))
(make-object %))) (make-object %)))
(define/public save
(opt-lambda ([format 'same])
(let* ([ed (get-editor)]
[filename (send ed get-filename)])
(if filename
(send ed save-file/gui-error filename format)
(save-as format)))))
(public save-as) (define/public save-as
(define save-as
(opt-lambda ([format 'same]) (opt-lambda ([format 'same])
(let* ([name (send (get-editor) get-filename)] (let* ([name (send (get-editor) get-filename)]
[file (parameterize ([finder:dialog-parent-parameter this]) [file (parameterize ([finder:dialog-parent-parameter this])
(finder:put-file name))]) (finder:put-file name))])
(when file (if file
(send (get-editor) save-file/gui-error file format))))) (send (get-editor) save-file/gui-error file format)
#f))))
(inherit get-checkable-menu-item% get-menu-item%) (inherit get-checkable-menu-item% get-menu-item%)
(override file-menu:save-callback (override file-menu:save-callback
file-menu:create-save? file-menu:save-as-callback file-menu:create-save-as? file-menu:create-save? file-menu:save-as-callback file-menu:create-save-as?
@ -749,10 +757,7 @@
#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)
(let ([ed (get-editor)]) (save)
(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))
@ -1811,7 +1816,7 @@
(define file<%> (interface (-editor<%>))) (define file<%> (interface (-editor<%>)))
(define file-mixin (define file-mixin
(mixin (-editor<%>) (file<%>) (mixin (-editor<%>) (file<%>)
(inherit get-editor get-filename get-label) (inherit get-editor get-filename get-label save)
(rename [super-can-close? can-close?]) (rename [super-can-close? can-close?])
(override can-close?) (override can-close?)
[define can-close? [define can-close?
@ -1828,7 +1833,7 @@
#t #t
this) this)
[(continue) #t] [(continue) #t]
[(save) (send edit save-file/gui-error)] [(save) (save)]
[else #f]))]) [else #f]))])
(and user-allowed-or-not-modified (and user-allowed-or-not-modified
(super-can-close?))))] (super-can-close?))))]