]>
Commit | Line | Data |
---|---|---|
4bb6408c JS |
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 | |
afb74891 | 9 | // Licence: wxWindows licence |
4bb6408c JS |
10 | ///////////////////////////////////////////////////////////////////////////// |
11 | ||
12 | #ifdef __GNUG__ | |
ee31c392 | 13 | #pragma implementation "app.h" |
4bb6408c JS |
14 | #endif |
15 | ||
bcd055ae JJ |
16 | #ifdef __VMS |
17 | #define XtParent XTPARENT | |
18 | #define XtDisplay XTDISPLAY | |
19 | #endif | |
20 | ||
4bb6408c JS |
21 | #include "wx/app.h" |
22 | #include "wx/utils.h" | |
4bb6408c JS |
23 | #include "wx/module.h" |
24 | #include "wx/memory.h" | |
8bedcdce RR |
25 | #include "wx/log.h" |
26 | #include "wx/intl.h" | |
7e1bcfa8 | 27 | #include "wx/evtloop.h" |
ed39ff57 | 28 | #include "wx/hash.h" |
9ce8d6a2 | 29 | #include "wx/hashmap.h" |
b412f9be | 30 | |
7bcb11d3 | 31 | #if wxUSE_THREADS |
dfe1eee3 | 32 | #include "wx/thread.h" |
7bcb11d3 | 33 | #endif |
4bb6408c | 34 | |
338dd992 JJ |
35 | #ifdef __VMS__ |
36 | #pragma message disable nosimpint | |
37 | #endif | |
4bb6408c JS |
38 | #include <Xm/Xm.h> |
39 | #include <X11/Xlib.h> | |
40 | #include <X11/Xutil.h> | |
41 | #include <X11/Xresource.h> | |
42 | #include <X11/Xatom.h> | |
338dd992 JJ |
43 | #ifdef __VMS__ |
44 | #pragma message enable nosimpint | |
45 | #endif | |
4bb6408c JS |
46 | |
47 | #include "wx/motif/private.h" | |
48 | ||
49 | #include <string.h> | |
50 | ||
eb6fa4b4 MB |
51 | struct wxPerDisplayData |
52 | { | |
53 | wxPerDisplayData() | |
54 | { m_visualInfo = NULL; m_topLevelWidget = NULL; } | |
55 | ||
56 | wxXVisualInfo* m_visualInfo; | |
57 | Widget m_topLevelWidget; | |
58 | }; | |
59 | ||
60 | WX_DECLARE_VOIDPTR_HASH_MAP( wxPerDisplayData, wxPerDisplayDataMap ); | |
61 | ||
62 | static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData, | |
63 | XtPointer ptr); | |
64 | static WXWidget wxCreateTopLevelWidget( WXDisplay* display ); | |
9ce8d6a2 | 65 | |
4bb6408c | 66 | extern wxList wxPendingDelete; |
7e1bcfa8 | 67 | extern bool wxAddIdleCallback(); |
7491d644 | 68 | |
4bb6408c JS |
69 | wxHashTable *wxWidgetHashTable = NULL; |
70 | ||
4bb6408c | 71 | IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler) |
9c6e1335 | 72 | |
4bb6408c | 73 | BEGIN_EVENT_TABLE(wxApp, wxEvtHandler) |
9c6e1335 | 74 | EVT_IDLE(wxApp::OnIdle) |
4bb6408c | 75 | END_EVENT_TABLE() |
4bb6408c | 76 | |
e838cc14 VZ |
77 | #ifdef __WXDEBUG__ |
78 | typedef int (*XErrorHandlerFunc)(Display *, XErrorEvent *); | |
79 | ||
80 | XErrorHandlerFunc gs_pfnXErrorHandler = 0; | |
81 | ||
82 | static int wxXErrorHandler(Display *dpy, XErrorEvent *xevent) | |
83 | { | |
84 | // just forward to the default handler for now | |
85 | return gs_pfnXErrorHandler(dpy, xevent); | |
86 | } | |
87 | #endif // __WXDEBUG__ | |
88 | ||
05e2b077 | 89 | bool wxApp::Initialize(int& argc, wxChar **argv) |
4bb6408c | 90 | { |
94826170 VZ |
91 | if ( !wxAppBase::Initialize(argc, argv) ) |
92 | return false; | |
afb74891 | 93 | |
4bb6408c | 94 | wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER); |
afb74891 | 95 | |
94826170 | 96 | return true; |
4bb6408c JS |
97 | } |
98 | ||
99 | void wxApp::CleanUp() | |
100 | { | |
e6be3e7c MB |
101 | delete wxWidgetHashTable; |
102 | wxWidgetHashTable = NULL; | |
103 | ||
94826170 | 104 | wxAppBase::CleanUp(); |
4bb6408c JS |
105 | } |
106 | ||
e2478fde VZ |
107 | void wxApp::Exit() |
108 | { | |
109 | wxApp::CleanUp(); | |
110 | ||
111 | wxAppConsole::Exit(); | |
112 | } | |
113 | ||
e6be3e7c | 114 | // ============================================================================ |
05e2b077 | 115 | // wxApp |
e6be3e7c MB |
116 | // ============================================================================ |
117 | ||
4bb6408c JS |
118 | wxApp::wxApp() |
119 | { | |
4bb6408c JS |
120 | argc = 0; |
121 | argv = NULL; | |
afb74891 | 122 | |
7e1bcfa8 | 123 | m_eventLoop = new wxEventLoop; |
4bb6408c JS |
124 | m_mainColormap = (WXColormap) NULL; |
125 | m_appContext = (WXAppContext) NULL; | |
47bc1060 | 126 | m_initialDisplay = (WXDisplay*) 0; |
eb6fa4b4 | 127 | m_perDisplayData = new wxPerDisplayDataMap; |
4bb6408c JS |
128 | } |
129 | ||
7e1bcfa8 MB |
130 | wxApp::~wxApp() |
131 | { | |
132 | delete m_eventLoop; | |
9ce8d6a2 | 133 | |
eb6fa4b4 MB |
134 | for( wxPerDisplayDataMap::iterator it = m_perDisplayData->begin(), |
135 | end = m_perDisplayData->end(); | |
9ce8d6a2 MB |
136 | it != end; ++it ) |
137 | { | |
eb6fa4b4 MB |
138 | delete it->second.m_visualInfo; |
139 | XtDestroyWidget( it->second.m_topLevelWidget ); | |
9ce8d6a2 MB |
140 | } |
141 | ||
eb6fa4b4 MB |
142 | delete m_perDisplayData; |
143 | ||
144 | wxTheApp = NULL; | |
7e1bcfa8 MB |
145 | } |
146 | ||
4bb6408c JS |
147 | bool wxApp::Initialized() |
148 | { | |
149 | if (GetTopWindow()) | |
2d120f83 | 150 | return TRUE; |
4bb6408c | 151 | else |
2d120f83 | 152 | return FALSE; |
4bb6408c JS |
153 | } |
154 | ||
155 | int wxApp::MainLoop() | |
156 | { | |
2d120f83 | 157 | /* |
4bb6408c JS |
158 | * Sit around forever waiting to process X-events. Property Change |
159 | * event are handled special, because they have to refer to | |
160 | * the root window rather than to a widget. therefore we can't | |
161 | * use an Xt-eventhandler. | |
162 | */ | |
afb74891 | 163 | |
4bb6408c | 164 | XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), |
2d120f83 JS |
165 | XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())), |
166 | PropertyChangeMask); | |
afb74891 | 167 | |
7e1bcfa8 | 168 | m_eventLoop->Run(); |
afb74891 | 169 | |
8aa04e8b JS |
170 | return 0; |
171 | } | |
172 | ||
7e1bcfa8 | 173 | // Processes an idle event. |
4bb6408c JS |
174 | // Returns TRUE if more time is needed. |
175 | bool wxApp::ProcessIdle() | |
176 | { | |
177 | wxIdleEvent event; | |
afb74891 | 178 | |
7e1bcfa8 | 179 | return ProcessEvent(event) && event.MoreRequested(); |
4bb6408c JS |
180 | } |
181 | ||
182 | void wxApp::ExitMainLoop() | |
183 | { | |
e6be3e7c MB |
184 | if( m_eventLoop->IsRunning() ) |
185 | m_eventLoop->Exit(); | |
4bb6408c JS |
186 | } |
187 | ||
188 | // Is a message/event pending? | |
189 | bool wxApp::Pending() | |
190 | { | |
ba2fcb07 MB |
191 | return m_eventLoop->Pending(); |
192 | #if 0 | |
4bb6408c | 193 | XFlush(XtDisplay( (Widget) wxTheApp->GetTopLevelWidget() )); |
afb74891 | 194 | |
8aa04e8b JS |
195 | // Fix by Doug from STI, to prevent a stall if non-X event |
196 | // is found. | |
197 | return ((XtAppPending( (XtAppContext) GetAppContext() ) & XtIMXEvent) != 0) ; | |
ba2fcb07 | 198 | #endif |
4bb6408c JS |
199 | } |
200 | ||
201 | // Dispatch a message. | |
202 | void wxApp::Dispatch() | |
203 | { | |
7e1bcfa8 | 204 | m_eventLoop->Dispatch(); |
4bb6408c JS |
205 | } |
206 | ||
207 | // This should be redefined in a derived class for | |
208 | // handling property change events for XAtom IPC. | |
209 | void wxApp::HandlePropertyChange(WXEvent *event) | |
210 | { | |
211 | // by default do nothing special | |
212 | XtDispatchEvent((XEvent*) event); /* let Motif do the work */ | |
213 | } | |
214 | ||
215 | void wxApp::OnIdle(wxIdleEvent& event) | |
216 | { | |
217 | static bool inOnIdle = FALSE; | |
afb74891 | 218 | |
4bb6408c JS |
219 | // Avoid recursion (via ProcessEvent default case) |
220 | if (inOnIdle) | |
2d120f83 | 221 | return; |
afb74891 | 222 | |
4bb6408c | 223 | inOnIdle = TRUE; |
afb74891 | 224 | |
0ca580f6 GRG |
225 | // If there are pending events, we must process them: pending events |
226 | // are either events to the threads other than main or events posted | |
227 | // with wxPostEvent() functions | |
228 | // GRG: I have moved this here so that all pending events are processed | |
229 | // before starting to delete any objects. This behaves better (in | |
230 | // particular, wrt wxPostEvent) and is coherent with wxGTK's current | |
231 | // behaviour. Also removed the '#if wxUSE_THREADS' around it. | |
232 | // Changed Mar/2000 before 2.1.14 | |
afb74891 | 233 | |
7214297d GL |
234 | // Flush pending events. |
235 | ProcessPendingEvents(); | |
0ca580f6 GRG |
236 | |
237 | // 'Garbage' collection of windows deleted with Close(). | |
238 | DeletePendingObjects(); | |
7214297d | 239 | |
4bb6408c JS |
240 | // flush the logged messages if any |
241 | wxLog *pLog = wxLog::GetActiveTarget(); | |
242 | if ( pLog != NULL && pLog->HasPendingMessages() ) | |
2d120f83 | 243 | pLog->Flush(); |
afb74891 | 244 | |
4bb6408c JS |
245 | // Send OnIdle events to all windows |
246 | bool needMore = SendIdleEvents(); | |
afb74891 | 247 | |
4bb6408c | 248 | if (needMore) |
2d120f83 | 249 | event.RequestMore(TRUE); |
afb74891 | 250 | |
4bb6408c JS |
251 | inOnIdle = FALSE; |
252 | } | |
253 | ||
254 | // Send idle event to all top-level windows | |
255 | bool wxApp::SendIdleEvents() | |
256 | { | |
257 | bool needMore = FALSE; | |
e146b8c8 VZ |
258 | |
259 | wxWindowList::Node* node = wxTopLevelWindows.GetFirst(); | |
2d120f83 JS |
260 | while (node) |
261 | { | |
e146b8c8 | 262 | wxWindow* win = node->GetData(); |
2d120f83 | 263 | if (SendIdleEvents(win)) |
4bb6408c | 264 | needMore = TRUE; |
e146b8c8 | 265 | node = node->GetNext(); |
2d120f83 | 266 | } |
e146b8c8 | 267 | |
4bb6408c JS |
268 | return needMore; |
269 | } | |
270 | ||
271 | // Send idle event to window and all subwindows | |
272 | bool wxApp::SendIdleEvents(wxWindow* win) | |
273 | { | |
274 | bool needMore = FALSE; | |
afb74891 | 275 | |
2d120f83 JS |
276 | wxIdleEvent event; |
277 | event.SetEventObject(win); | |
44f5b995 | 278 | win->GetEventHandler()->ProcessEvent(event); |
afb74891 | 279 | |
4bb6408c JS |
280 | if (event.MoreRequested()) |
281 | needMore = TRUE; | |
afb74891 | 282 | |
fd304d98 | 283 | wxWindowList::Node* node = win->GetChildren().GetFirst(); |
2d120f83 JS |
284 | while (node) |
285 | { | |
fd304d98 | 286 | wxWindow* win = node->GetData(); |
2d120f83 | 287 | if (SendIdleEvents(win)) |
4bb6408c | 288 | needMore = TRUE; |
afb74891 | 289 | |
fd304d98 | 290 | node = node->GetNext(); |
2d120f83 | 291 | } |
4bb6408c JS |
292 | return needMore ; |
293 | } | |
294 | ||
edc1cd8b JS |
295 | static char *fallbackResources[] = { |
296 | "*menuBar.marginHeight: 0", | |
297 | "*menuBar.shadowThickness: 1", | |
298 | "*background: #c0c0c0", | |
299 | "*foreground: black", | |
300 | NULL | |
301 | }; | |
302 | ||
4bb6408c JS |
303 | // Create an application context |
304 | bool wxApp::OnInitGui() | |
305 | { | |
fd304d98 MB |
306 | if( !wxAppBase::OnInitGui() ) |
307 | return FALSE; | |
308 | ||
4bb6408c | 309 | XtToolkitInitialize() ; |
edc1cd8b JS |
310 | wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext(); |
311 | XtAppSetFallbackResources((XtAppContext) wxTheApp->m_appContext, fallbackResources); | |
312 | ||
4bb6408c | 313 | Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL, |
d3a80c92 | 314 | wxTheApp->GetClassName().c_str(), NULL, 0, |
4bb6408c | 315 | # if XtSpecificationRelease < 5 |
9c6e1335 | 316 | (Cardinal*) &argc, |
4bb6408c | 317 | # else |
9c6e1335 | 318 | &argc, |
4bb6408c | 319 | # endif |
9c6e1335 VZ |
320 | argv); |
321 | ||
4bb6408c | 322 | if (!dpy) { |
c88b736c MB |
323 | // if you don't log to stderr, nothing will be shown... |
324 | delete wxLog::SetActiveTarget(new wxLogStderr); | |
7bcb11d3 | 325 | wxString className(wxTheApp->GetClassName()); |
9c6e1335 | 326 | wxLogError(_("wxWindows could not open display for '%s': exiting."), |
d3a80c92 | 327 | className.c_str()); |
2d120f83 | 328 | exit(-1); |
4bb6408c | 329 | } |
47bc1060 | 330 | m_initialDisplay = (WXDisplay*) dpy; |
afb74891 | 331 | |
e838cc14 VZ |
332 | #ifdef __WXDEBUG__ |
333 | // install the X error handler | |
334 | gs_pfnXErrorHandler = XSetErrorHandler(wxXErrorHandler); | |
335 | #endif // __WXDEBUG__ | |
336 | ||
4bb6408c JS |
337 | // Add general resize proc |
338 | XtActionsRec rec; | |
339 | rec.string = "resize"; | |
340 | rec.proc = (XtActionProc)wxWidgetResizeProc; | |
341 | XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1); | |
afb74891 | 342 | |
4bb6408c | 343 | GetMainColormap(dpy); |
afb74891 | 344 | |
7e1bcfa8 MB |
345 | wxAddIdleCallback(); |
346 | ||
4bb6408c JS |
347 | return TRUE; |
348 | } | |
349 | ||
350 | WXColormap wxApp::GetMainColormap(WXDisplay* display) | |
351 | { | |
352 | if (!display) /* Must be called first with non-NULL display */ | |
2d120f83 | 353 | return m_mainColormap; |
a91b47e8 JS |
354 | |
355 | int defaultScreen = DefaultScreen((Display*) display); | |
356 | Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen); | |
afb74891 | 357 | |
a91b47e8 | 358 | Colormap c = DefaultColormapOfScreen(screen); |
afb74891 | 359 | |
4bb6408c | 360 | if (!m_mainColormap) |
2d120f83 | 361 | m_mainColormap = (WXColormap) c; |
afb74891 | 362 | |
4bb6408c JS |
363 | return (WXColormap) c; |
364 | } | |
365 | ||
9ce8d6a2 MB |
366 | wxXVisualInfo* wxApp::GetVisualInfo( WXDisplay* display ) |
367 | { | |
eb6fa4b4 | 368 | wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display ); |
9ce8d6a2 | 369 | |
eb6fa4b4 MB |
370 | if( it != m_perDisplayData->end() && it->second.m_visualInfo ) |
371 | return it->second.m_visualInfo; | |
9ce8d6a2 MB |
372 | |
373 | wxXVisualInfo* vi = new wxXVisualInfo; | |
374 | wxFillXVisualInfo( vi, (Display*)display ); | |
375 | ||
eb6fa4b4 | 376 | (*m_perDisplayData)[display].m_visualInfo = vi; |
9ce8d6a2 MB |
377 | |
378 | return vi; | |
379 | } | |
380 | ||
eb6fa4b4 MB |
381 | static void wxTLWidgetDestroyCallback(Widget w, XtPointer clientData, |
382 | XtPointer ptr) | |
383 | { | |
384 | if( wxTheApp ) | |
385 | wxTheApp->SetTopLevelWidget( (WXDisplay*)XtDisplay(w), | |
386 | (WXWidget)NULL ); | |
387 | } | |
388 | ||
389 | WXWidget wxCreateTopLevelWidget( WXDisplay* display ) | |
390 | { | |
391 | Widget tlw = XtAppCreateShell( (String)NULL, | |
392 | wxTheApp->GetClassName().c_str(), | |
393 | applicationShellWidgetClass, | |
394 | (Display*)display, | |
395 | NULL, 0 ); | |
732c0bfd | 396 | XtSetMappedWhenManaged( tlw, False ); |
dd38c875 | 397 | XtRealizeWidget( tlw ); |
eb6fa4b4 MB |
398 | |
399 | XtAddCallback( tlw, XmNdestroyCallback, | |
400 | (XtCallbackProc)wxTLWidgetDestroyCallback, | |
401 | (XtPointer)NULL ); | |
402 | ||
403 | return (WXWidget)tlw; | |
404 | } | |
405 | ||
406 | WXWidget wxApp::GetTopLevelWidget() | |
407 | { | |
408 | WXDisplay* display = wxGetDisplay(); | |
409 | wxPerDisplayDataMap::iterator it = m_perDisplayData->find( display ); | |
410 | ||
411 | if( it != m_perDisplayData->end() && it->second.m_topLevelWidget ) | |
412 | return (WXWidget)it->second.m_topLevelWidget; | |
413 | ||
414 | WXWidget tlw = wxCreateTopLevelWidget( display ); | |
415 | SetTopLevelWidget( display, tlw ); | |
416 | ||
417 | return tlw; | |
418 | } | |
419 | ||
420 | void wxApp::SetTopLevelWidget(WXDisplay* display, WXWidget widget) | |
421 | { | |
422 | (*m_perDisplayData)[display].m_topLevelWidget = (Widget)widget; | |
423 | } | |
424 | ||
4bb6408c | 425 | // Yield to other processes |
cb2713bf | 426 | |
8461e4c2 | 427 | bool wxApp::Yield(bool onlyIfNeeded) |
4bb6408c | 428 | { |
8461e4c2 VZ |
429 | bool s_inYield = FALSE; |
430 | ||
431 | if ( s_inYield ) | |
432 | { | |
433 | if ( !onlyIfNeeded ) | |
434 | { | |
435 | wxFAIL_MSG( wxT("wxYield called recursively" ) ); | |
436 | } | |
437 | ||
438 | return FALSE; | |
439 | } | |
440 | ||
441 | s_inYield = TRUE; | |
cb2713bf | 442 | |
4bb6408c | 443 | while (wxTheApp && wxTheApp->Pending()) |
2d120f83 | 444 | wxTheApp->Dispatch(); |
518b5d2f | 445 | |
8461e4c2 | 446 | s_inYield = FALSE; |
cb2713bf | 447 | |
4bb6408c JS |
448 | return TRUE; |
449 | } | |
450 | ||
d391a345 VZ |
451 | // ---------------------------------------------------------------------------- |
452 | // accessors for C modules | |
453 | // ---------------------------------------------------------------------------- | |
454 | ||
455 | extern "C" XtAppContext wxGetAppContext() | |
456 | { | |
457 | return (XtAppContext)wxTheApp->GetAppContext(); | |
458 | } |