]> git.saurik.com Git - wxWidgets.git/blobdiff - src/os2/dialog.cpp
merged MapBitmap() from 2.2 branch
[wxWidgets.git] / src / os2 / dialog.cpp
index 874a9c90a2a3b08bacaaea676fb343dddb551550..a0b3fa7c7be5b2f598c37a665fb84567b0650b02 100644 (file)
@@ -28,6 +28,9 @@
 #define wxDIALOG_DEFAULT_X 300
 #define wxDIALOG_DEFAULT_Y 300
 
 #define wxDIALOG_DEFAULT_X 300
 #define wxDIALOG_DEFAULT_Y 300
 
+#define wxDIALOG_DEFAULT_WIDTH 500
+#define wxDIALOG_DEFAULT_HEIGHT 500
+
 // Lists to keep track of windows, so we can disable/enable them
 // for modal dialogs
 wxWindowList wxModalDialogs;
 // Lists to keep track of windows, so we can disable/enable them
 // for modal dialogs
 wxWindowList wxModalDialogs;
@@ -46,334 +49,423 @@ extern wxList WXDLLEXPORT wxPendingDelete;
       EVT_CLOSE(wxDialog::OnCloseWindow)
    END_EVENT_TABLE()
 
       EVT_CLOSE(wxDialog::OnCloseWindow)
    END_EVENT_TABLE()
 
-wxDialog::wxDialog()
+void wxDialog::Init()
 {
 {
+    m_pOldFocus = (wxWindow *)NULL;
     m_isShown = FALSE;
     m_isShown = FALSE;
-    m_modalShowing = FALSE;
-
+    m_pWindowDisabler = (wxWindowDisabler *)NULL;
     SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
     SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
-}
-
-bool wxDialog::Create(wxWindow *parent, wxWindowID id,
-           const wxString& title,
-           const wxPoint& pos,
-           const wxSize& size,
-           long style,
-           const wxString& name)
+} // end of wxDialog::Init
+
+bool wxDialog::Create(
+  wxWindow*                         pParent
+, wxWindowID                        vId
+, const wxString&                   rsTitle
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, long                              lStyle
+, const wxString&                   rsName
+)
 {
 {
-#if wxUSE_TOOLTIPS
-    m_hwndToolTip = 0;
-#endif
-
-    SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
-    SetName(name);
-
-    if (!parent)
-        wxTopLevelWindows.Append(this);
-
-    if (parent) parent->AddChild(this);
-
-    if ( id == -1 )
-        m_windowId = (int)NewControlId();
+    long                            lX = rPos.x;
+    long                            lY = rPos.y;
+    long                            lWidth = rSize.x;
+    long                            lHeight = rSize.y;
+    const char*                     zDlg;
+    WXDWORD                         dwExtendedStyle = 0L;
+    HWND                            hWnd;
+
+    Init();
+    m_pOldFocus = (wxWindow*)FindFocus();
+    SetName(rsName);
+    wxTopLevelWindows.Append(this);
+    if (pParent)
+        pParent->AddChild(this);
+    if (vId == -1)
+        m_windowId = NewControlId();
     else
     else
-        m_windowId = id;
-
-    int x = pos.x;
-    int y = pos.y;
-    int width = size.x;
-    int height = size.y;
-
-    if (x < 0) x = wxDIALOG_DEFAULT_X;
-    if (y < 0) y = wxDIALOG_DEFAULT_Y;
-
-    m_windowStyle = style;
-
-    m_isShown = FALSE;
-    m_modalShowing = FALSE;
-
-    if (width < 0)
-        width = 500;
-    if (height < 0)
-        height = 500;
-
-    // TODO: convert below to OS/2 PM code
-
+        m_windowId = vId;
+    if (lX < 0)
+        lX = wxDIALOG_DEFAULT_X;
+    if (lY < 0)
+        lY = wxDIALOG_DEFAULT_Y;
+    m_windowStyle = lStyle;
+    if (lWidth < 0)
+        lWidth = wxDIALOG_DEFAULT_WIDTH;
+    if (lHeight < 0)
+        lHeight = wxDIALOG_DEFAULT_HEIGHT;
+
+    //
     // All dialogs should really have this style
     // All dialogs should really have this style
-//    m_windowStyle |= wxTAB_TRAVERSAL;
-//
-//    WXDWORD extendedStyle = MakeExtendedStyle(m_windowStyle);
-//    if (m_windowStyle & wxSTAY_ON_TOP)
-//        extendedStyle |= WS_EX_TOPMOST;
-//
+    //
+    m_windowStyle |= wxTAB_TRAVERSAL;
+
+    //
     // Allows creation of dialogs with & without captions under MSWindows,
     // resizeable or not (but a resizeable dialog always has caption -
     // otherwise it would look too strange)
     // Allows creation of dialogs with & without captions under MSWindows,
     // resizeable or not (but a resizeable dialog always has caption -
     // otherwise it would look too strange)
-//    const wxChar *dlg;
-//    if ( style & wxRESIZE_BORDER )
-//        dlg = wxT("wxResizeableDialog");
-//    else if ( style & wxCAPTION )
-//        dlg = wxT("wxCaptionDialog");
-//    else
-//        dlg = wxT("wxNoCaptionDialog");
-//    MSWCreate(m_windowId, parent, NULL, this, NULL,
-//              x, y, width, height,
-//              0, // style is not used if we have dlg template
-//              dlg,
-//              extendedStyle);
-//
-//    HWND hwnd = (HWND)GetHWND();
-//
-//    if ( !hwnd )
-//    {
-//        wxLogError(wxT("Failed to create dialog."));
-//
-//        return FALSE;
-//    }
-//
-//    SubclassWin(GetHWND());
-//
-//    SetWindowText(hwnd, title);
-//    SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
-//
+    //
+    if (lStyle & wxRESIZE_BORDER )
+        zDlg = "wxResizeableDialog";
+    else if (lStyle & wxCAPTION )
+        zDlg = "wxCaptionDialog";
+    else
+        zDlg = "wxNoCaptionDialog";
+    OS2Create( GetWinHwnd(pParent)
+              ,NULL
+              ,rsTitle.c_str()
+              ,0L
+              ,lX
+              ,lY
+              ,lWidth
+              ,lHeight
+              ,GetWinHwnd(pParent)
+              ,HWND_TOP
+              ,(long)m_windowId
+              ,NULL
+              ,NULL
+             );
+    hWnd = (HWND)GetHWND();
+    if (!hWnd)
+    {
+        return FALSE;
+    }
+    SubclassWin(GetHWND());
+    ::WinSetWindowText( hWnd
+                       ,(PSZ)rsTitle.c_str()
+                      );
+    SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
     return TRUE;
     return TRUE;
-}
+} // end of wxDialog::Create
 
 
-void wxDialog::SetModal(bool flag)
+void wxDialog::SetModal(
+  bool                              bFlag
+)
 {
 {
-    if ( flag )
+    if (bFlag)
         m_windowStyle |= wxDIALOG_MODAL ;
     else if ( m_windowStyle & wxDIALOG_MODAL )
         m_windowStyle -= wxDIALOG_MODAL ;
 
       wxModelessWindows.DeleteObject(this);
         m_windowStyle |= wxDIALOG_MODAL ;
     else if ( m_windowStyle & wxDIALOG_MODAL )
         m_windowStyle -= wxDIALOG_MODAL ;
 
       wxModelessWindows.DeleteObject(this);
-      if (!flag)
+      if (!bFlag)
           wxModelessWindows.Append(this);
           wxModelessWindows.Append(this);
-}
+} // end of wxDialog::SetModal
 
 wxDialog::~wxDialog()
 {
     m_isBeingDeleted = TRUE;
 
 wxDialog::~wxDialog()
 {
     m_isBeingDeleted = TRUE;
-
     wxTopLevelWindows.DeleteObject(this);
     wxTopLevelWindows.DeleteObject(this);
-
     Show(FALSE);
     Show(FALSE);
-
-    if (m_modalShowing)
-    {
-        if (GetParent() && GetParent()->GetHWND())
-           // TODO: bring the parent to the top
-           return;
-    }
-
-    m_modalShowing = FALSE;
-    if ( (GetWindowStyleFlag() & wxDIALOG_MODAL) != wxDIALOG_MODAL )
+    if (!IsModal)
         wxModelessWindows.DeleteObject(this);
 
         wxModelessWindows.DeleteObject(this);
 
-
+    //
     // If this is the last top-level window, exit.
     // If this is the last top-level window, exit.
+    //
     if (wxTheApp && (wxTopLevelWindows.Number() == 0))
     {
     if (wxTheApp && (wxTopLevelWindows.Number() == 0))
     {
-      wxTheApp->SetTopWindow(NULL);
+        wxTheApp->SetTopWindow(NULL);
 
 
-      if (wxTheApp->GetExitOnFrameDelete())
-      {
-         // TODO: exit
-      }
+        if (wxTheApp->GetExitOnFrameDelete())
+        {
+            ::WinPostMsg(GetHwnd(), WM_QUIT, 0, 0);
+        }
     }
     }
-}
+} // end of wxDialog::~wxDialog
 
 
+//
 // By default, pressing escape cancels the dialog
 // By default, pressing escape cancels the dialog
-void wxDialog::OnCharHook(wxKeyEvent& event)
+//
+void wxDialog::OnCharHook(
+  wxKeyEvent&                       rEvent
+)
 {
     if (GetHWND())
     {
 {
     if (GetHWND())
     {
-        if (event.m_keyCode == WXK_ESCAPE)
+        if (rEvent.m_keyCode == WXK_ESCAPE)
         {
         {
+            //
             // Behaviour changed in 2.0: we'll send a Cancel message
             // to the dialog instead of Close.
             // Behaviour changed in 2.0: we'll send a Cancel message
             // to the dialog instead of Close.
-            wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
-            cancelEvent.SetEventObject( this );
-            GetEventHandler()->ProcessEvent(cancelEvent);
-
+            //
+            wxCommandEvent          vCancelEvent( wxEVT_COMMAND_BUTTON_CLICKED
+                                                 ,wxID_CANCEL
+                                                );
+
+            vCancelEvent.SetEventObject( this );
+            GetEventHandler()->ProcessEvent(vCancelEvent);
+
+            //
+            // Ensure that there is another message for this window so the
+            // ShowModal loop will exit and won't get stuck in GetMessage().
+            //
+            ::WinPostMsg(GetHwnd(), WM_NULL, 0, 0);
             return;
         }
     }
     // We didn't process this event.
             return;
         }
     }
     // We didn't process this event.
-    event.Skip();
+    rEvent.Skip();
 }
 
 }
 
-void wxDialog::OnPaint(wxPaintEvent& event)
+void wxDialog::Iconize(
+  bool                              WXUNUSED(bIconize)
+)
 {
 {
-  // No: if you call the default procedure, it makes
-  // the following painting code not work.
-//  wxWindow::OnPaint(event);
-}
-
-void wxDialog::Fit()
-{
-    wxWindow::Fit();
-}
-
-void wxDialog::Iconize(bool WXUNUSED(iconize))
-{
-    // Windows dialog boxes can't be iconized
-}
+} // end of wxDialog::Iconize
 
 bool wxDialog::IsIconized() const
 {
     return FALSE;
 
 bool wxDialog::IsIconized() const
 {
     return FALSE;
-}
+} // end of wxDialog::IsIconized
 
 
-void wxDialog::DoSetClientSize(int width, int height)
+void wxDialog::DoSetClientSize(
+  int                               nWidth
+, int                               nHeight
+)
 {
 {
-    // TODO: Convert the below to OS/2 PM code
-
-//    HWND hWnd = (HWND) GetHWND();
-//    RECT rect;
-//    ::GetClientRect(hWnd, &rect);
-//
-//    RECT rect2;
-//    GetWindowRect(hWnd, &rect2);
-//
-    // Find the difference between the entire window (title bar and all)
-    // and the client area; add this to the new client size to move the
-    // window
-//    int actual_width = rect2.right - rect2.left - rect.right + width;
-//    int actual_height = rect2.bottom - rect2.top - rect.bottom + height;
-
-//    MoveWindow(hWnd, rect2.left, rect2.top, actual_width, actual_height, TRUE);
-//
-//    wxSizeEvent event(wxSize(actual_width, actual_height), m_windowId);
-//    event.SetEventObject( this );
-//    GetEventHandler()->ProcessEvent(event);
-}
-void wxDialog::GetPosition(int *x, int *y) const
+    HWND                            hWnd = (HWND) GetHWND();
+    RECTL                           vRect;
+    RECTL                           vRect2;
+
+    ::WinQueryWindowRect(hWnd, &vRect);
+    ::WinQueryWindowRect(hWnd, &vRect2);
+
+    LONG                            lActualWidth = vRect2.xRight - vRect2.xLeft - vRect.xRight + nWidth;
+    LONG                            lActualHeight = vRect2.yTop + vRect2.yTop - vRect.yTop + nHeight;
+
+    ::WinSetWindowPos( GetHwnd()
+                      ,HWND_TOP
+                      ,(LONG)vRect2.xLeft
+                      ,(LONG)vRect2.yTop
+                      ,(LONG)lActualWidth
+                      ,(LONG)lActualHeight
+                      ,SWP_SIZE | SWP_MOVE
+                     );
+
+    wxSizeEvent                     vEvent( wxSize( lActualWidth
+                                                   ,lActualHeight
+                                                  )
+                                           ,m_windowId
+                                          );
+
+    vEvent.SetEventObject( this );
+    GetEventHandler()->ProcessEvent(vEvent);
+} // end of wxDialog::DoSetClientSize
+
+void wxDialog::DoGetPosition(
+  int*                              pnX
+, int*                              pnY
+) const
 {
 {
-    // TODO: Convert
-//  HWND hWnd = (HWND) GetHWND();
-//  RECT rect;
-//  GetWindowRect(hWnd, &rect);
+    RECTL                           vRect;
 
 
-//  *x = rect.left;
-//  *y = rect.top;
-}
-
-bool wxDialog::IsShown() const
-{
-  return m_isShown;
-}
+    ::WinQueryWindowRect(GetHwnd(), &vRect);
+    if (pnX)
+        *pnX = vRect.xLeft;
+    if (pnY)
+        *pnY = vRect.yBottom; // OS/2's bottom is windows' top???
+} // end of wxDialog::DoGetPosition
 
 bool wxDialog::IsModal() const
 {
 
 bool wxDialog::IsModal() const
 {
-    return wxModalDialogs.Find((wxDialog *)this) != 0; // const_cast
-}
+    return (GetWindowStyleFlag() & wxDIALOG_MODAL) != 0;
+} // end of wxDialog::IsModal
 
 
-bool wxDialog::Show(bool show)
+bool wxDialog::IsModalShowing() const
 {
 {
-    // TODO: This is involved code, look at msw port for details
-    return FALSE;
-}
+    return wxModalDialogs.Find((wxDialog *)this) != NULL; // const_cast
+} // end of wxDialog::IsModalShowing
 
 
-void wxDialog::SetTitle(const wxString& title)
+void wxDialog::DoShowModal()
 {
 {
-    ::WinSetWindowText((HWND) GetHWND(), title.c_str());
-}
+    wxWindow*                       pParent = GetParent();
+    wxWindow*                       pOldFocus = m_pOldFocus;
+    HWND                            hWndOldFocus = 0;
 
 
-wxString wxDialog::GetTitle() const
-{
-    ::WinQueryWindowText((HWND) GetHWND(), 1000, wxBuffer);
-    return wxString(wxBuffer);
-}
+    wxCHECK_RET( !IsModalShowing(), _T("DoShowModal() called twice") );
+    wxCHECK_RET( IsModal(), _T("can't DoShowModal() modeless dialog") );
+
+    wxModalDialogs.Append(this);
+    if (pOldFocus)
+        hWndOldFocus = (HWND)pOldFocus->GetHWND();
 
 
-void wxDialog::Centre(int direction)
+    //
+    // Remember where the focus was
+    //
+    if (!pOldFocus)
+    {
+        pOldFocus = pParent;
+        if (pParent)
+            hWndOldFocus = GetHwndOf(pParent);
+    }
+
+    //
+    // Disable all other app windows
+    //
+    wxASSERT_MSG(!m_pWindowDisabler, _T("disabling windows twice?"));
+
+    m_pWindowDisabler = new wxWindowDisabler(this);
+
+    //
+    // Enter the modal loop
+    //
+    while ( IsModalShowing() )
+    {
+#if wxUSE_THREADS
+        wxMutexGuiLeaveOrEnter();
+#endif // wxUSE_THREADS
+
+        while ( !wxTheApp->Pending() && wxTheApp->ProcessIdle() )
+            ;
+
+        // a message came or no more idle processing to do
+        wxTheApp->DoMessage();
+    }
+
+    //
+    // Snd restore focus
+    // Note that this code MUST NOT access the dialog object's data
+    // in case the object has been deleted (which will be the case
+    // for a modal dialog that has been destroyed before calling EndModal).
+    //
+    if (pOldFocus && (pOldFocus != this) && ::WinIsWindow(vHabmain, hWndOldFocus))
+    {
+        //
+        // This is likely to prove that the object still exists
+        //
+        if (wxFindWinFromHandle((WXHWND) hWndOldFocus) == pOldFocus)
+            pOldFocus->SetFocus();
+    }
+} // end of wxDialog::DoShowModal
+
+bool wxDialog::Show(
+  bool                              bShow
+)
 {
 {
-  int x_offset,y_offset ;
-  int display_width, display_height;
-  int  width, height, x, y;
-  wxWindow *parent = GetParent();
-  if ((direction & wxCENTER_FRAME) && parent)
-  {
-      parent->GetPosition(&x_offset,&y_offset) ;
-      parent->GetSize(&display_width,&display_height) ;
-  }
-  else
-  {
-    wxDisplaySize(&display_width, &display_height);
-    x_offset = 0 ;
-    y_offset = 0 ;
-  }
-
-  GetSize(&width, &height);
-  GetPosition(&x, &y);
-
-  if (direction & wxHORIZONTAL)
-    x = (int)((display_width - width)/2);
-  if (direction & wxVERTICAL)
-    y = (int)((display_height - height)/2);
-
-  SetSize(x+x_offset, y+y_offset, width, height);
-}
+    if (!bShow)
+    {
+        //
+        // If we had disabled other app windows, reenable them back now because
+        // if they stay disabled Windows will activate another window (one
+        // which is enabled, anyhow) and we will lose activation
+        //
+        if (m_pWindowDisabler)
+        {
+            delete m_pWindowDisabler;
+            m_pWindowDisabler = NULL;
+        }
+    }
 
 
+    //
+    // ShowModal() may be called for already shown dialog
+    //
+    if (!wxDialogBase::Show(bShow) && !(bShow && IsModal()))
+    {
+        //
+        // Nothing to do
+        //
+        return FALSE;
+    }
+
+    if (bShow)
+    {
+        //
+        // Usually will result in TransferDataToWindow() being called
+        //
+        InitDialog();
+    }
+
+    if (IsModal())
+    {
+        if (bShow)
+        {
+            //
+            // Modal dialog needs a parent window, so try to find one
+            //
+            if (!GetParent())
+            {
+                wxWindow*           pParent = wxTheApp->GetTopWindow();
+
+                if ( pParent && pParent != this && pParent->IsShown() )
+                {
+                    //
+                    // Use it
+                    //
+                    m_parent = pParent;
+
+                }
+            }
+            DoShowModal();
+        }
+        else // end of modal dialog
+        {
+            //
+            // This will cause IsModalShowing() return FALSE and our local
+            // message loop will terminate
+            //
+            wxModalDialogs.DeleteObject(this);
+        }
+    }
+    return FALSE;
+} // end of wxDialog::Show
+
+//
 // Replacement for Show(TRUE) for modal dialogs - returns return code
 // Replacement for Show(TRUE) for modal dialogs - returns return code
+//
 int wxDialog::ShowModal()
 {
 int wxDialog::ShowModal()
 {
-    m_windowStyle |= wxDIALOG_MODAL;
+    if (!IsModal())
+    {
+        SetModal(TRUE);
+    }
     Show(TRUE);
     return GetReturnCode();
     Show(TRUE);
     return GetReturnCode();
-}
+} // end of wxDialog::ShowModal
 
 
-void wxDialog::EndModal(int retCode)
+void wxDialog::EndModal(
+  int                               nRetCode
+)
 {
 {
-    SetReturnCode(retCode);
-    // TODO modal un-showing
+    SetReturnCode(nRetCode);
     Show(FALSE);
     Show(FALSE);
-}
+} // end of wxDialog::EndModal
 
 
-// Define for each class of dialog and control
-WXHBRUSH wxDialog::OnCtlColor(WXHDC pDC, WXHWND pWnd, WXUINT nCtlColor,
-      WXUINT message, WXWPARAM wParam, WXLPARAM lParam)
+void wxDialog::OnApply(
+  wxCommandEvent&                   rEvent
+)
 {
 {
-    return 0;
-}
+    if (Validate())
+        TransferDataFromWindow();
+} // end of wxDialog::OnApply
+
 // Standard buttons
 // Standard buttons
-void wxDialog::OnOK(wxCommandEvent& event)
+void wxDialog::OnOK(
+  wxCommandEvent&                   rEvent
+)
 {
     if ( Validate() && TransferDataFromWindow() )
     {
 {
     if ( Validate() && TransferDataFromWindow() )
     {
-        if ( IsModal() )
-            EndModal(wxID_OK);
-        else
-        {
-            SetReturnCode(wxID_OK);
-            this->Show(FALSE);
-        }
+        EndModal(wxID_OK);
     }
     }
-}
+} // end of wxDialog::OnOK
 
 
-void wxDialog::OnApply(wxCommandEvent& event)
+void wxDialog::OnCancel(
+  wxCommandEvent&                   rEvent
+)
 {
 {
-    if (Validate())
-        TransferDataFromWindow();
-    // TODO probably need to disable the Apply button until things change again
-}
+    EndModal(wxID_CANCEL);
+} // end of wxDialog::OnCancel
 
 
-void wxDialog::OnCancel(wxCommandEvent& event)
-{
-    if ( IsModal() )
-        EndModal(wxID_CANCEL);
-    else
-    {
-        SetReturnCode(wxID_CANCEL);
-        this->Show(FALSE);
-    }
-}
-
-void wxDialog::OnCloseWindow(wxCloseEvent& event)
+void wxDialog::OnCloseWindow(
+  wxCloseEvent&                     rEvent
+)
 {
 {
+    //
     // We'll send a Cancel message by default,
     // which may close the dialog.
     // Check for looping if the Cancel event handler calls Close().
     // We'll send a Cancel message by default,
     // which may close the dialog.
     // Check for looping if the Cancel event handler calls Close().
-
+    //
     // Note that if a cancel button and handler aren't present in the dialog,
     // nothing will happen when you close the dialog via the window manager, or
     // via Close().
     // Note that if a cancel button and handler aren't present in the dialog,
     // nothing will happen when you close the dialog via the window manager, or
     // via Close().
@@ -383,7 +475,11 @@ void wxDialog::OnCloseWindow(wxCloseEvent& event)
     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
     // sure to destroy the dialog.
     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
     // sure to destroy the dialog.
     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
+    //
 
 
+    //
+    // Ugh???  This is not good but until I figure out a global list it'll have to do
+    //
     static wxList closing;
 
     if ( closing.Member(this) )
     static wxList closing;
 
     if ( closing.Member(this) )
@@ -391,55 +487,58 @@ void wxDialog::OnCloseWindow(wxCloseEvent& event)
 
     closing.Append(this);
 
 
     closing.Append(this);
 
-    wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
-    cancelEvent.SetEventObject( this );
-    GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
+    wxCommandEvent                  vCancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
+
+    vCancelEvent.SetEventObject( this );
+    GetEventHandler()->ProcessEvent(vCancelEvent); // This may close the dialog
 
     closing.DeleteObject(this);
 
     closing.DeleteObject(this);
-}
+} // end of wxDialog::OnCloseWindow
 
 
+//
 // Destroy the window (delayed, if a managed window)
 // Destroy the window (delayed, if a managed window)
+//
 bool wxDialog::Destroy()
 {
 bool wxDialog::Destroy()
 {
-    if (!wxPendingDelete.Member(this))
-        wxPendingDelete.Append(this);
+    wxCHECK_MSG( !wxPendingDelete.Member(this), FALSE,
+                 _T("wxDialog destroyed twice") );
+    wxPendingDelete.Append(this);
     return TRUE;
     return TRUE;
-}
+} // end of wxDialog::Destroy
 
 
-void wxDialog::OnSize(wxSizeEvent& WXUNUSED(event))
+void wxDialog::OnSysColourChanged(
+  wxSysColourChangedEvent&          rEvent
+)
 {
 {
-  // if we're using constraints - do use them
-  #if wxUSE_CONSTRAINTS
-    if ( GetAutoLayout() )
-    {
-      Layout();
-    }
-  #endif
-}
-
-void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& event)
-{
-  SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
-  Refresh();
-}
-
-MRESULT wxDialog::OS2WindowProc(WXUINT message, WXWPARAM wParam, WXLPARAM lParam)
+    SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
+    Refresh();
+} // end of wxDialog::OnSysColourChanged
+
+MRESULT wxDialog::OS2WindowProc(
+  WXUINT                            uMessage
+, WXWPARAM                          wParam
+, WXLPARAM                          lParam
+)
 {
 {
-    MRESULT rc = 0;
-    bool    processed = FALSE;
+    MRESULT                         rc = 0;
+    bool                            bProcessed = FALSE;
 
 
-    switch ( message )
+    switch (uMessage)
     {
         case WM_CLOSE:
     {
         case WM_CLOSE:
-            // if we can't close, tell the system that we processed the
+            //
+            // If we can't close, tell the system that we processed the
             // message - otherwise it would close us
             // message - otherwise it would close us
-            processed = !Close();
+            //
+            bProcessed = !Close();
             break;
     }
 
             break;
     }
 
-    if ( !processed )
-        rc = wxWindow::OS2WindowProc(message, wParam, lParam);
-
+    if (!bProcessed)
+        rc = wxWindow::OS2WindowProc( uMessage
+                                     ,wParam
+                                     ,lParam
+                                    );
     return rc;
     return rc;
-}
+} // end of wxDialog::OS2WindowProc