src/motif/app.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        app.cpp
   3 // Purpose:     wxApp
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     17/09/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
  13     #pragma implementation "app.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __VMS
  20 #define XtParent XTPARENT
  21 #define XtDisplay XTDISPLAY
  22 #endif
  23
  24 #include "wx/app.h"
  25 #include "wx/utils.h"
  26 #include "wx/module.h"
  27 #include "wx/memory.h"
  28 #include "wx/log.h"
  29 #include "wx/intl.h"
  30 #include "wx/evtloop.h"
  31 #include "wx/hash.h"
  32
  33 #if wxUSE_THREADS
  34     #include "wx/thread.h"
  35 #endif
  36
  37 #ifdef __VMS__
  38 #pragma message disable nosimpint
  39 #endif
  40 #include <Xm/Xm.h>
  41 #include <X11/Xlib.h>
  42 #include <X11/Xutil.h>
  43 #include <X11/Xresource.h>
  44 #include <X11/Xatom.h>
  45 #ifdef __VMS__
  46 #pragma message enable nosimpint
  47 #endif
  48
  49 #include "wx/motif/private.h"
  50
  51 #include <string.h>
  52
  53 struct wxPerDisplayData
  54 {
  55     wxPerDisplayData()
  56     {
  57         m_visualInfo = NULL;
  58         m_topLevelWidget = NULL;
  59         m_topLevelRealizedWidget = NULL;
  60     }
  61
  62     wxXVisualInfo* m_visualInfo;
  63     Widget         m_topLevelWidget, m_topLevelRealizedWidget;
  64 };
  65
  66 static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData,
  67                                       XtPointer ptr);
  68 static WXWidget wxCreateTopLevelWidget( WXDisplay* display );
  69
  70 extern wxList wxPendingDelete;
  71 extern bool wxAddIdleCallback();
  72
  73 wxHashTable *wxWidgetHashTable = NULL;
  74
  75 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
  76
  77 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
  78     EVT_IDLE(wxAppBase::OnIdle)
  79 END_EVENT_TABLE()
  80
  81 #ifdef __WXDEBUG__
  82     typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *);
  83
  84     XErrorHandlerFunc gs_pfnXErrorHandler = 0;
  85
  86     static int wxXErrorHandler(Display *dpy, XErrorEvent *xevent)
  87     {
  88         // just forward to the default handler for now
  89         return gs_pfnXErrorHandler(dpy, xevent);
  90     }
  91 #endif // __WXDEBUG__
  92
  93 bool wxApp::Initialize(int& argc, wxChar **argv)
  94 {
  95     if ( !wxAppBase::Initialize(argc, argv) )
  96         return false;
  97
  98     wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER);
  99
 100 #if wxUSE_INTL
 101     wxFont::SetDefaultEncoding(wxLocale::GetSystemEncoding());
 102 #endif
 103
 104     return true;
 105 }
 106
 107 void wxApp::CleanUp()
 108 {
 109     wxAppBase::CleanUp();
 110
 111     delete wxWidgetHashTable;
 112     wxWidgetHashTable = NULL;
 113
 114     delete m_mainLoop;
 115
 116     for( wxPerDisplayDataMap::iterator it  = m_perDisplayData->begin(),
 117                                        end = m_perDisplayData->end();
 118          it != end; ++it )
 119     {
 120         delete it->second->m_visualInfo;
 121         XtDestroyWidget( it->second->m_topLevelWidget );
 122         delete it->second;
 123     }
 124
 125     delete m_perDisplayData;
 126 }
 127
 128 void wxApp::Exit()
 129 {
 130     wxApp::CleanUp();
 131
 132     wxAppConsole::Exit();
 133 }
 134
 135 // ============================================================================
 136 // wxApp
 137 // ============================================================================
 138
 139 wxApp::wxApp()
 140 {
 141     argc = 0;
 142     argv = NULL;
 143
 144     m_mainLoop = new wxEventLoop;
 145     m_mainColormap = (WXColormap) NULL;
 146     m_appContext = (WXAppContext) NULL;
 147     m_initialDisplay = (WXDisplay*) 0;
 148     m_perDisplayData = new wxPerDisplayDataMap;
 149 }
 150
 151 wxApp::~wxApp()
 152 {
 153     wxApp::SetInstance(NULL);
 154 }
 155
 156 int wxApp::MainLoop()
 157 {
 158     /*
 159     * Sit around forever waiting to process X-events. Property Change
 160     * event are handled special, because they have to refer to
 161     * the root window rather than to a widget. therefore we can't
 162     * use an Xt-eventhandler.
 163     */
 164
 165     XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
 166         XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
 167         PropertyChangeMask);
 168
 169     m_mainLoop->Run();
 170
 171     return 0;
 172 }
 173
 174 // This should be redefined in a derived class for
 175 // handling property change events for XAtom IPC.
 176 void wxApp::HandlePropertyChange(WXEvent *event)
 177 {
 178     // by default do nothing special
 179     XtDispatchEvent((XEvent*) event); /* let Motif do the work */
 180 }
 181
 182 static char *fallbackResources[] = {
 183     "*menuBar.marginHeight: 0",
 184     "*menuBar.shadowThickness: 1",
 185     "*background: #c0c0c0",
 186     "*foreground: black",
 187     NULL
 188 };
 189
 190 // Create an application context
 191 bool wxApp::OnInitGui()
 192 {
 193     if( !wxAppBase::OnInitGui() )
 194         return false;
 195
 196     XtSetLanguageProc(NULL, NULL, NULL);
 197     XtToolkitInitialize() ;
 198     wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext();
 199     XtAppSetFallbackResources((XtAppContext) wxTheApp->m_appContext, fallbackResources);
 200
 201     Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL,
 202         wxTheApp->GetClassName().c_str(), NULL, 0,
 203 # if XtSpecificationRelease < 5
 204         (Cardinal*) &argc,
 205 # else
 206         &argc,
 207 # endif
 208         argv);
 209
 210     if (!dpy) {
 211          // if you don't log to stderr, nothing will be shown...
 212         delete wxLog::SetActiveTarget(new wxLogStderr);
 213         wxString className(wxTheApp->GetClassName());
 214         wxLogError(_("wxWidgets could not open display for '%s': exiting."),
 215                    className.c_str());
 216         exit(-1);
 217     }
 218     m_initialDisplay = (WXDisplay*) dpy;
 219
 220 #ifdef __WXDEBUG__
 221     // install the X error handler
 222     gs_pfnXErrorHandler = XSetErrorHandler(wxXErrorHandler);
 223 #endif // __WXDEBUG__
 224
 225     // Add general resize proc
 226     XtActionsRec rec;
 227     rec.string = "resize";
 228     rec.proc = (XtActionProc)wxWidgetResizeProc;
 229     XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1);
 230
 231     GetMainColormap(dpy);
 232
 233     wxAddIdleCallback();
 234
 235     return true;
 236 }
 237
 238 WXColormap wxApp::GetMainColormap(WXDisplay* display)
 239 {
 240     if (!display) /* Must be called first with non-NULL display */
 241         return m_mainColormap;
 242
 243     int defaultScreen = DefaultScreen((Display*) display);
 244     Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
 245
 246     Colormap c = DefaultColormapOfScreen(screen);
 247
 248     if (!m_mainColormap)
 249         m_mainColormap = (WXColormap) c;
 250
 251     return (WXColormap) c;
 252 }
 253
 254 static inline wxPerDisplayData& GetOrCreatePerDisplayData
 255     ( wxPerDisplayDataMap& m, WXDisplay* display )
 256 {
 257     wxPerDisplayDataMap::iterator it = m.find( display );
 258     if( it != m.end() && it->second != NULL )
 259         return *(it->second);
 260
 261     wxPerDisplayData* nData = new wxPerDisplayData();
 262     m[display] = nData;
 263
 264     return *nData;
 265 }
 266
 267 wxXVisualInfo* wxApp::GetVisualInfo( WXDisplay* display )
 268 {
 269     wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
 270                                                         display );
 271     if( data.m_visualInfo )
 272         return data.m_visualInfo;
 273
 274     wxXVisualInfo* vi = new wxXVisualInfo;
 275     wxFillXVisualInfo( vi, (Display*)display );
 276
 277     data.m_visualInfo = vi;
 278
 279     return vi;
 280 }
 281
 282 static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData,
 283                                       XtPointer ptr)
 284 {
 285     if( wxTheApp )
 286     {
 287         wxTheApp->SetTopLevelWidget( (WXDisplay*)XtDisplay(w),
 288                                      (WXWidget)NULL );
 289         wxTheApp->SetTopLevelRealizedWidget( (WXDisplay*)XtDisplay(w),
 290                                              (WXWidget)NULL );
 291     }
 292 }
 293
 294 WXWidget wxCreateTopLevelWidget( WXDisplay* display )
 295 {
 296     Widget tlw = XtAppCreateShell( (String)NULL,
 297                                    wxTheApp->GetClassName().c_str(),
 298                                    applicationShellWidgetClass,
 299                                    (Display*)display,
 300                                    NULL, 0 );
 301     XtVaSetValues( tlw,
 302                    XmNoverrideRedirect, True,
 303                    NULL );
 304
 305     XtAddCallback( tlw, XmNdestroyCallback,
 306                    (XtCallbackProc)wxTLWidgetDestroyCallback,
 307                    (XtPointer)NULL );
 308
 309     return (WXWidget)tlw;
 310 }
 311
 312 WXWidget wxCreateTopLevelRealizedWidget( WXDisplay* display )
 313 {
 314     Widget rTlw = XtVaCreateWidget( "dummy_widget", topLevelShellWidgetClass,
 315                                     (Widget)wxTheApp->GetTopLevelWidget(),
 316                                      NULL, 0 );
 317     XtSetMappedWhenManaged( rTlw, False );
 318     XtRealizeWidget( rTlw );
 319
 320     return (WXWidget)rTlw;
 321 }
 322
 323 WXWidget wxApp::GetTopLevelWidget()
 324 {
 325     WXDisplay* display = wxGetDisplay();
 326     wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
 327                                                         display );
 328     if( data.m_topLevelWidget )
 329         return (WXWidget)data.m_topLevelWidget;
 330
 331     WXWidget tlw = wxCreateTopLevelWidget( display );
 332     SetTopLevelWidget( display, tlw );
 333
 334     return tlw;
 335 }
 336
 337 WXWidget wxApp::GetTopLevelRealizedWidget()
 338 {
 339     WXDisplay* display = wxGetDisplay();
 340     wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display );
 341
 342     if( it != m_perDisplayData->end() && it->second->m_topLevelRealizedWidget )
 343         return (WXWidget)it->second->m_topLevelRealizedWidget;
 344
 345     WXWidget rTlw = wxCreateTopLevelRealizedWidget( display );
 346     SetTopLevelRealizedWidget( display, rTlw );
 347
 348     return rTlw;
 349 }
 350
 351 void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget)
 352 {
 353     GetOrCreatePerDisplayData( *m_perDisplayData, display )
 354         .m_topLevelWidget = (Widget)widget;
 355 }
 356
 357 void wxApp::SetTopLevelRealizedWidget(WXDisplay* display, WXWidget widget)
 358 {
 359     GetOrCreatePerDisplayData( *m_perDisplayData, display )
 360         .m_topLevelRealizedWidget = (Widget)widget;
 361 }
 362
 363 // Yield to other processes
 364
 365 bool wxApp::Yield(bool onlyIfNeeded)
 366 {
 367     static bool s_inYield = false;
 368
 369     if ( s_inYield )
 370     {
 371         if ( !onlyIfNeeded )
 372         {
 373             wxFAIL_MSG( wxT("wxYield called recursively" ) );
 374         }
 375
 376         return false;
 377     }
 378
 379     s_inYield = true;
 380
 381     while (wxTheApp && wxTheApp->Pending())
 382         wxTheApp->Dispatch();
 383
 384     s_inYield = false;
 385
 386     return true;
 387 }
 388
 389 // ----------------------------------------------------------------------------
 390 // accessors for C modules
 391 // ----------------------------------------------------------------------------
 392
 393 extern "C" XtAppContext wxGetAppContext()
 394 {
 395     return (XtAppContext)wxTheApp->GetAppContext();
 396 }