]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/motif/app.cpp
deTABbed wxQsort()
[wxWidgets.git] / src / motif / app.cpp
... / ...
CommitLineData
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 #include "wx/log.h"
26 #include "wx/utils.h"
27 #include "wx/memory.h"
28 #include "wx/font.h"
29#endif
30
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
53struct 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
66static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData,
67 XtPointer ptr);
68static WXWidget wxCreateTopLevelWidget( WXDisplay* display );
69
70extern bool wxAddIdleCallback();
71
72wxHashTable *wxWidgetHashTable = NULL;
73
74IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
75
76#ifdef __WXDEBUG__
77extern "C"
78{
79 typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *);
80}
81
82XErrorHandlerFunc gs_pfnXErrorHandler = 0;
83
84extern "C"
85{
86
87static int wxXErrorHandler(Display *dpy, XErrorEvent *xevent)
88{
89 // just forward to the default handler for now
90 return gs_pfnXErrorHandler(dpy, xevent);
91}
92
93}
94#endif // __WXDEBUG__
95
96bool wxApp::Initialize(int& argcOrig, wxChar **argvOrig)
97{
98#if wxUSE_INTL
99 wxFont::SetDefaultEncoding(wxLocale::GetSystemEncoding());
100#endif
101
102 if ( !wxAppBase::Initialize(argcOrig, argvOrig) )
103 return false;
104
105 wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER);
106
107 return true;
108}
109
110void wxApp::CleanUp()
111{
112 wxAppBase::CleanUp();
113
114 delete wxWidgetHashTable;
115 wxWidgetHashTable = NULL;
116
117 delete m_mainLoop;
118
119 for( wxPerDisplayDataMap::iterator it = m_perDisplayData->begin(),
120 end = m_perDisplayData->end();
121 it != end; ++it )
122 {
123 delete it->second->m_visualInfo;
124 // On Solaris 10 calling XtDestroyWidget on the top level widget
125 // dumps core if the locale is set to something other than "C"
126#ifndef __SUN__
127 XtDestroyWidget( it->second->m_topLevelWidget );
128#endif
129 delete it->second;
130 }
131}
132
133void wxApp::Exit()
134{
135 wxApp::CleanUp();
136
137 wxAppConsole::Exit();
138}
139
140// ============================================================================
141// wxApp
142// ============================================================================
143
144wxApp::wxApp()
145{
146 argc = 0;
147 argv = NULL;
148
149 m_mainLoop = new wxEventLoop;
150 m_mainColormap = (WXColormap) NULL;
151 m_appContext = (WXAppContext) NULL;
152 m_initialDisplay = (WXDisplay*) 0;
153 m_perDisplayData = new wxPerDisplayDataMap;
154}
155
156wxApp::~wxApp()
157{
158 delete m_perDisplayData;
159}
160
161int wxApp::MainLoop()
162{
163 /*
164 * Sit around forever waiting to process X-events. Property Change
165 * event are handled special, because they have to refer to
166 * the root window rather than to a widget. therefore we can't
167 * use an Xt-eventhandler.
168 */
169
170 XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
171 XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
172 PropertyChangeMask);
173
174 m_mainLoop->Run();
175
176 return 0;
177}
178
179// This should be redefined in a derived class for
180// handling property change events for XAtom IPC.
181void wxApp::HandlePropertyChange(WXEvent *event)
182{
183 // by default do nothing special
184 XtDispatchEvent((XEvent*) event); /* let Motif do the work */
185}
186
187static char *fallbackResources[] = {
188 // better defaults for CDE under Irix
189 //
190 // TODO: do something similar for the other systems, the hardcoded defaults
191 // below are ugly
192#ifdef __SGI__
193 wxMOTIF_STR("*sgiMode: True"),
194 wxMOTIF_STR("*useSchemes: all"),
195#else // !__SGI__
196#if !wxMOTIF_USE_RENDER_TABLE
197 wxMOTIF_STR("*.fontList: -*-helvetica-medium-r-normal-*-*-120-*-*-*-*-*-*"),
198#else
199 wxMOTIF_STR("*wxDefaultRendition.fontName: -*-helvetica-medium-r-normal-*-*-120-*-*-*-*-*-*"),
200 wxMOTIF_STR("*wxDefaultRendition.fontType: FONT_IS_FONTSET"),
201 wxMOTIF_STR("*.renderTable: wxDefaultRendition"),
202#endif
203 wxMOTIF_STR("*listBox.background: white"),
204 wxMOTIF_STR("*text.background: white"),
205 wxMOTIF_STR("*comboBox.Text.background: white"),
206 wxMOTIF_STR("*comboBox.List.background: white"),
207#endif // __SGI__/!__SGI__
208 NULL
209};
210
211// Create an application context
212bool 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 // FIXME-UTF8: This code is taken from wxGTK and duplicated here. This
264 // is just a temporary fix to make wxX11 compile in Unicode
265 // build, the real fix is to change Initialize()'s signature
266 // to use char* on Unix.
267#if wxUSE_UNICODE
268 // XtOpenDisplay() wants char*, not wchar_t*, so convert
269 int i;
270 char **argvX11 = new char *[argc + 1];
271 for ( i = 0; i < argc; i++ )
272 {
273 argvX11[i] = strdup(wxConvLibc.cWX2MB(argv[i]));
274 }
275
276 argvX11[argc] = NULL;
277
278 int argcX11 = argc;
279
280 Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,
281 (String)NULL,
282 appname.c_str(),
283 clsname.c_str(),
284 NULL, 0, // no options
285# if XtSpecificationRelease < 5
286 (Cardinal*) &argcX11,
287# else
288 &argcX11,
289# endif
290 argvX11);
291
292 if ( argcX11 != argc )
293 {
294 // we have to drop the parameters which were consumed by X11+
295 for ( i = 0; i < argcX11; i++ )
296 {
297 while ( strcmp(wxConvLibc.cWX2MB(argv[i]), argvX11[i]) != 0 )
298 {
299 memmove(argv + i, argv + i + 1, (argc - i)*sizeof(*argv));
300 }
301 }
302
303 argc = argcX11;
304 }
305 //else: XtOpenDisplay() didn't modify our parameters
306
307 // free our copy
308 for ( i = 0; i < argcX11; i++ )
309 {
310 free(argvX11[i]);
311 }
312
313 delete [] argvX11;
314
315#else // ANSI
316
317 Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,
318 (String)NULL,
319 appname.c_str(),
320 clsname.c_str(),
321 NULL, 0, // no options
322# if XtSpecificationRelease < 5
323 (Cardinal*) &argc,
324# else
325 &argc,
326# endif
327 argv);
328
329#endif // Unicode/ANSI
330
331 if (!dpy) {
332 // if you don't log to stderr, nothing will be shown...
333 delete wxLog::SetActiveTarget(new wxLogStderr);
334 wxString className(wxTheApp->GetClassName());
335 wxLogError(_("wxWidgets could not open display for '%s': exiting."),
336 className.c_str());
337 exit(-1);
338 }
339 m_initialDisplay = (WXDisplay*) dpy;
340
341#ifdef __WXDEBUG__
342 // install the X error handler
343 gs_pfnXErrorHandler = XSetErrorHandler(wxXErrorHandler);
344#endif // __WXDEBUG__
345
346 // Add general resize proc
347 XtActionsRec rec;
348 rec.string = wxMOTIF_STR("resize");
349 rec.proc = (XtActionProc)wxWidgetResizeProc;
350 XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1);
351
352 GetMainColormap(dpy);
353
354 wxAddIdleCallback();
355
356 return true;
357}
358
359WXColormap wxApp::GetMainColormap(WXDisplay* display)
360{
361 if (!display) /* Must be called first with non-NULL display */
362 return m_mainColormap;
363
364 int defaultScreen = DefaultScreen((Display*) display);
365 Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
366
367 Colormap c = DefaultColormapOfScreen(screen);
368
369 if (!m_mainColormap)
370 m_mainColormap = (WXColormap) c;
371
372 return (WXColormap) c;
373}
374
375static inline wxPerDisplayData& GetOrCreatePerDisplayData
376 ( wxPerDisplayDataMap& m, WXDisplay* display )
377{
378 wxPerDisplayDataMap::iterator it = m.find( display );
379 if( it != m.end() && it->second != NULL )
380 return *(it->second);
381
382 wxPerDisplayData* nData = new wxPerDisplayData();
383 m[display] = nData;
384
385 return *nData;
386}
387
388wxXVisualInfo* wxApp::GetVisualInfo( WXDisplay* display )
389{
390 wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
391 display );
392 if( data.m_visualInfo )
393 return data.m_visualInfo;
394
395 wxXVisualInfo* vi = new wxXVisualInfo;
396 wxFillXVisualInfo( vi, (Display*)display );
397
398 data.m_visualInfo = vi;
399
400 return vi;
401}
402
403static void wxTLWidgetDestroyCallback(Widget w, XtPointer WXUNUSED(clientData),
404 XtPointer WXUNUSED(ptr))
405{
406 if( wxTheApp )
407 {
408 wxTheApp->SetTopLevelWidget( (WXDisplay*)XtDisplay(w),
409 (WXWidget)NULL );
410 wxTheApp->SetTopLevelRealizedWidget( (WXDisplay*)XtDisplay(w),
411 (WXWidget)NULL );
412 }
413}
414
415WXWidget wxCreateTopLevelWidget( WXDisplay* display )
416{
417 Widget tlw = XtAppCreateShell( (String)NULL,
418 wxTheApp->GetClassName().c_str(),
419 applicationShellWidgetClass,
420 (Display*)display,
421 NULL, 0 );
422 XtVaSetValues( tlw,
423 XmNoverrideRedirect, True,
424 NULL );
425
426 XtAddCallback( tlw, XmNdestroyCallback,
427 (XtCallbackProc)wxTLWidgetDestroyCallback,
428 (XtPointer)NULL );
429
430 return (WXWidget)tlw;
431}
432
433WXWidget wxCreateTopLevelRealizedWidget( WXDisplay* WXUNUSED(display) )
434{
435 Widget rTlw = XtVaCreateWidget( "dummy_widget", topLevelShellWidgetClass,
436 (Widget)wxTheApp->GetTopLevelWidget(),
437 NULL );
438 XtSetMappedWhenManaged( rTlw, False );
439 XtRealizeWidget( rTlw );
440
441 return (WXWidget)rTlw;
442}
443
444WXWidget wxApp::GetTopLevelWidget()
445{
446 WXDisplay* display = wxGetDisplay();
447 wxPerDisplayData& data = GetOrCreatePerDisplayData( *m_perDisplayData,
448 display );
449 if( data.m_topLevelWidget )
450 return (WXWidget)data.m_topLevelWidget;
451
452 WXWidget tlw = wxCreateTopLevelWidget( display );
453 SetTopLevelWidget( display, tlw );
454
455 return tlw;
456}
457
458WXWidget wxApp::GetTopLevelRealizedWidget()
459{
460 WXDisplay* display = wxGetDisplay();
461 wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display );
462
463 if( it != m_perDisplayData->end() && it->second->m_topLevelRealizedWidget )
464 return (WXWidget)it->second->m_topLevelRealizedWidget;
465
466 WXWidget rTlw = wxCreateTopLevelRealizedWidget( display );
467 SetTopLevelRealizedWidget( display, rTlw );
468
469 return rTlw;
470}
471
472void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget)
473{
474 GetOrCreatePerDisplayData( *m_perDisplayData, display )
475 .m_topLevelWidget = (Widget)widget;
476}
477
478void wxApp::SetTopLevelRealizedWidget(WXDisplay* display, WXWidget widget)
479{
480 GetOrCreatePerDisplayData( *m_perDisplayData, display )
481 .m_topLevelRealizedWidget = (Widget)widget;
482}
483
484// Yield to other processes
485
486bool wxApp::Yield(bool onlyIfNeeded)
487{
488 static bool s_inYield = false;
489
490 if ( s_inYield )
491 {
492 if ( !onlyIfNeeded )
493 {
494 wxFAIL_MSG( wxT("wxYield called recursively" ) );
495 }
496
497 return false;
498 }
499
500 s_inYield = true;
501
502 while (wxTheApp && wxTheApp->Pending())
503 wxTheApp->Dispatch();
504
505 s_inYield = false;
506
507 return true;
508}
509
510// ----------------------------------------------------------------------------
511// accessors for C modules
512// ----------------------------------------------------------------------------
513
514extern "C" XtAppContext wxGetAppContext()
515{
516 return (XtAppContext)wxTheApp->GetAppContext();
517}