make open/save file dialogs have a parent

svn: r3330

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

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

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