From 333e0702c99c88738bf6a90f15b9ee43a8971ad4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 29 Nov 2008 21:08:18 +0000
Subject: [PATCH] handles filename extensions better now, using new stuff
 matthew added

svn: r12639
---
 collects/framework/private/scheme.ss   |  5 ++---
 collects/profj/tool.ss                 |  7 +++++++
 doc/release-notes/drscheme/HISTORY.txt | 10 ++++++++--
 3 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index f3e8c76557..30920fb9bd 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1182,7 +1182,8 @@
            (values lexeme type paren start end)))))
     
     (define/override (put-file text sup directory default-name)
-      (parameterize ([finder:default-extension "ss"])
+      (parameterize ([finder:default-extension "ss"]
+                     [finder:default-filters '(("SCM" "*.scm") ("Any" "*.*"))])
         ;; don't call the surrogate's super, since it sets the default extension
         (sup directory default-name)))
     
@@ -1224,8 +1225,6 @@
 
 (define text-mode% (text-mode-mixin color:text-mode%))
 
-
-
 (define (setup-keymap keymap)
   (let ([add-pos-function
          (λ (name call-method)
diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss
index 710fdd8970..cd96ba7833 100644
--- a/collects/profj/tool.ss
+++ b/collects/profj/tool.ss
@@ -116,6 +116,13 @@
       
       (define mode-surrogate% 
         (class color:text-mode%
+          
+          (define/override (put-file text sup directory default-name)
+            (parameterize ([finder:default-extension "java"]
+                           [finder:default-filters '(("Any" "*.*"))])
+              ;; don't call the surrogate's super, since it sets the default extension
+              (sup directory default-name)))
+          
           (define/override (on-disable-surrogate text)
             (keymap:remove-chained-keymap text java-keymap)
             (super on-disable-surrogate text))
diff --git a/doc/release-notes/drscheme/HISTORY.txt b/doc/release-notes/drscheme/HISTORY.txt
index 6421c44f94..362a7791f3 100644
--- a/doc/release-notes/drscheme/HISTORY.txt
+++ b/doc/release-notes/drscheme/HISTORY.txt
@@ -1,11 +1,17 @@
 ------------------------------
-        Version 4.3
+        Version 4.1.4
+------------------------------
+
+  . improved the way extensions are handled when saving files.
+
+------------------------------
+        Version 4.1.3
 ------------------------------
 
   . minor bug fixes
 
 ------------------------------
-        Version 4.2
+        Version 4.1.2
 ------------------------------
 
   . contract library's function contract