From b586ea88f9a35db96ec2327e8d6f1d69e4091359 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 29 Nov 2008 21:08:18 +0000 Subject: [PATCH] handles filename extensions better now, using new stuff matthew added svn: r12639 original commit: 333e0702c99c88738bf6a90f15b9ee43a8971ad4 --- collects/framework/private/scheme.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index f3e8c765..30920fb9 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)