]> git.saurik.com Git - wxWidgets.git/blob - src/motif/app.cpp
VisualAge C++ V4.0 configuration files
[wxWidgets.git] / 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 #ifdef __GNUG__
13 #pragma implementation "app.h"
14 #pragma implementation "appbase.h"
15 #endif
16
17 #include "wx/frame.h"
18 #include "wx/app.h"
19 #include "wx/utils.h"
20 #include "wx/gdicmn.h"
21 #include "wx/pen.h"
22 #include "wx/brush.h"
23 #include "wx/cursor.h"
24 #include "wx/icon.h"
25 #include "wx/palette.h"
26 #include "wx/dc.h"
27 #include "wx/dialog.h"
28 #include "wx/msgdlg.h"
29 #include "wx/log.h"
30 #include "wx/module.h"
31 #include "wx/memory.h"
32 #include "wx/log.h"
33 #include "wx/intl.h"
34
35 #if wxUSE_THREADS
36 #include "wx/thread.h"
37 #endif
38
39 #if wxUSE_WX_RESOURCES
40 #include "wx/resource.h"
41 #endif
42
43 #include <Xm/Xm.h>
44 #include <X11/Xlib.h>
45 #include <X11/Xutil.h>
46 #include <X11/Xresource.h>
47 #include <X11/Xatom.h>
48
49 #include "wx/motif/private.h"
50
51 #include <string.h>
52
53 extern char *wxBuffer;
54 extern wxList wxPendingDelete;
55
56 #if wxUSE_THREADS
57 extern wxList *wxPendingEvents;
58 extern wxCriticalSection *wxPendingEventsLocker;
59 #endif // wxUSE_THREADS
60
61 wxApp *wxTheApp = NULL;
62
63 wxHashTable *wxWidgetHashTable = NULL;
64
65 #if !USE_SHARED_LIBRARY
66 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
67
68 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
69 EVT_IDLE(wxApp::OnIdle)
70 END_EVENT_TABLE()
71 #endif
72
73 long wxApp::sm_lastMessageTime = 0;
74
75 bool wxApp::Initialize()
76 {
77 wxBuffer = new char[BUFSIZ + 512];
78
79 wxClassInfo::InitializeClasses();
80
81 // GL: I'm annoyed ... I don't know where to put this and I don't want to
82 // create a module for that as it's part of the core.
83 #if wxUSE_THREADS
84 wxPendingEvents = new wxList();
85 wxPendingEventsLocker = new wxCriticalSection();
86 #endif
87
88 wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
89 wxTheColourDatabase->Initialize();
90
91 wxInitializeStockLists();
92 wxInitializeStockObjects();
93
94 #if wxUSE_WX_RESOURCES
95 wxInitializeResourceSystem();
96 #endif
97
98 // For PostScript printing
99 #if wxUSE_POSTSCRIPT
100 /* Done using wxModule now
101 wxInitializePrintSetupData();
102 wxThePrintPaperDatabase = new wxPrintPaperDatabase;
103 wxThePrintPaperDatabase->CreateDatabase();
104 */
105 #endif
106
107 wxBitmap::InitStandardHandlers();
108
109 wxWidgetHashTable = new wxHashTable(wxKEY_INTEGER);
110
111 wxModule::RegisterModules();
112 if (!wxModule::InitializeModules()) return FALSE;
113
114 return TRUE;
115 }
116
117 void wxApp::CleanUp()
118 {
119 delete wxWidgetHashTable;
120 wxWidgetHashTable = NULL;
121
122 wxModule::CleanUpModules();
123
124 #if wxUSE_WX_RESOURCES
125 wxCleanUpResourceSystem();
126 #endif
127
128 wxDeleteStockObjects() ;
129
130 // Destroy all GDI lists, etc.
131
132 delete wxTheBrushList;
133 wxTheBrushList = NULL;
134
135 delete wxThePenList;
136 wxThePenList = NULL;
137
138 delete wxTheFontList;
139 wxTheFontList = NULL;
140
141 delete wxTheBitmapList;
142 wxTheBitmapList = NULL;
143
144 delete wxTheColourDatabase;
145 wxTheColourDatabase = NULL;
146
147 #if wxUSE_POSTSCRIPT
148 /* Done using wxModule now
149 wxInitializePrintSetupData(FALSE);
150 delete wxThePrintPaperDatabase;
151 wxThePrintPaperDatabase = NULL;
152 */
153 #endif
154
155 wxBitmap::CleanUpHandlers();
156
157 delete[] wxBuffer;
158 wxBuffer = NULL;
159
160 wxClassInfo::CleanUpClasses();
161
162 delete wxTheApp;
163 wxTheApp = NULL;
164
165 // GL: I'm annoyed ... I don't know where to put this and I don't want to
166 // create a module for that as it's part of the core.
167 #if wxUSE_THREADS
168 delete wxPendingEvents;
169 delete wxPendingEventsLocker;
170 #endif
171
172 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
173 // At this point we want to check if there are any memory
174 // blocks that aren't part of the wxDebugContext itself,
175 // as a special case. Then when dumping we need to ignore
176 // wxDebugContext, too.
177 if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
178 {
179 wxLogDebug("There were memory leaks.\n");
180 wxDebugContext::Dump();
181 wxDebugContext::PrintStatistics();
182 }
183 #endif
184
185 // do it as the very last thing because everything else can log messages
186 wxLog::DontCreateOnDemand();
187 // do it as the very last thing because everything else can log messages
188 delete wxLog::SetActiveTarget(NULL);
189 }
190
191 int wxEntry( int argc, char *argv[] )
192 {
193 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
194 // This seems to be necessary since there are 'rogue'
195 // objects present at this point (perhaps global objects?)
196 // Setting a checkpoint will ignore them as far as the
197 // memory checking facility is concerned.
198 // Of course you may argue that memory allocated in globals should be
199 // checked, but this is a reasonable compromise.
200 wxDebugContext::SetCheckpoint();
201 #endif
202
203 if (!wxApp::Initialize())
204 return FALSE;
205
206 if (!wxTheApp)
207 {
208 if (!wxApp::GetInitializerFunction())
209 {
210 printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
211 return 0;
212 };
213
214 wxTheApp = (wxApp*) (* wxApp::GetInitializerFunction()) ();
215 };
216
217 if (!wxTheApp)
218 {
219 printf( "wxWindows error: wxTheApp == NULL\n" );
220 return 0;
221 };
222
223 wxTheApp->SetClassName(wxFileNameFromPath(argv[0]));
224 wxTheApp->SetAppName(wxFileNameFromPath(argv[0]));
225
226 wxTheApp->argc = argc;
227 wxTheApp->argv = argv;
228
229 // GUI-specific initialization, such as creating an app context.
230 wxTheApp->OnInitGui();
231
232 // Here frames insert themselves automatically into wxTopLevelWindows by
233 // getting created in OnInit().
234
235 int retValue = 0;
236 if (wxTheApp->OnInit())
237 {
238 if (wxTheApp->Initialized()) retValue = wxTheApp->OnRun();
239 }
240
241 // flush the logged messages if any
242 wxLog *pLog = wxLog::GetActiveTarget();
243 if ( pLog != NULL && pLog->HasPendingMessages() )
244 pLog->Flush();
245
246 delete wxLog::SetActiveTarget(new wxLogStderr); // So dialog boxes aren't used
247 // for further messages
248
249 if (wxTheApp->GetTopWindow())
250 {
251 delete wxTheApp->GetTopWindow();
252 wxTheApp->SetTopWindow(NULL);
253 }
254
255 wxTheApp->DeletePendingObjects();
256
257 wxTheApp->OnExit();
258
259 wxApp::CleanUp();
260
261 return retValue;
262 };
263
264 // Static member initialization
265 wxAppInitializerFunction wxAppBase::m_appInitFn = (wxAppInitializerFunction) NULL;
266
267 wxApp::wxApp()
268 {
269 m_topWindow = NULL;
270 wxTheApp = this;
271 m_className = "";
272 m_wantDebugOutput = TRUE ;
273 m_appName = "";
274 argc = 0;
275 argv = NULL;
276 m_exitOnFrameDelete = TRUE;
277
278 m_mainColormap = (WXColormap) NULL;
279 m_appContext = (WXAppContext) NULL;
280 m_topLevelWidget = (WXWidget) NULL;
281 m_maxRequestSize = 0;
282 m_initialDisplay = (WXDisplay*) 0;
283 }
284
285 bool wxApp::Initialized()
286 {
287 if (GetTopWindow())
288 return TRUE;
289 else
290 return FALSE;
291 }
292
293 int wxApp::MainLoop()
294 {
295 m_keepGoing = TRUE;
296
297 /*
298 * Sit around forever waiting to process X-events. Property Change
299 * event are handled special, because they have to refer to
300 * the root window rather than to a widget. therefore we can't
301 * use an Xt-eventhandler.
302 */
303
304 XSelectInput(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()),
305 XDefaultRootWindow(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())),
306 PropertyChangeMask);
307
308 XEvent event;
309
310 // Use this flag to allow breaking the loop via wxApp::ExitMainLoop()
311 while (m_keepGoing)
312 {
313 XtAppNextEvent( (XtAppContext) wxTheApp->GetAppContext(), &event);
314
315 ProcessXEvent((WXEvent*) & event);
316
317 if (XtAppPending( (XtAppContext) wxTheApp->GetAppContext() ) == 0)
318 {
319 if (!ProcessIdle())
320 {
321 #if wxUSE_THREADS
322 // leave the main loop to give other threads a chance to
323 // perform their GUI work
324 wxMutexGuiLeave();
325 wxUsleep(20);
326 wxMutexGuiEnter();
327 #endif
328 }
329 }
330
331 }
332
333 return 0;
334 }
335
336 // Processes an X event.
337 void wxApp::ProcessXEvent(WXEvent* _event)
338 {
339 XEvent* event = (XEvent*) _event;
340
341 if (event->type == KeyPress)
342 {
343 #ifdef __WXDEBUG__
344 Widget widget = XtWindowToWidget(event->xany.display, event->xany.window);
345 wxLogDebug("Got key press event for 0x%08x (parent = 0x%08x)",
346 widget, XtParent(widget));
347 #endif // DEBUG
348
349 if (CheckForAccelerator(_event))
350 {
351 // Do nothing! We intercepted and processed the event as an
352 // accelerator.
353 return;
354 }
355 #if 1
356 // It seemed before that this hack was redundant and
357 // key down events were being generated by wxCanvasInputEvent.
358 // But no longer - why ???
359 //
360 else if (CheckForKeyDown(_event))
361 {
362 // We intercepted and processed the key down event
363 return;
364 }
365 #endif
366 else
367 {
368 XtDispatchEvent(event);
369 return;
370 }
371 }
372 else if (event->type == KeyRelease)
373 {
374 // TODO: work out why we still need this ! -michael
375 //
376 if (CheckForKeyUp(_event))
377 {
378 // We intercepted and processed the key up event
379 return;
380 }
381 else
382 {
383 XtDispatchEvent(event);
384 return;
385 }
386 }
387 else if (event->type == PropertyNotify)
388 {
389 HandlePropertyChange(_event);
390 return;
391 }
392 else if (event->type == ResizeRequest)
393 {
394 /* Terry Gitnick <terryg@scientech.com> - 1/21/98
395 * If resize event, don't resize until the last resize event for this
396 * window is recieved. Prevents flicker as windows are resized.
397 */
398
399 Display *disp = XtDisplay((Widget) wxTheApp->GetTopLevelWidget());
400 Window win = event->xany.window;
401 XEvent report;
402
403 // to avoid flicker
404 report = * event;
405 while( XCheckTypedWindowEvent (disp, win, ResizeRequest, &report));
406
407 // TODO: when implementing refresh optimization, we can use
408 // XtAddExposureToRegion to expand the window's paint region.
409
410 XtDispatchEvent(event);
411 }
412 else
413 {
414 XtDispatchEvent(event);
415 }
416 }
417
418 // Returns TRUE if more time is needed.
419 bool wxApp::ProcessIdle()
420 {
421 wxIdleEvent event;
422 event.SetEventObject(this);
423 ProcessEvent(event);
424
425 return event.MoreRequested();
426 }
427
428 void wxApp::ExitMainLoop()
429 {
430 m_keepGoing = FALSE;
431 }
432
433 // Is a message/event pending?
434 bool wxApp::Pending()
435 {
436 XFlush(XtDisplay( (Widget) wxTheApp->GetTopLevelWidget() ));
437
438 // Fix by Doug from STI, to prevent a stall if non-X event
439 // is found.
440 return ((XtAppPending( (XtAppContext) GetAppContext() ) & XtIMXEvent) != 0) ;
441 }
442
443 // Dispatch a message.
444 void wxApp::Dispatch()
445 {
446 // XtAppProcessEvent( (XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
447
448 XEvent event;
449 XtAppNextEvent((XtAppContext) GetAppContext(), &event);
450 ProcessXEvent((WXEvent*) & event);
451 }
452
453 // This should be redefined in a derived class for
454 // handling property change events for XAtom IPC.
455 void wxApp::HandlePropertyChange(WXEvent *event)
456 {
457 // by default do nothing special
458 XtDispatchEvent((XEvent*) event); /* let Motif do the work */
459 }
460
461 void wxApp::OnIdle(wxIdleEvent& event)
462 {
463 static bool inOnIdle = FALSE;
464
465 // Avoid recursion (via ProcessEvent default case)
466 if (inOnIdle)
467 return;
468
469 inOnIdle = TRUE;
470
471 // 'Garbage' collection of windows deleted with Close().
472 DeletePendingObjects();
473
474 #if wxUSE_THREADS
475 // Flush pending events.
476 ProcessPendingEvents();
477 #endif
478
479 // flush the logged messages if any
480 wxLog *pLog = wxLog::GetActiveTarget();
481 if ( pLog != NULL && pLog->HasPendingMessages() )
482 pLog->Flush();
483
484 // Send OnIdle events to all windows
485 bool needMore = SendIdleEvents();
486
487 if (needMore)
488 event.RequestMore(TRUE);
489
490 inOnIdle = FALSE;
491 }
492
493 // Send idle event to all top-level windows
494 bool wxApp::SendIdleEvents()
495 {
496 bool needMore = FALSE;
497
498 wxWindowList::Node* node = wxTopLevelWindows.GetFirst();
499 while (node)
500 {
501 wxWindow* win = node->GetData();
502 if (SendIdleEvents(win))
503 needMore = TRUE;
504 node = node->GetNext();
505 }
506
507 return needMore;
508 }
509
510 // Send idle event to window and all subwindows
511 bool wxApp::SendIdleEvents(wxWindow* win)
512 {
513 bool needMore = FALSE;
514
515 wxIdleEvent event;
516 event.SetEventObject(win);
517 win->ProcessEvent(event);
518
519 if (event.MoreRequested())
520 needMore = TRUE;
521
522 wxNode* node = win->GetChildren().First();
523 while (node)
524 {
525 wxWindow* win = (wxWindow*) node->Data();
526 if (SendIdleEvents(win))
527 needMore = TRUE;
528
529 node = node->Next();
530 }
531 return needMore ;
532 }
533
534 void wxApp::DeletePendingObjects()
535 {
536 wxNode *node = wxPendingDelete.First();
537 while (node)
538 {
539 wxObject *obj = (wxObject *)node->Data();
540
541 delete obj;
542
543 if (wxPendingDelete.Member(obj))
544 delete node;
545
546 // Deleting one object may have deleted other pending
547 // objects, so start from beginning of list again.
548 node = wxPendingDelete.First();
549 }
550 }
551
552 #if wxUSE_THREADS
553 void wxApp::ProcessPendingEvents()
554 {
555 wxNode *node = wxPendingEvents->First();
556 wxCriticalSectionLocker locker(*wxPendingEventsLocker);
557
558 while (node)
559 {
560 wxEvtHandler *handler = (wxEvtHandler *)node->Data();
561
562 handler->ProcessPendingEvents();
563
564 delete node;
565 node = wxPendingEvents->First();
566 }
567 }
568 #endif // wxUSE_THREADS
569
570 // Create an application context
571 bool wxApp::OnInitGui()
572 {
573 XtToolkitInitialize() ;
574 wxTheApp->m_appContext = (WXAppContext) XtCreateApplicationContext() ;
575 Display *dpy = XtOpenDisplay((XtAppContext) wxTheApp->m_appContext,(String)NULL,NULL,
576 (const char*) wxTheApp->GetClassName(), NULL, 0,
577 # if XtSpecificationRelease < 5
578 (Cardinal*) &argc,
579 # else
580 &argc,
581 # endif
582 argv);
583
584 if (!dpy) {
585 wxString className(wxTheApp->GetClassName());
586 wxLogError(_("wxWindows could not open display for '%s': exiting."),
587 (const char*) className);
588 exit(-1);
589 }
590 m_initialDisplay = (WXDisplay*) dpy;
591
592 wxTheApp->m_topLevelWidget = (WXWidget) XtAppCreateShell((String)NULL, (const char*) wxTheApp->GetClassName(),
593 applicationShellWidgetClass,dpy,
594 NULL,0) ;
595
596 // Add general resize proc
597 XtActionsRec rec;
598 rec.string = "resize";
599 rec.proc = (XtActionProc)wxWidgetResizeProc;
600 XtAppAddActions((XtAppContext) wxTheApp->m_appContext, &rec, 1);
601
602 GetMainColormap(dpy);
603 m_maxRequestSize = XMaxRequestSize((Display*) dpy);
604
605 return TRUE;
606 }
607
608 WXColormap wxApp::GetMainColormap(WXDisplay* display)
609 {
610 if (!display) /* Must be called first with non-NULL display */
611 return m_mainColormap;
612
613 int defaultScreen = DefaultScreen((Display*) display);
614 Screen* screen = XScreenOfDisplay((Display*) display, defaultScreen);
615
616 Colormap c = DefaultColormapOfScreen(screen);
617
618 if (!m_mainColormap)
619 m_mainColormap = (WXColormap) c;
620
621 return (WXColormap) c;
622 }
623
624 // Returns TRUE if an accelerator has been processed
625 bool wxApp::CheckForAccelerator(WXEvent* event)
626 {
627 XEvent* xEvent = (XEvent*) event;
628 if (xEvent->xany.type == KeyPress)
629 {
630 // Find a wxWindow for this window
631 // TODO: should get display for the window, not the current display
632 Widget widget = XtWindowToWidget((Display*) wxGetDisplay(), xEvent->xany.window);
633 wxWindow* win = NULL;
634
635 // Find the first wxWindow that corresponds to this event window
636 while (widget && !(win = wxGetWindowFromTable(widget)))
637 widget = XtParent(widget);
638
639 if (!widget || !win)
640 return FALSE;
641
642 wxKeyEvent keyEvent(wxEVT_CHAR);
643 wxTranslateKeyEvent(keyEvent, win, (Widget) 0, xEvent);
644
645 // Now we have a wxKeyEvent and we have a wxWindow.
646 // Go up the hierarchy until we find a matching accelerator,
647 // or we get to the top.
648 while (win)
649 {
650 if (win->ProcessAccelerator(keyEvent))
651 return TRUE;
652 win = win->GetParent();
653 }
654 return FALSE;
655 }
656 return FALSE;
657 }
658
659 bool wxApp::CheckForKeyDown(WXEvent* event)
660 {
661 XEvent* xEvent = (XEvent*) event;
662 if (xEvent->xany.type == KeyPress)
663 {
664 Widget widget = XtWindowToWidget((Display*) wxGetDisplay(),
665 xEvent->xany.window);
666 wxWindow* win = NULL;
667
668 // Find the first wxWindow that corresponds to this event window
669 while (widget && !(win = wxGetWindowFromTable(widget)))
670 widget = XtParent(widget);
671
672 if (!widget || !win)
673 return FALSE;
674
675 wxKeyEvent keyEvent(wxEVT_KEY_DOWN);
676 wxTranslateKeyEvent(keyEvent, win, (Widget) 0, xEvent);
677
678 return win->ProcessEvent( keyEvent );
679 }
680
681 return FALSE;
682 }
683
684 bool wxApp::CheckForKeyUp(WXEvent* event)
685 {
686 XEvent* xEvent = (XEvent*) event;
687 if (xEvent->xany.type == KeyRelease)
688 {
689 Widget widget = XtWindowToWidget((Display*) wxGetDisplay(),
690 xEvent->xany.window);
691 wxWindow* win = NULL;
692
693 // Find the first wxWindow that corresponds to this event window
694 while (widget && !(win = wxGetWindowFromTable(widget)))
695 widget = XtParent(widget);
696
697 if (!widget || !win)
698 return FALSE;
699
700 wxKeyEvent keyEvent(wxEVT_KEY_UP);
701 wxTranslateKeyEvent(keyEvent, win, (Widget) 0, xEvent);
702
703 return win->ProcessEvent( keyEvent );
704 }
705
706 return FALSE;
707 }
708
709 void wxExit()
710 {
711 int retValue = 0;
712 if (wxTheApp)
713 retValue = wxTheApp->OnExit();
714
715 wxApp::CleanUp();
716 /*
717 * Exit in some platform-specific way. Not recommended that the app calls this:
718 * only for emergencies.
719 */
720 exit(retValue);
721 }
722
723 // Yield to other processes
724 bool wxYield()
725 {
726 while (wxTheApp && wxTheApp->Pending())
727 wxTheApp->Dispatch();
728
729 // VZ: is it the same as this (taken from old wxExecute)?
730 #if 0
731 XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
732 #endif
733
734 return TRUE;
735 }
736
737 // TODO use XmGetPixmap (?) to get the really standard icons!
738
739 #include "wx/generic/info.xpm"
740 #include "wx/generic/error.xpm"
741 #include "wx/generic/question.xpm"
742 #include "wx/generic/warning.xpm"
743
744 wxIcon
745 wxApp::GetStdIcon(int which) const
746 {
747 switch(which)
748 {
749 case wxICON_INFORMATION:
750 return wxIcon(info_xpm);
751
752 case wxICON_QUESTION:
753 return wxIcon(question_xpm);
754
755 case wxICON_EXCLAMATION:
756 return wxIcon(warning_xpm);
757
758 default:
759 wxFAIL_MSG("requested non existent standard icon");
760 // still fall through
761
762 case wxICON_HAND:
763 return wxIcon(error_xpm);
764 }
765 }