From 199043950c406d860fbc1092edc6c93af390abf6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 8 Sep 2007 23:50:30 +0000
Subject: [PATCH] fix Mac OS X centering wrt dialog

svn: r7301
---
 src/wxmac/src/base/wb_frame.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/wxmac/src/base/wb_frame.cc b/src/wxmac/src/base/wb_frame.cc
index 5b48c66421..b2223317c3 100644
--- a/src/wxmac/src/base/wb_frame.cc
+++ b/src/wxmac/src/base/wb_frame.cc
@@ -137,6 +137,9 @@ void wxbFrame::Centre(int direction, wxWindow *parent)
 {
   int display_width, display_height, width, height, x, y, offset_x, offset_y;
 
+  if (parent && wxSubType(parent->__type, wxTYPE_DIALOG_BOX))
+    parent = parent->GetParent();
+
   if (parent) {
     parent->GetSize(&display_width, &display_height);
     parent->GetPosition(&offset_x, &offset_y);