From bc017f488e504fe26f1f438b1a601f626f385e63 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 11 Jun 2006 20:47:43 +0000 Subject: [PATCH] make open dialogs on osx have no parent (unless the open-here? preference is set) svn: r3334 --- collects/framework/private/handler.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss index b876f44691..93f5b81174 100644 --- 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])