From e307901c1d811ffa7827a3587b2f1fa82be3d084 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 8 Jan 2007 00:14:27 +0000
Subject: [PATCH] finish fix for frame centering under Mac OS X

svn: r5251
---
 collects/mred/private/wxtop.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wxtop.ss b/collects/mred/private/wxtop.ss
index 65d9c792e4..b1363a1bf0 100644
--- a/collects/mred/private/wxtop.ss
+++ b/collects/mred/private/wxtop.ss
@@ -88,6 +88,8 @@
 
        [border-buttons null]
 
+       [parent-for-center parent]
+
        [show-ht (make-hash-table)])
       
       (override
@@ -370,7 +372,7 @@
 	[center (lambda (dir)
 		  (when pending-redraws? (force-redraw))
 		  (set! use-default-position? #f)
-		  (super center dir))]
+		  (super center dir parent-for-center))]
 	
 	;; on-size: ensures that size of frame matches size of content
 	;; input: new-width/new-height: new size of frame