From e33559268abbe1ea674d937325d5ea6b3ba29216 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 11 Jun 2006 18:29:58 +0000
Subject: [PATCH] make open/save file dialogs have a parent

svn: r3330
---
 collects/drscheme/private/unit.ss     | 8 +++++---
 collects/framework/private/handler.ss | 2 +-
 collects/framework/private/keymap.ss  | 2 +-
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 71baca5c8d..d8b0239369 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -3161,15 +3161,17 @@ module browser threading seems wrong.
                                  (car percentages))))
             (inner (void) after-percentage-change))
           (super-new)))
-      
+
       (define drs-name-message%
         (class name-message%
           (define/override (on-choose-directory dir)
-            (let ([file (finder:get-file dir)])
+            (let ([file (parameterize ([finder:dialog-parent-parameter
+                                        (send this get-top-level-window)])
+                          (finder:get-file dir))])
               (when file
                 (handler:edit-file file))))
           (super-new)))
-      
+
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ;;
       ;; lambda-snipclass is for backwards compatibility
diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss
index 8a08aa0bae..b876f44691 100644
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@@ -380,7 +380,7 @@
 
       (define open-file
 	(λ ()
-	  (let* ([parent (and (preferences:get 'framework:open-here?)
+	  (let* ([parent (and ; (preferences:get 'framework:open-here?)
                               (get-top-level-focus-window))]
                  [file 
                   (parameterize ([finder:dialog-parent-parameter parent])
diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 77bc2420f0..33faf96dd3 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -1232,7 +1232,7 @@
 		(λ (this-edit event)
                   (let ([edit (get-outer-editor this-edit)])
                     (parameterize ([finder:dialog-parent-parameter 
-                                    (and (is-a? edit editor:basic<%>)
+                                    (and ; (is-a? edit editor:basic<%>)
                                          (send edit get-top-level-window))])
                       (let ([file (finder:put-file)])
                         (when file