...

original commit: 08b2d560f15bcd9afbc9a3b8d958b6297b29a9e4
1999-09-01 21:54:35 +00:00 · 1999-09-01 21:54:35 +00:00 · 189a8c49e0
commit 189a8c49e0
parent ad5e0e4195
1 changed files with 3 additions and 2 deletions
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@ -237,8 +237,9 @@
      (public
 	[save-as
 	 (opt-lambda ([format 'same])
-	   (let ([file (parameterize ([finder:dialog-parent-parameter this])
-			 (finder:put-file))])
+	   (let* ([name (send (get-editor) get-filename)]
+                  [file (parameterize ([finder:dialog-parent-parameter this])
+                          (finder:put-file name))])
 	     (when file
 	       (send (get-editor) save-file file format))))])
      (inherit get-menu-item%)