...

original commit: 9e483eba14072cf7dd5af448a0fd1c2c7693ab77
2001-12-20 00:27:52 +00:00 · 2001-12-20 00:27:52 +00:00 · 975cb7a047
commit 975cb7a047
parent bb608985ea
1 changed files with 14 additions and 4 deletions
--- a/collects/framework/private/finder.ss
+++ b/collects/framework/private/finder.ss
@ -743,10 +743,20 @@
 		     [filter #f]
 		     [filter-msg (string-constant file-wrong-form)]
 		     [parent-win (dialog-parent-parameter)])
-	  (let ([f (get-file
-		    prompt 
-		    parent-win
-		    directory)])
+	  (let ([f 
+                 (if (eq? (system-type) 'windows)
+                     (get-file
+                      prompt 
+                      parent-win
+                      directory
+                      #f
+                      ""
+                      null
+                      '(("Scheme (.scm)" "*.scm") ("Other" "*.*")))
+                     (get-file
+                      prompt 
+                      parent-win
+                      directory))])

 	    (if f
 		(if (or (not filter) (filter-match? filter f filter-msg))