make open dialogs on osx have no parent (unless the open-here? preference is set)

svn: r3334
2006-06-11 20:47:43 +00:00 · 2006-06-11 20:47:43 +00:00 · bc017f488e
commit bc017f488e
parent dd8d58e050
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@ -380,7 +380,8 @@

      (define open-file
 	(λ ()
-	  (let* ([parent (and ; (preferences:get 'framework:open-here?)
+	  (let* ([parent (and (or (not (eq? 'macosx (system-type)))
+                                  (preferences:get 'framework:open-here?))
                              (get-top-level-focus-window))]
                 [file 
                  (parameterize ([finder:dialog-parent-parameter parent])