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, wxPanel)
  32
  33 BEGIN_EVENT_TABLE(wxDialog, wxPanel)
  34         EVT_SIZE(wxDialog::OnSize)
  35   EVT_BUTTON(wxID_OK, wxDialog::OnOK)
  36   EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
  37   EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
  38   EVT_CHAR_HOOK(wxDialog::OnCharHook)
  39   EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
  40   EVT_CLOSE(wxDialog::OnCloseWindow)
  41 END_EVENT_TABLE()
  42
  43 #endif
  44
  45 wxDialog::wxDialog()
  46 {
  47         m_isShown = FALSE;
  48     SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
  49 }
  50
  51 bool wxDialog::Create(wxWindow *parent, wxWindowID id,
  52            const wxString& title,
  53            const wxPoint& pos,
  54            const wxSize& size,
  55            long style,
  56            const wxString& name)
  57 {
  58
  59   SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
  60
  61   if (!parent)
  62     wxTopLevelWindows.Append(this);
  63
  64   if (parent) parent->AddChild(this);
  65
  66   if ( id == -1 )
  67         m_windowId = (int)NewControlId();
  68   else
  69         m_windowId = id;
  70
  71         MacCreateRealWindow( title , pos , size , MacRemoveBordersFromStyle(style)  , name ) ;
  72
  73         m_macWindowData->m_macWindowBackgroundTheme = kThemeBrushDialogBackgroundActive ;
  74   return TRUE;
  75 }
  76
  77 void wxDialog::SetModal(bool flag)
  78 {
  79   if ( flag )
  80     {
  81         m_windowStyle |= wxDIALOG_MODAL;
  82
  83         wxModelessWindows.DeleteObject(this);
  84     }
  85     else
  86     {
  87         m_windowStyle &= ~wxDIALOG_MODAL;
  88
  89         wxModelessWindows.Append(this);
  90     }
  91 }
  92
  93 wxDialog::~wxDialog()
  94 {
  95         m_isBeingDeleted = TRUE ;
  96     wxTopLevelWindows.DeleteObject(this);
  97
  98         Show(FALSE);
  99
 100     if ( !IsModal() )
 101         wxModelessWindows.DeleteObject(this);
 102
 103     // If this is the last top-level window, exit.
 104     if (wxTheApp && (wxTopLevelWindows.Number() == 0))
 105     {
 106       wxTheApp->SetTopWindow(NULL);
 107
 108       if (wxTheApp->GetExitOnFrameDelete())
 109       {
 110         wxTheApp->ExitMainLoop() ;
 111       }
 112     }
 113 }
 114
 115 // By default, pressing escape cancels the dialog
 116 void wxDialog::OnCharHook(wxKeyEvent& event)
 117 {
 118   if (event.m_keyCode == WXK_ESCAPE)
 119   {
 120                 // Behaviour changed in 2.0: we'll send a Cancel message
 121                 // to the dialog instead of Close.
 122                 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 123                 cancelEvent.SetEventObject( this );
 124                 GetEventHandler()->ProcessEvent(cancelEvent);
 125
 126                 return;
 127   }
 128   // We didn't process this event.
 129   event.Skip();
 130 }
 131
 132 void wxDialog::Iconize(bool WXUNUSED(iconize))
 133 {
 134         // mac dialogs cannot be iconized
 135 }
 136
 137 bool wxDialog::IsIconized() const
 138 {
 139         // mac dialogs cannot be iconized
 140     return FALSE;
 141 }
 142
 143 void wxDialog::DoSetClientSize(int width, int height)
 144 {
 145         wxWindow::DoSetClientSize( width , height ) ;
 146 }
 147
 148 void wxDialog::DoGetPosition(int *x, int *y) const
 149 {
 150         wxWindow::DoGetPosition( x , y ) ;
 151 }
 152
 153 bool wxDialog::IsModal() const
 154 {
 155     return (GetWindowStyleFlag() & wxDIALOG_MODAL) != 0;
 156 }
 157
 158
 159 bool wxDialog::IsModalShowing() const
 160 {
 161     return wxModalDialogs.Find((wxDialog *)this) != NULL; // const_cast
 162 }
 163
 164
 165 extern bool s_macIsInModalLoop ;
 166
 167 bool wxDialog::Show(bool show)
 168 {
 169     if ( !wxDialogBase::Show(show) )
 170     {
 171         // nothing to do
 172         return FALSE;
 173     }
 174
 175     if ( show )
 176     {
 177         // usually will result in TransferDataToWindow() being called
 178         InitDialog();
 179     }
 180
 181     if ( IsModal() )
 182     {
 183         if ( show )
 184         {
 185             DoShowModal();
 186         }
 187         else // end of modal dialog
 188         {
 189             // this will cause IsModalShowing() return FALSE and our local
 190             // message loop will terminate
 191             wxModalDialogs.DeleteObject(this);
 192         }
 193     }
 194
 195     return TRUE;
 196 }
 197
 198 void wxDialog::DoShowModal()
 199 {
 200     wxCHECK_RET( !IsModalShowing(), _T("DoShowModal() called twice") );
 201
 202     wxModalDialogs.Append(this);
 203
 204         wxWindow *parent = GetParent();
 205
 206     // remember where the focus was
 207     wxWindow *winFocus = FindFocus();
 208     if ( !winFocus )
 209     {
 210         winFocus = parent;
 211     }
 212     if ( !winFocus )
 213     {
 214         winFocus = wxTheApp->GetTopWindow();
 215     }
 216         // TODO : test whether parent gets disabled
 217
 218         bool formerModal = s_macIsInModalLoop ;
 219         s_macIsInModalLoop = true ;
 220
 221         while ( IsModalShowing() )
 222         {
 223                 while ( !wxTheApp->Pending() && wxTheApp->ProcessIdle() )
 224                 {
 225                 }
 226                 wxTheApp->MacDoOneEvent() ;
 227         }
 228
 229         s_macIsInModalLoop = formerModal ;
 230
 231     // TODO probably reenable the parent window if any
 232
 233     // and restore focus
 234     if ( winFocus )
 235     {
 236         winFocus->SetFocus();
 237     }
 238 }
 239
 240
 241 // Replacement for Show(TRUE) for modal dialogs - returns return code
 242 int wxDialog::ShowModal()
 243 {
 244   m_windowStyle |= wxDIALOG_MODAL;
 245   Show(TRUE);
 246   return GetReturnCode();
 247 }
 248
 249 // NB: this function (surprizingly) may be called for both modal and modeless
 250 //     dialogs and should work for both of them
 251 void wxDialog::EndModal(int retCode)
 252 {
 253   SetReturnCode(retCode);
 254   Show(FALSE);
 255 }
 256
 257 // Standard buttons
 258 void wxDialog::OnOK(wxCommandEvent& event)
 259 {
 260   if ( Validate() && TransferDataFromWindow() )
 261   {
 262       EndModal(wxID_OK);
 263   }
 264 }
 265
 266 void wxDialog::OnApply(wxCommandEvent& event)
 267 {
 268   if (Validate())
 269     TransferDataFromWindow();
 270   // TODO probably need to disable the Apply button until things change again
 271 }
 272
 273 void wxDialog::OnCancel(wxCommandEvent& event)
 274 {
 275         EndModal(wxID_CANCEL);
 276 }
 277
 278 void wxDialog::OnCloseWindow(wxCloseEvent& event)
 279 {
 280     // We'll send a Cancel message by default,
 281     // which may close the dialog.
 282     // Check for looping if the Cancel event handler calls Close().
 283
 284     // Note that if a cancel button and handler aren't present in the dialog,
 285     // nothing will happen when you close the dialog via the window manager, or
 286     // via Close().
 287     // We wouldn't want to destroy the dialog by default, since the dialog may have been
 288     // created on the stack.
 289     // However, this does mean that calling dialog->Close() won't delete the dialog
 290     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
 291     // sure to destroy the dialog.
 292     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
 293
 294     static wxList closing;
 295
 296     if ( closing.Member(this) )
 297         return;
 298
 299     closing.Append(this);
 300
 301     wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 302     cancelEvent.SetEventObject( this );
 303     GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
 304
 305     closing.DeleteObject(this);
 306 }
 307
 308 // Destroy the window (delayed, if a managed window)
 309 bool wxDialog::Destroy()
 310 {
 311     wxCHECK_MSG( !wxPendingDelete.Member(this), FALSE,
 312                  _T("wxDialog destroyed twice") );
 313
 314     wxPendingDelete.Append(this);
 315   return TRUE;
 316 }
 317
 318 void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& event)
 319 {
 320   SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE));
 321   Refresh();
 322 }
 323