when the package installer has a parent, don't

recenter the dialog (should this be mac os x specific?)
2013-05-25 21:21:56 -05:00 · 2013-05-25 21:21:56 -05:00 · 6e7c6f2f45
commit 6e7c6f2f45
parent 3474d09138
1 changed files with 1 additions and 1 deletions
--- a/collects/pkg/gui/main.rkt
+++ b/collects/pkg/gui/main.rkt
@ -64,7 +64,7 @@
               #:close-button? #f
               (λ (cust parent) (wrap-terminal-action thunk))))
    (send dlg reflow-container)
-    (unless terminal (send dlg center))
+    (unless parent (unless terminal (send dlg center)))
    (set! terminal t)
    (disallow-close)
    (send dlg end-container-sequence)