From efa9c791100634c352ba5919659c9bc6ae87a65a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 7 Jan 2002 21:49:03 +0000
Subject: [PATCH] ...

original commit: 8c1c8dd9e38ccb85395f565ce58a993689a1bc25
---
 collects/framework/private/finder.ss | 2 +-
 collects/framework/private/sig.ss    | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss
index 4fb0395b..cba42505 100644
--- a/collects/framework/private/finder.ss
+++ b/collects/framework/private/finder.ss
@@ -45,7 +45,7 @@
 	  (let-values ([(base _1 _2) (split-path dir)])
 	    (or base dir))))
 
-      (define default-filters (make-parameter '(("Scheme (.scm)" "*.scm") ("Other" "*.*"))))
+      (define default-filters (make-parameter '(("Any" "*.*"))))
       (define default-extension (make-parameter ""))
 
       ; the finder-dialog% class controls the user interface for dialogs
diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.ss
index a6a15d87..6da7afd1 100644
--- a/collects/framework/private/sig.ss
+++ b/collects/framework/private/sig.ss
@@ -103,6 +103,7 @@
   (define-signature framework:finder^
     (dialog-parent-parameter
      default-extension
+     default-filters
      common-put-file 
      common-get-file 
      std-put-file