X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/4bb6408c2631988fab9925014c6619358bf867de..ae6a64b6af83a95769363424e09d117a96a15a4c:/src/motif/dialog.cpp diff --git a/src/motif/dialog.cpp b/src/motif/dialog.cpp index d8bce29403..dceb887490 100644 --- a/src/motif/dialog.cpp +++ b/src/motif/dialog.cpp @@ -1,294 +1,364 @@ ///////////////////////////////////////////////////////////////////////////// -// Name: dialog.cpp +// Name: src/motif/dialog.cpp // Purpose: wxDialog class // Author: Julian Smart // Modified by: // Created: 17/09/98 // RCS-ID: $Id$ // Copyright: (c) Julian Smart -// Licence: wxWindows licence +// Licence: wxWindows licence ///////////////////////////////////////////////////////////////////////////// -#ifdef __GNUG__ -#pragma implementation "dialog.h" +// For compilers that support precompilation, includes "wx.h". +#include "wx/wxprec.h" + +#ifdef __VMS +#define XtDisplay XTDISPLAY +#define XtWindow XTWINDOW +#define XtParent XTPARENT +#define XtScreen XTSCREEN #endif #include "wx/dialog.h" -#include "wx/utils.h" -#include "wx/frame.h" -#include "wx/app.h" -#include "wx/settings.h" + +#ifndef WX_PRECOMP + #include "wx/app.h" + #include "wx/utils.h" + #include "wx/settings.h" +#endif + +#include "wx/evtloop.h" + +#ifdef __VMS__ +#pragma message disable nosimpint +#endif +#include + +#include +#if XmVersion >= 1002 +#include +#endif +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#if XmVersion > 1000 +#include +#endif +#ifdef __VMS__ +#pragma message enable nosimpint +#endif + +#include "wx/motif/private.h" + +// A stack of modal_showing flags, since we can't rely +// on accessing wxDialog::m_modalShowing within +// wxDialog::Show in case a callback has deleted the wxDialog. +// static wxList wxModalShowingStack; // Lists to keep track of windows, so we can disable/enable them // for modal dialogs wxList wxModalDialogs; -wxList wxModelessWindows; // Frames and modeless dialogs -extern wxList wxPendingDelete; +extern wxList wxModelessWindows; // Frames and modeless dialogs -#if !USE_SHARED_LIBRARY -IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxPanel) +#define wxUSE_INVISIBLE_RESIZE 1 -BEGIN_EVENT_TABLE(wxDialog, wxPanel) - EVT_BUTTON(wxID_OK, wxDialog::OnOK) - EVT_BUTTON(wxID_APPLY, wxDialog::OnApply) - EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel) - EVT_CHAR_HOOK(wxDialog::OnCharHook) - EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged) - EVT_CLOSE(wxDialog::OnCloseWindow) -END_EVENT_TABLE() - -#endif +IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxTopLevelWindow) wxDialog::wxDialog() { - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE)); + m_modalShowing = false; + m_eventLoop = NULL; + m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE); } bool wxDialog::Create(wxWindow *parent, wxWindowID id, - const wxString& title, - const wxPoint& pos, - const wxSize& size, - long style, - const wxString& name) + const wxString& title, + const wxPoint& pos, + const wxSize& size, + long style, + const wxString& name) { - m_windowStyle = style; + SetExtraStyle(GetExtraStyle() | wxTOPLEVEL_EX_DIALOG); + + if( !wxTopLevelWindow::Create( parent, id, title, pos, size, style, + name ) ) + return false; + + m_modalShowing = false; + m_eventLoop = NULL; + + m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE); + m_foregroundColour = *wxBLACK; + + Widget dialogShell = (Widget) m_mainWidget; + + SetTitle( title ); + + m_font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); + ChangeFont(false); - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE)); - SetName(name); - - if (!parent) - wxTopLevelWindows.Append(this); + // Can't remember what this was about... but I think it's necessary. +#if wxUSE_INVISIBLE_RESIZE + if (pos.x > -1) + XtVaSetValues(dialogShell, XmNx, pos.x, + NULL); + if (pos.y > -1) + XtVaSetValues(dialogShell, XmNy, pos.y, + NULL); - if (parent) parent->AddChild(this); + if (size.x > -1) + XtVaSetValues(dialogShell, XmNwidth, size.x, NULL); + if (size.y > -1) + XtVaSetValues(dialogShell, XmNheight, size.y, NULL); +#endif + + // Positioning of the dialog doesn't work properly unless the dialog + // is managed, so we manage without mapping to the screen. + // To show, we map the shell (actually it's parent). +#if !wxUSE_INVISIBLE_RESIZE + Widget shell = XtParent(dialogShell) ; + XtVaSetValues(shell, XmNmappedWhenManaged, False, NULL); +#endif + +#if !wxUSE_INVISIBLE_RESIZE + XtManageChild(dialogShell); + SetSize(pos.x, pos.y, size.x, size.y); +#endif - if ( id == -1 ) - m_windowId = (int)NewControlId(); - else - m_windowId = id; + XtAddEventHandler(dialogShell,ExposureMask,False, + wxUniversalRepaintProc, (XtPointer) this); - // TODO: create dialog + ChangeBackgroundColour(); - return FALSE; + return true; +} + +bool wxDialog::XmDoCreateTLW(wxWindow* parent, + wxWindowID WXUNUSED(id), + const wxString& WXUNUSED(title), + const wxPoint& WXUNUSED(pos), + const wxSize& WXUNUSED(size), + long WXUNUSED(style), + const wxString& name) +{ + Widget parentWidget = (Widget) 0; + if( parent ) + parentWidget = (Widget) parent->GetTopWidget(); + if( !parent ) + parentWidget = (Widget) wxTheApp->GetTopLevelWidget(); + + wxASSERT_MSG( (parentWidget != (Widget) 0), + "Could not find a suitable parent shell for dialog." ); + + Arg args[2]; + XtSetArg (args[0], XmNdefaultPosition, False); + XtSetArg (args[1], XmNautoUnmanage, False); + Widget dialogShell = + XmCreateBulletinBoardDialog( parentWidget, + wxConstCast(name.c_str(), char), + args, 2); + m_mainWidget = (WXWidget) dialogShell; + + // We don't want margins, since there is enough elsewhere. + XtVaSetValues( dialogShell, + XmNmarginHeight, 0, + XmNmarginWidth, 0, + XmNresizePolicy, XmRESIZE_NONE, + NULL ) ; + + XtTranslations ptr ; + XtOverrideTranslations(dialogShell, + ptr = XtParseTranslationTable(": resize()")); + XtFree((char *)ptr); + + XtRealizeWidget(dialogShell); + + wxAddWindowToTable( (Widget)m_mainWidget, this ); + + return true; } void wxDialog::SetModal(bool flag) { - if ( flag ) - m_windowStyle |= wxDIALOG_MODAL ; - else - if ( m_windowStyle & wxDIALOG_MODAL ) - m_windowStyle -= wxDIALOG_MODAL ; - - wxModelessWindows.DeleteObject(this); - if (!flag) - wxModelessWindows.Append(this); + if ( flag ) + wxModelessWindows.DeleteObject(this); + else + wxModelessWindows.Append(this); } wxDialog::~wxDialog() { - // TODO - wxTopLevelWindows.DeleteObject(this); + m_isBeingDeleted = true; - if ( (GetWindowStyleFlag() & wxDIALOG_MODAL) != wxDIALOG_MODAL ) - wxModelessWindows.DeleteObject(this); + delete m_eventLoop; - // If this is the last top-level window, exit. - if (wxTheApp && (wxTopLevelWindows.Number() == 0)) + if (m_mainWidget) { - wxTheApp->SetTopWindow(NULL); - - if (wxTheApp->GetExitOnFrameDelete()) - { - // TODO: exit - } + XtRemoveEventHandler((Widget) m_mainWidget, ExposureMask, False, + wxUniversalRepaintProc, (XtPointer) this); } -} -// By default, pressing escape cancels the dialog -void wxDialog::OnCharHook(wxKeyEvent& event) -{ - if (event.m_keyCode == WXK_ESCAPE) - { - // 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); - - return; - } - // We didn't process this event. - event.Skip(); -} + m_modalShowing = false; -void wxDialog::Iconize(bool WXUNUSED(iconize)) -{ - // TODO -} +#if !wxUSE_INVISIBLE_RESIZE + if (m_mainWidget) + { + XtUnmapWidget((Widget) m_mainWidget); + } +#endif -bool wxDialog::IsIconized() const -{ - // TODO - return FALSE; -} + PreDestroy(); -void wxDialog::SetClientSize(int width, int height) -{ - // TODO + if ( m_mainWidget ) + { + wxDeleteWindowFromTable( (Widget)m_mainWidget ); + XtDestroyWidget( (Widget)m_mainWidget ); + } } -void wxDialog::GetPosition(int *x, int *y) const +void wxDialog::DoSetSize(int x, int y, int width, int height, int sizeFlags) { - // TODO + XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_ANY, NULL); + wxWindow::DoSetSize(x, y, width, height, sizeFlags); + XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_NONE, NULL); } -bool wxDialog::Show(bool show) +void wxDialog::DoSetClientSize(int width, int height) { - // TODO - return FALSE; + wxWindow::SetSize(-1, -1, width, height); } void wxDialog::SetTitle(const wxString& title) { - // TODO -} - -wxString wxDialog::GetTitle() const -{ - // TODO - return wxString(""); -} + wxTopLevelWindow::SetTitle( title ); -void wxDialog::Centre(int direction) -{ - int x_offset,y_offset ; - int display_width, display_height; - int width, height, x, y; - wxFrame *frame ; - if (direction & wxCENTER_FRAME) - { - frame = (wxFrame*)GetParent() ; - if (frame) + if( !title.empty() ) { - frame->GetPosition(&x_offset,&y_offset) ; - frame->GetSize(&display_width,&display_height) ; + wxXmString str( title ); + XtVaSetValues( (Widget)m_mainWidget, + XmNtitle, title.c_str(), + XmNdialogTitle, str(), // Roberto Cocchi + XmNiconName, title.c_str(), + NULL ); } - } - else - frame = NULL ; - - if (frame==NULL) - { - 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); } -// Replacement for Show(TRUE) for modal dialogs - returns return code -int wxDialog::ShowModal() +bool wxDialog::Show( bool show ) { - m_windowStyle |= wxDIALOG_MODAL; - // TODO: modal showing - Show(TRUE); - return GetReturnCode(); -} + if( !wxWindowBase::Show( show ) ) + return false; -void wxDialog::EndModal(int retCode) -{ - SetReturnCode(retCode); - // TODO modal un-showing - Show(FALSE); -} + m_isShown = show; -// Standard buttons -void wxDialog::OnOK(wxCommandEvent& event) -{ - if ( Validate() && TransferDataFromWindow() ) - { - if ( IsModal() ) - EndModal(wxID_OK); - else - { - SetReturnCode(wxID_OK); - this->Show(FALSE); - } - } -} + if (show) + { + // this usually will result in TransferDataToWindow() being called + // which will change the controls values so do it before showing as + // otherwise we could have some flicker + InitDialog(); + } -void wxDialog::OnApply(wxCommandEvent& event) -{ - if (Validate()) - TransferDataFromWindow(); - // TODO probably need to disable the Apply button until things change again -} + if (show) + { +#if !wxUSE_INVISIBLE_RESIZE + XtMapWidget(XtParent((Widget) m_mainWidget)); +#else + XtManageChild((Widget)m_mainWidget) ; +#endif -void wxDialog::OnCancel(wxCommandEvent& event) -{ - if ( IsModal() ) - EndModal(wxID_CANCEL); + XRaiseWindow( XtDisplay( (Widget)m_mainWidget ), + XtWindow( (Widget)m_mainWidget) ); + + } else { - SetReturnCode(wxID_CANCEL); - this->Show(FALSE); +#if !wxUSE_INVISIBLE_RESIZE + XtUnmapWidget(XtParent((Widget) m_mainWidget)); +#else + XtUnmanageChild((Widget)m_mainWidget) ; +#endif + + XFlush(XtDisplay((Widget)m_mainWidget)); + XSync(XtDisplay((Widget)m_mainWidget), False); } + + return true; } -bool wxDialog::OnClose() +// Shows a dialog modally, returning a return code +int wxDialog::ShowModal() { - // Behaviour changed in 2.0: we'll send a Cancel message by default, - // which may close the dialog. - // Check for looping if the Cancel event handler calls Close() + Show(true); + + // after the event loop ran, the widget might already have been destroyed + WXDisplay* display = (WXDisplay*)XtDisplay( (Widget)m_mainWidget ); - static wxList closing; + if (m_modalShowing) + return 0; + m_eventLoop = new wxEventLoop; - if ( closing.Member(this) ) - return FALSE; + m_modalShowing = true; + XtAddGrab((Widget) m_mainWidget, True, False); - closing.Append(this); + m_eventLoop->Run(); - wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL); - cancelEvent.SetEventObject( this ); - GetEventHandler()->ProcessEvent(cancelEvent); + // Now process all events in case they get sent to a destroyed dialog + wxFlushEvents( display ); - closing.DeleteObject(this); + delete m_eventLoop; + m_eventLoop = NULL; - return FALSE; + // TODO: is it safe to call this, if the dialog may have been deleted + // by now? Probably only if we're using delayed deletion of dialogs. + return GetReturnCode(); } -void wxDialog::OnCloseWindow(wxCloseEvent& event) +void wxDialog::EndModal(int retCode) { - // Compatibility - if ( GetEventHandler()->OnClose() || event.GetForce()) - { - this->Destroy(); - } + if (!m_modalShowing) + return; + + SetReturnCode(retCode); + + // Strangely, we don't seem to need this now. + // XtRemoveGrab((Widget) m_mainWidget); + + Show(false); + + m_modalShowing = false; + m_eventLoop->Exit(); + + SetModal(false); } // Destroy the window (delayed, if a managed window) bool wxDialog::Destroy() { - if (!wxPendingDelete.Member(this)) - wxPendingDelete.Append(this); - return TRUE; + if (!wxPendingDelete.Member(this)) + wxPendingDelete.Append(this); + return true; +} + +void wxDialog::ChangeFont(bool keepOriginalSize) +{ + wxWindow::ChangeFont(keepOriginalSize); } -void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& event) +void wxDialog::ChangeBackgroundColour() { - SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE)); - Refresh(); + if (GetMainWidget()) + wxDoChangeBackgroundColour(GetMainWidget(), m_backgroundColour); } -void wxDialog::Fit() +void wxDialog::ChangeForegroundColour() { + if (GetMainWidget()) + wxDoChangeForegroundColour(GetMainWidget(), m_foregroundColour); }