]>
Commit | Line | Data |
---|---|---|
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 | ||
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 bool wxAddIdleCallback(); | |
71 | ||
72 | wxHashTable *wxWidgetHashTable = NULL; | |
73 | ||
74 | IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler) | |
75 | ||
76 | #ifdef __WXDEBUG__ | |
77 | extern "C" | |
78 | { | |
79 | typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *); | |
80 | } | |
81 | ||
82 | XErrorHandlerFunc gs_pfnXErrorHandler = 0; | |
83 | ||
84 | extern "C" | |
85 | { | |
86 | ||
87 | static 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 | ||
96 | bool 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 | ||
110 | void 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 | ||
133 | void wxApp::Exit() | |
134 | { | |
135 | wxApp::CleanUp(); | |
136 | ||
137 | wxAppConsole::Exit(); | |
138 | } | |
139 | ||
140 | // ============================================================================ | |
141 | // wxApp | |
142 | // ============================================================================ | |
143 | ||
144 | wxApp::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 | ||
156 | wxApp::~wxApp() | |
157 | { | |
158 | delete m_perDisplayData; | |
159 | } | |
160 | ||
161 | int 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. | |
181 | void wxApp::HandlePropertyChange(WXEvent *event) | |
182 | { | |
183 | // by default do nothing special | |
184 | XtDispatchEvent((XEvent*) event); /* let Motif do the work */ | |
185 | } | |
186 | ||
187 | static 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 | |
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 | // 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 | ||
359 | WXColormap 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 | ||
375 | static 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 | ||
388 | wxXVisualInfo* 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 | ||
403 | static 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 | ||
415 | WXWidget 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 | ||
433 | WXWidget 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 | ||
444 | WXWidget 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 | ||
458 | WXWidget 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 | ||
472 | void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget) | |
473 | { | |
474 | GetOrCreatePerDisplayData( *m_perDisplayData, display ) | |
475 | .m_topLevelWidget = (Widget)widget; | |
476 | } | |
477 | ||
478 | void 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 | ||
486 | bool 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 | ||
514 | extern "C" XtAppContext wxGetAppContext() | |
515 | { | |
516 | return (XtAppContext)wxTheApp->GetAppContext(); | |
517 | } |