From e21895cca26e2fc37beada3f8aee8698e643b067 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 10 Dec 2001 22:12:07 +0000 Subject: [PATCH] . original commit: 4d943b2de4653c4de640bf4ef9d05fe9ac730946 --- collects/framework/private/frame.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index af620bd0..8de12a21 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -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))