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

...

Browse Source 
original commit: 6708949ac26767e1a5d5d1862ed03eba3ad80490
This commit is contained in:
Robby Findler 2000-01-10 18:00:40 +00:00
parent 8fcf4a52b1
commit 576c81acae
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/framework/text.ss
View File

@ -438,10 +438,10 @@
(loop (send s next))]
[else #f])))])
(lambda (name format)
(when (and (or (eq? format 'same) (eq? format 'copy))
(eq? (get-file-format) 'standard))
(let ([all-strings? (all-string-snips)])
(cond
[(and (all-string-snips)
[(and all-strings?
(or (eq? format 'same) (eq? format 'copy))
(eq? 'standard (get-file-format))
(or (not (preferences:get 'framework:verify-change-format))
(gui-utils:get-choice "Save this file as plain text?" "No" "Yes")))
@ -451,6 +451,17 @@
(set! restore-file-format void)
(set-file-format ff))))
(set-file-format 'text)]
[(and (not all-strings?)
(or (eq? format 'same) (eq? format 'copy))
(eq? 'text (get-file-format))
(or (not (preferences:get 'framework:verify-change-format))
(gui-utils:get-choice "Save this file in drscheme-specific non-text format?" "No" "Yes")))
(set! restore-file-format
(let ([ff (get-file-format)])
(lambda ()
(set! restore-file-format void)
(set-file-format ff))))
(set-file-format 'standard)]
[else (void)]))
(super-on-save-file name format)))])
(sequence