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

...

Browse Source 
original commit: 33f6246a478286842ddcc056ae3f6d1d3d9cc0f4
This commit is contained in:
Robby Findler 2001-12-03 18:23:14 +00:00
parent c26850a0c9
commit c059161e3e
2 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/framework/private/editor.ss
View File

@ -37,12 +37,27 @@
run-after-edit-sequence
get-top-level-window
on-close
save-file-out-of-date?))
save-file-out-of-date?
save-file/gui-error))
(define basic-mixin
(mixin (editor<%>) (basic<%>)
(inherit get-filename save-file
refresh-delayed?
(inherit get-filename save-file)
(define/public save-file/gui-error
(opt-lambda ([filename #f]
[fmt 'same]
[show-errors? #t])
(let ([result (save-file filename fmt #f)])
(unless result
(when show-errors?
(message-box
(string-constant error-saving)
(format (string-constant error-saving-file/name)
(get-filename)))))
result)))
(inherit refresh-delayed?
get-canvas
get-max-width get-admin)
@ -406,7 +421,7 @@
(let* ([orig-name (get-filename)]
[old-auto-name auto-saved-name]
[auto-name (path-utils:generate-autosave-name orig-name)]
[success (save-file auto-name 'copy)])
[success (save-file auto-name 'copy #f)])
(if success
(begin
(when old-auto-name

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

@ -702,7 +702,7 @@
[file (parameterize ([finder:dialog-parent-parameter this])
(finder:put-file name))])
(when file
(send (get-editor) save-file file format)))))
(send (get-editor) save-file/gui-error file format)))))
(inherit get-checkable-menu-item% get-menu-item%)
(override file-menu:save-callback
file-menu:create-save? file-menu:save-as-callback file-menu:create-save-as?
@ -749,7 +749,7 @@
#t))
(define/override file-menu:create-revert? (lambda () #t))
(define file-menu:save-callback (lambda (item control)
(send (get-editor) save-file)
(send (get-editor) save-file/gui-error)
#t))
(define file-menu:create-save? (lambda () #t))
@ -1321,7 +1321,6 @@
(values embedded embedded-pos)))]
[else (next-loop)])))))])))
(define searching-frame #f)
(define (set-searching-frame frame)
(set! searching-frame frame))
@ -1487,8 +1486,8 @@
[root (make-object % s-root)])
(set! super-root s-root)
root)))
(override on-activate)
(define on-activate
(define/override on-activate
(lambda (on?)
(unless hidden?
(if on?
@ -1766,7 +1765,7 @@
#t
this)
[(continue) #t]
[(save) (send edit save-file)]
[(save) (send edit save-file/gui-error)]
[else #f]))])
(and user-allowed-or-not-modified
(super-can-close?))))]