src/motif/app.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/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 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __VMS
  16 #define XtParent XTPARENT
  17 #define XtDisplay XTDISPLAY
  18 #endif
  19
  20 #include "wx/app.h"
  21
  22 #ifndef WX_PRECOMP
  23     #include "wx/hash.h"
  24     #include "wx/intl.h"
  25 #endif
  26
  27 #include "wx/utils.h"
  28 #include "wx/module.h"
  29 #include "wx/memory.h"
  30 #include "wx/log.h"
  31 #include "wx/evtloop.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 extern "C"
  83 {
  84     typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *);
  85 }
  86
  87 XErrorHandlerFunc gs_pfnXErrorHandler = 0;
  88
  89 extern "C"
  90 {
  91
  92 static int wxXErrorHandler(Display *dpy, XErrorEvent *xevent)
  93 {
  94     // just forward to the default handler for now
  95     return gs_pfnXErrorHandler(dpy, xevent);
  96 }
  97
  98 }
  99 #endif // __WXDEBUG__
 100
 101 bool wxApp::Initialize(int& argcOrig, wxChar **argvOrig)
 102 {
 103     if ( !wxAppBase::Initialize(argcOrig, argvOrig) )
 104         return false;
 105
 106     wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER);
 107
 108 #if wxUSE_INTL
 109     wxFont::SetDefaultEncoding(wxLocale::GetSystemEncoding());
 110 #endif
 111
 112     return true;
 113 }
 114
 115 void wxApp::CleanUp()
 116 {
 117     wxAppBase::CleanUp();
 118
 119     delete wxWidgetHashTable;
 120     wxWidgetHashTable = NULL;
 121
 122     delete m_mainLoop;
 123
 124     for( wxPerDisplayDataMap::iterator it  = m_perDisplayData->begin(),
 125                                        end = m_perDisplayData->end();
 126          it != end; ++it )
 127     {
 128         delete it->second->m_visualInfo;
 129         // On Solaris 10 calling XtDestroyWidget on the top level widget
 130         // dumps core if the locale is set to something other than "C"
 131 #ifndef __SUN__
 132         XtDestroyWidget( it->second->m_topLevelWidget );
 133 #endif
 134         delete it->second;
 135     }
 136
 137     delete m_perDisplayData;
 138 }
 139
 140 void wxApp::Exit()
 141 {
 142     wxApp::CleanUp();
 143
 144     wxAppConsole::Exit();
 145 }
 146
 147 // ============================================================================
 148 // wxApp
 149 // ============================================================================
 150
 151 wxApp::wxApp()
 152 {
 153     argc = 0;
 154     argv = NULL;
 155
 156     m_mainLoop = new wxEventLoop;
 157     m_mainColormap = (WXColormap) NULL;
 158     m_appContext = (WXAppContext) NULL;
 159     m_initialDisplay = (WXDisplay*) 0;
 160     m_perDisplayData = new wxPerDisplayDataMap;
 161 }
 162
 163 wxApp::~wxApp()
 164 {
 165     wxApp::SetInstance(NULL);
 166 }
 167
 168 int wxApp::MainLoop()
 169 {
 170     /*
 171     * Sit around forever waiting to process X-events. Property Change
 172     * event are handled special, because they have to refer to
 173     * the root window rather than to a widget. therefore we can't
 174     * use an Xt-eventhandler.
 175     */
 176
 177     XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
 178         XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
 179         PropertyChangeMask);
 180
 181     m_mainLoop->Run();
 182
 183     return 0;
 184 }
 185
 186 // This should be redefined in a derived class for
 187 // handling property change events for XAtom IPC.
 188 void wxApp::HandlePropertyChange(WXEvent *event)
 189 {
 190     // by default do nothing special
 191     XtDispatchEvent((XEvent*) event); /* let Motif do the work */
 192 }
 193
 194 static char *fallbackResources[] = {
 195     // better defaults for CDE under Irix
 196     //
 197     // TODO: do something similar for the other systems, the hardcoded defaults
 198     //       below are ugly
 199 #ifdef __SGI__
 200     wxMOTIF_STR("*sgiMode: True"),
 201     wxMOTIF_STR("*useSchemes: all"),
 202 #else // !__SGI__
 203     wxMOTIF_STR("*menuBar.marginHeight: 0"),
 204     wxMOTIF_STR("*menuBar.shadowThickness: 1"),
 205     wxMOTIF_STR("*background: #c0c0c0"),
 206     wxMOTIF_STR("*foreground: black"),
 207 #endif // __SGI__/!__SGI__
 208     NULL
 209 };
 210
 211 // Create an application context
 212 bool wxApp::OnInitGui()
 213 {
 214     if( !wxAppBase::OnInitGui() )
 215         return false;
 216
 217 #ifdef __HPUX__
 218     // under HP-UX creating XmFontSet fails when the system locale is C and
 219     // we're using a remote DISPLAY, presumably because HP-UX uses its own
 220     // names for C and ISO locales (roman8 and iso8859n respectively) and so
 221     // its Motif libraries have troubles with non-HP X server
 222     //
 223     // whatever the reason, the fact is that without this hack any wxMotif
 224     // program crashes on startup because it can't create any font (HP programs
 225     // still work but they do spit out messages about failing to create font
 226     // sets and failing back on "fixed" font too)
 227     //
 228     // notice that calling setlocale() here is not enough because X(m) init
 229     // functions call setlocale() later so we really have to change environment
 230     bool fixAll = false; // tweak LC_ALL (or just LC_CTYPE)?
 231     const char *loc = getenv("LC_CTYPE");
 232     if ( !loc )
 233     {
 234         loc = getenv("LC_ALL");
 235         if ( loc )
 236             fixAll = true;
 237     }
 238
 239     if ( !loc ||
 240             (loc[0] == 'C' && loc[1] == '\0') ||
 241                 strcmp(loc, "POSIX") == 0 )
 242     {
 243         // we're using C locale, "fix" it
 244         wxLogDebug(_T("HP-UX fontset hack: forcing locale to en_US.iso88591"));
 245         putenv(fixAll ? "LC_ALL=en_US.iso88591" : "LC_CTYPE=en_US.iso88591");
 246     }
 247 #endif // __HPUX__
 248
 249     XtSetLanguageProc(NULL, NULL, NULL);
 250     XtToolkitInitialize() ;
 251     wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext();
 252     XtAppSetFallbackResources((XtAppContext) wxTheApp->m_appContext, fallbackResources);
 253
 254     // we shouldn't pass empty application/class name as it results in
 255     // immediate crash inside XOpenIM() (if XIM is used) under IRIX
 256     wxString appname = wxTheApp->GetAppName();
 257     if ( appname.empty() )
 258         appname = _T("wxapp");
 259     wxString clsname = wxTheApp->GetClassName();
 260     if ( clsname.empty() )
 261         clsname = _T("wx");
 262
 263     Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,
 264         (String)NULL,
 265         appname.c_str(),
 266         clsname.c_str(),
 267         NULL, 0,    // no options
 268 # if XtSpecificationRelease < 5
 269         (Cardinal*) &argc,
 270 # else
 271         &argc,
 272 # endif
 273         argv);
 274
 275     if (!dpy) {
 276          // if you don't log to stderr, nothing will be shown...
 277         delete wxLog::SetActiveTarget(new wxLogStderr);
 278         wxString className(wxTheApp->GetClassName());
 279         wxLogError(_("wxWidgets could not open display for '%s': exiting."),
 280                    className.c_str());
 281         exit(-1);
 282     }
 283     m_initialDisplay = (WXDisplay*) dpy;
 284
 285 #ifdef __WXDEBUG__
 286     // install the X error handler
 287     gs_pfnXErrorHandler = XSetErrorHandler(wxXErrorHandler);
 288 #endif // __WXDEBUG__
 289
 290     // Add general resize proc
 291     XtActionsRec rec;
 292     rec.string = wxMOTIF_STR("resize");
 293     rec.proc = (XtActionProc)wxWidgetResizeProc;
 294     XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1);
 295
 296     GetMainColormap(dpy);
 297
 298     wxAddIdleCallback();
 299
 300     return true;
 301 }
 302
 303 WXColormap wxApp::GetMainColormap(WXDisplay* display)
 304 {
 305     if (!display) /* Must be called first with non-NULL display */
 306         return m_mainColormap;
 307
 308     int defaultScreen = DefaultScreen((Display*) display);
 309     Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
 310
 311     Colormap c = DefaultColormapOfScreen(screen);
 312
 313     if (!m_mainColormap)
 314         m_mainColormap = (WXColormap) c;
 315
 316     return (WXColormap) c;
 317 }
 318
 319 static inline wxPerDisplayData& GetOrCreatePerDisplayData
 320     ( wxPerDisplayDataMap& m, WXDisplay* display )
 321 {
 322     wxPerDisplayDataMap::iterator it = m.find( display );
 323     if( it != m.end() && it->second != NULL )
 324         return *(it->second);
 325
 326     wxPerDisplayData* nData = new wxPerDisplayData();
 327     m[display] = nData;
 328
 329     return *nData;
 330 }
 331
 332 wxXVisualInfo* wxApp::GetVisualInfo( WXDisplay* display )
 333 {
 334     wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
 335                                                         display );
 336     if( data.m_visualInfo )
 337         return data.m_visualInfo;
 338
 339     wxXVisualInfo* vi = new wxXVisualInfo;
 340     wxFillXVisualInfo( vi, (Display*)display );
 341
 342     data.m_visualInfo = vi;
 343
 344     return vi;
 345 }
 346
 347 static void wxTLWidgetDestroyCallback(Widget w, XtPointer WXUNUSED(clientData),
 348                                       XtPointer WXUNUSED(ptr))
 349 {
 350     if( wxTheApp )
 351     {
 352         wxTheApp->SetTopLevelWidget( (WXDisplay*)XtDisplay(w),
 353                                      (WXWidget)NULL );
 354         wxTheApp->SetTopLevelRealizedWidget( (WXDisplay*)XtDisplay(w),
 355                                              (WXWidget)NULL );
 356     }
 357 }
 358
 359 WXWidget wxCreateTopLevelWidget( WXDisplay* display )
 360 {
 361     Widget tlw = XtAppCreateShell( (String)NULL,
 362                                    wxTheApp->GetClassName().c_str(),
 363                                    applicationShellWidgetClass,
 364                                    (Display*)display,
 365                                    NULL, 0 );
 366     XtVaSetValues( tlw,
 367                    XmNoverrideRedirect, True,
 368                    NULL );
 369
 370     XtAddCallback( tlw, XmNdestroyCallback,
 371                    (XtCallbackProc)wxTLWidgetDestroyCallback,
 372                    (XtPointer)NULL );
 373
 374     return (WXWidget)tlw;
 375 }
 376
 377 WXWidget wxCreateTopLevelRealizedWidget( WXDisplay* WXUNUSED(display) )
 378 {
 379     Widget rTlw = XtVaCreateWidget( "dummy_widget", topLevelShellWidgetClass,
 380                                     (Widget)wxTheApp->GetTopLevelWidget(),
 381                                      NULL );
 382     XtSetMappedWhenManaged( rTlw, False );
 383     XtRealizeWidget( rTlw );
 384
 385     return (WXWidget)rTlw;
 386 }
 387
 388 WXWidget wxApp::GetTopLevelWidget()
 389 {
 390     WXDisplay* display = wxGetDisplay();
 391     wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
 392                                                         display );
 393     if( data.m_topLevelWidget )
 394         return (WXWidget)data.m_topLevelWidget;
 395
 396     WXWidget tlw = wxCreateTopLevelWidget( display );
 397     SetTopLevelWidget( display, tlw );
 398
 399     return tlw;
 400 }
 401
 402 WXWidget wxApp::GetTopLevelRealizedWidget()
 403 {
 404     WXDisplay* display = wxGetDisplay();
 405     wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display );
 406
 407     if( it != m_perDisplayData->end() && it->second->m_topLevelRealizedWidget )
 408         return (WXWidget)it->second->m_topLevelRealizedWidget;
 409
 410     WXWidget rTlw = wxCreateTopLevelRealizedWidget( display );
 411     SetTopLevelRealizedWidget( display, rTlw );
 412
 413     return rTlw;
 414 }
 415
 416 void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget)
 417 {
 418     GetOrCreatePerDisplayData( *m_perDisplayData, display )
 419         .m_topLevelWidget = (Widget)widget;
 420 }
 421
 422 void wxApp::SetTopLevelRealizedWidget(WXDisplay* display, WXWidget widget)
 423 {
 424     GetOrCreatePerDisplayData( *m_perDisplayData, display )
 425         .m_topLevelRealizedWidget = (Widget)widget;
 426 }
 427
 428 // Yield to other processes
 429
 430 bool wxApp::Yield(bool onlyIfNeeded)
 431 {
 432     static bool s_inYield = false;
 433
 434     if ( s_inYield )
 435     {
 436         if ( !onlyIfNeeded )
 437         {
 438             wxFAIL_MSG( wxT("wxYield called recursively" ) );
 439         }
 440
 441         return false;
 442     }
 443
 444     s_inYield = true;
 445
 446     while (wxTheApp && wxTheApp->Pending())
 447         wxTheApp->Dispatch();
 448
 449     s_inYield = false;
 450
 451     return true;
 452 }
 453
 454 // ----------------------------------------------------------------------------
 455 // accessors for C modules
 456 // ----------------------------------------------------------------------------
 457
 458 extern "C" XtAppContext wxGetAppContext()
 459 {
 460     return (XtAppContext)wxTheApp->GetAppContext();
 461 }