handles filename extensions better now, using new stuff matthew added

svn: r12639

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)

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))

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