finish fix for frame centering under Mac OS X

svn: r5251
2007-01-08 00:14:27 +00:00 · 2007-01-08 00:14:27 +00:00 · e307901c1d
commit e307901c1d
parent e4eb97cff6
1 changed files with 3 additions and 1 deletions
--- 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