suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r3334
This commit is contained in:
Eli Barzilay 2006-06-11 20:47:43 +00:00
parent dd8d58e050
commit bc017f488e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/handler.ss
View File

@ -380,7 +380,8 @@
(define open-file (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))] (get-top-level-focus-window))]
[file [file
(parameterize ([finder:dialog-parent-parameter parent]) (parameterize ([finder:dialog-parent-parameter parent])