src/mac/carbon/dialog.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dialog.cpp
   3 // Purpose:     wxDialog class
   4 // Author:      AUTHOR
   5 // Modified by:
   6 // Created:     ??/??/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) AUTHOR
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "dialog.h"
  14 #endif
  15
  16 #include "wx/dialog.h"
  17 #include "wx/utils.h"
  18 #include "wx/frame.h"
  19 #include "wx/app.h"
  20 #include "wx/settings.h"
  21
  22 #include "wx/mac/uma.h"
  23
  24 // Lists to keep track of windows, so we can disable/enable them
  25 // for modal dialogs
  26 wxList wxModalDialogs;
  27 //wxList wxModelessWindows;  // Frames and modeless dialogs
  28 extern wxList wxPendingDelete;
  29
  30 #if !USE_SHARED_LIBRARY
  31 IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxTopLevelWindow)
  32
  33 BEGIN_EVENT_TABLE(wxDialog, wxDialogBase)
  34   EVT_BUTTON(wxID_OK, wxDialog::OnOK)
  35   EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
  36   EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
  37
  38   EVT_CHAR_HOOK(wxDialog::OnCharHook)
  39
  40   EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
  41
  42   EVT_CLOSE(wxDialog::OnCloseWindow)
  43 END_EVENT_TABLE()
  44
  45 #endif
  46
  47 wxDialog::wxDialog()
  48 {
  49         m_isShown = FALSE;
  50     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
  51 }
  52
  53 bool wxDialog::Create(wxWindow *parent, wxWindowID id,
  54            const wxString& title,
  55            const wxPoint& pos,
  56            const wxSize& size,
  57            long style,
  58            const wxString& name)
  59 {
  60
  61   SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
  62
  63
  64   if ( !wxTopLevelWindow::Create(parent, id, title, pos, size, style, name) )
  65         return FALSE;
  66
  67         MacCreateRealWindow( title , pos , size , MacRemoveBordersFromStyle(style)  , name ) ;
  68
  69         m_macWindowBackgroundTheme = kThemeBrushDialogBackgroundActive ;
  70   return TRUE;
  71 }
  72
  73 void wxDialog::SetModal(bool flag)
  74 {
  75   if ( flag )
  76     {
  77         m_windowStyle |= wxDIALOG_MODAL;
  78
  79         wxModelessWindows.DeleteObject(this);
  80     }
  81     else
  82     {
  83         m_windowStyle &= ~wxDIALOG_MODAL;
  84
  85         wxModelessWindows.Append(this);
  86     }
  87 }
  88
  89 wxDialog::~wxDialog()
  90 {
  91         m_isBeingDeleted = TRUE ;
  92   Show(FALSE);
  93 }
  94
  95 // By default, pressing escape cancels the dialog , on mac command-stop does the same thing
  96 void wxDialog::OnCharHook(wxKeyEvent& event)
  97 {
  98   if (
  99     ( event.m_keyCode == WXK_ESCAPE ||
 100       ( event.m_keyCode == '.' && event.MetaDown() ) )
 101      && FindWindow(wxID_CANCEL) )
 102   {
 103                 // Behaviour changed in 2.0: we'll send a Cancel message
 104                 // to the dialog instead of Close.
 105                 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 106                 cancelEvent.SetEventObject( this );
 107                 GetEventHandler()->ProcessEvent(cancelEvent);
 108
 109                 return;
 110   }
 111   // We didn't process this event.
 112   event.Skip();
 113 }
 114
 115 bool wxDialog::IsModal() const
 116 {
 117     return (GetWindowStyleFlag() & wxDIALOG_MODAL) != 0;
 118 }
 119
 120
 121 bool wxDialog::IsModalShowing() const
 122 {
 123     return wxModalDialogs.Find((wxDialog *)this) != NULL; // const_cast
 124 }
 125
 126 extern bool s_macIsInModalLoop ;
 127
 128 bool wxDialog::Show(bool show)
 129 {
 130     if ( !wxDialogBase::Show(show) )
 131     {
 132         // nothing to do
 133         return FALSE;
 134     }
 135
 136     if ( show )
 137     {
 138         // usually will result in TransferDataToWindow() being called
 139         InitDialog();
 140     }
 141
 142     if ( IsModal() )
 143     {
 144         if ( show )
 145         {
 146             DoShowModal();
 147         }
 148         else // end of modal dialog
 149         {
 150             // this will cause IsModalShowing() return FALSE and our local
 151             // message loop will terminate
 152             wxModalDialogs.DeleteObject(this);
 153         }
 154     }
 155
 156     return TRUE;
 157 }
 158
 159 void wxDialog::DoShowModal()
 160 {
 161     wxCHECK_RET( !IsModalShowing(), _T("DoShowModal() called twice") );
 162
 163     wxModalDialogs.Append(this);
 164
 165         wxWindow *parent = GetParent();
 166
 167     // remember where the focus was
 168     wxWindow *winFocus = FindFocus();
 169     if ( !winFocus )
 170     {
 171         winFocus = parent;
 172     }
 173     if ( !winFocus )
 174     {
 175         winFocus = wxTheApp->GetTopWindow();
 176     }
 177         // TODO : test whether parent gets disabled
 178
 179         bool formerModal = s_macIsInModalLoop ;
 180         s_macIsInModalLoop = true ;
 181
 182         while ( IsModalShowing() )
 183         {
 184                 while ( !wxTheApp->Pending() && wxTheApp->ProcessIdle() )
 185                 {
 186                 }
 187                 wxTheApp->MacDoOneEvent() ;
 188         }
 189
 190         s_macIsInModalLoop = formerModal ;
 191
 192     // TODO probably reenable the parent window if any
 193
 194     // and restore focus
 195     if ( winFocus )
 196     {
 197         winFocus->SetFocus();
 198     }
 199 }
 200
 201
 202 // Replacement for Show(TRUE) for modal dialogs - returns return code
 203 int wxDialog::ShowModal()
 204 {
 205   m_windowStyle |= wxDIALOG_MODAL;
 206   Show(TRUE);
 207   return GetReturnCode();
 208 }
 209
 210 // NB: this function (surprizingly) may be called for both modal and modeless
 211 //     dialogs and should work for both of them
 212 void wxDialog::EndModal(int retCode)
 213 {
 214   SetReturnCode(retCode);
 215   Show(FALSE);
 216 }
 217
 218 // Standard buttons
 219 void wxDialog::OnOK(wxCommandEvent& event)
 220 {
 221   if ( Validate() && TransferDataFromWindow() )
 222   {
 223       EndModal(wxID_OK);
 224   }
 225 }
 226
 227 void wxDialog::OnApply(wxCommandEvent& event)
 228 {
 229   if (Validate())
 230     TransferDataFromWindow();
 231   // TODO probably need to disable the Apply button until things change again
 232 }
 233
 234 void wxDialog::OnCancel(wxCommandEvent& event)
 235 {
 236         EndModal(wxID_CANCEL);
 237 }
 238
 239 void wxDialog::OnCloseWindow(wxCloseEvent& event)
 240 {
 241     // We'll send a Cancel message by default,
 242     // which may close the dialog.
 243     // Check for looping if the Cancel event handler calls Close().
 244
 245     // Note that if a cancel button and handler aren't present in the dialog,
 246     // nothing will happen when you close the dialog via the window manager, or
 247     // via Close().
 248     // We wouldn't want to destroy the dialog by default, since the dialog may have been
 249     // created on the stack.
 250     // However, this does mean that calling dialog->Close() won't delete the dialog
 251     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
 252     // sure to destroy the dialog.
 253     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
 254
 255     static wxList closing;
 256
 257     if ( closing.Member(this) )
 258         return;
 259
 260     closing.Append(this);
 261
 262     wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 263     cancelEvent.SetEventObject( this );
 264     GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
 265
 266     closing.DeleteObject(this);
 267 }
 268
 269 void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& event)
 270 {
 271   SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
 272   Refresh();
 273 }
 274