1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "app.h"
14 #pragma implementation "appbase.h"
20 #include "wx/gdicmn.h"
23 #include "wx/cursor.h"
25 #include "wx/palette.h"
27 #include "wx/dialog.h"
28 #include "wx/msgdlg.h"
30 #include "wx/module.h"
31 #include "wx/memory.h"
36 #include "wx/thread.h"
39 #if wxUSE_WX_RESOURCES
40 #include "wx/resource.h"
45 #include <X11/Xutil.h>
46 #include <X11/Xresource.h>
47 #include <X11/Xatom.h>
49 #include "wx/motif/private.h"
53 extern char *wxBuffer
;
54 extern wxList wxPendingDelete
;
57 extern wxList
*wxPendingEvents
;
58 extern wxCriticalSection
*wxPendingEventsLocker
;
59 #endif // wxUSE_THREADS
61 wxApp
*wxTheApp
= NULL
;
63 wxHashTable
*wxWidgetHashTable
= NULL
;
65 #if !USE_SHARED_LIBRARY
66 IMPLEMENT_DYNAMIC_CLASS(wxApp
, wxEvtHandler
)
68 BEGIN_EVENT_TABLE(wxApp
, wxEvtHandler
)
69 EVT_IDLE(wxApp::OnIdle
)
73 long wxApp::sm_lastMessageTime
= 0;
75 bool wxApp::Initialize()
77 wxBuffer
= new char[BUFSIZ
+ 512];
79 wxClassInfo::InitializeClasses();
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.
84 wxPendingEvents
= new wxList();
85 wxPendingEventsLocker
= new wxCriticalSection();
88 wxTheColourDatabase
= new wxColourDatabase(wxKEY_STRING
);
89 wxTheColourDatabase
->Initialize();
91 wxInitializeStockLists();
92 wxInitializeStockObjects();
94 #if wxUSE_WX_RESOURCES
95 wxInitializeResourceSystem();
98 // For PostScript printing
100 /* Done using wxModule now
101 wxInitializePrintSetupData();
102 wxThePrintPaperDatabase = new wxPrintPaperDatabase;
103 wxThePrintPaperDatabase->CreateDatabase();
107 wxBitmap::InitStandardHandlers();
109 wxWidgetHashTable
= new wxHashTable(wxKEY_INTEGER
);
111 wxModule::RegisterModules();
112 if (!wxModule::InitializeModules()) return FALSE
;
117 void wxApp::CleanUp()
119 delete wxWidgetHashTable
;
120 wxWidgetHashTable
= NULL
;
122 wxModule::CleanUpModules();
124 #if wxUSE_WX_RESOURCES
125 wxCleanUpResourceSystem();
128 wxDeleteStockObjects() ;
130 // Destroy all GDI lists, etc.
132 delete wxTheBrushList
;
133 wxTheBrushList
= NULL
;
138 delete wxTheFontList
;
139 wxTheFontList
= NULL
;
141 delete wxTheBitmapList
;
142 wxTheBitmapList
= NULL
;
144 delete wxTheColourDatabase
;
145 wxTheColourDatabase
= NULL
;
148 /* Done using wxModule now
149 wxInitializePrintSetupData(FALSE);
150 delete wxThePrintPaperDatabase;
151 wxThePrintPaperDatabase = NULL;
155 wxBitmap::CleanUpHandlers();
160 wxClassInfo::CleanUpClasses();
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.
168 delete wxPendingEvents
;
169 delete wxPendingEventsLocker
;
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)
179 wxLogDebug("There were memory leaks.\n");
180 wxDebugContext::Dump();
181 wxDebugContext::PrintStatistics();
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
);
191 int wxEntry( int argc
, char *argv
[] )
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();
203 if (!wxApp::Initialize())
208 if (!wxApp::GetInitializerFunction())
210 printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
214 wxTheApp
= (wxApp
*) (* wxApp::GetInitializerFunction()) ();
219 printf( "wxWindows error: wxTheApp == NULL\n" );
223 wxTheApp
->SetClassName(wxFileNameFromPath(argv
[0]));
224 wxTheApp
->SetAppName(wxFileNameFromPath(argv
[0]));
226 wxTheApp
->argc
= argc
;
227 wxTheApp
->argv
= argv
;
229 // GUI-specific initialization, such as creating an app context.
230 wxTheApp
->OnInitGui();
232 // Here frames insert themselves automatically into wxTopLevelWindows by
233 // getting created in OnInit().
236 if (wxTheApp
->OnInit())
238 if (wxTheApp
->Initialized()) retValue
= wxTheApp
->OnRun();
241 // flush the logged messages if any
242 wxLog
*pLog
= wxLog::GetActiveTarget();
243 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
246 delete wxLog::SetActiveTarget(new wxLogStderr
); // So dialog boxes aren't used
247 // for further messages
249 if (wxTheApp
->GetTopWindow())
251 delete wxTheApp
->GetTopWindow();
252 wxTheApp
->SetTopWindow(NULL
);
255 wxTheApp
->DeletePendingObjects();
264 // Static member initialization
265 wxAppInitializerFunction
wxAppBase::m_appInitFn
= (wxAppInitializerFunction
) NULL
;
272 m_wantDebugOutput
= TRUE
;
276 m_exitOnFrameDelete
= TRUE
;
278 m_mainColormap
= (WXColormap
) NULL
;
279 m_appContext
= (WXAppContext
) NULL
;
280 m_topLevelWidget
= (WXWidget
) NULL
;
281 m_maxRequestSize
= 0;
282 m_initialDisplay
= (WXDisplay
*) 0;
285 bool wxApp::Initialized()
293 int wxApp::MainLoop()
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.
304 XSelectInput(XtDisplay((Widget
) wxTheApp
->GetTopLevelWidget()),
305 XDefaultRootWindow(XtDisplay((Widget
) wxTheApp
->GetTopLevelWidget())),
310 // Use this flag to allow breaking the loop via wxApp::ExitMainLoop()
313 XtAppNextEvent( (XtAppContext
) wxTheApp
->GetAppContext(), &event
);
315 ProcessXEvent((WXEvent
*) & event
);
317 if (XtAppPending( (XtAppContext
) wxTheApp
->GetAppContext() ) == 0)
322 // leave the main loop to give other threads a chance to
323 // perform their GUI work
336 // Processes an X event.
337 void wxApp::ProcessXEvent(WXEvent
* _event
)
339 XEvent
* event
= (XEvent
*) _event
;
341 if (event
->type
== KeyPress
)
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
));
349 if (CheckForAccelerator(_event
))
351 // Do nothing! We intercepted and processed the event as an
355 #if 0 // this isn't necessary anymore ??? -michael
356 else if (CheckForKeyDown(_event
))
358 // We intercepted and processed the key down event
364 XtDispatchEvent(event
);
368 else if (event
->type
== KeyRelease
)
370 // TODO: work out why we still need this ! -michael
372 if (CheckForKeyUp(_event
))
374 // We intercepted and processed the key up event
379 XtDispatchEvent(event
);
383 else if (event
->type
== PropertyNotify
)
385 HandlePropertyChange(_event
);
388 else if (event
->type
== ResizeRequest
)
390 /* Terry Gitnick <terryg@scientech.com> - 1/21/98
391 * If resize event, don't resize until the last resize event for this
392 * window is recieved. Prevents flicker as windows are resized.
395 Display
*disp
= XtDisplay((Widget
) wxTheApp
->GetTopLevelWidget());
396 Window win
= event
->xany
.window
;
401 while( XCheckTypedWindowEvent (disp
, win
, ResizeRequest
, &report
));
403 // TODO: when implementing refresh optimization, we can use
404 // XtAddExposureToRegion to expand the window's paint region.
406 XtDispatchEvent(event
);
410 XtDispatchEvent(event
);
414 // Returns TRUE if more time is needed.
415 bool wxApp::ProcessIdle()
418 event
.SetEventObject(this);
421 return event
.MoreRequested();
424 void wxApp::ExitMainLoop()
429 // Is a message/event pending?
430 bool wxApp::Pending()
432 XFlush(XtDisplay( (Widget
) wxTheApp
->GetTopLevelWidget() ));
434 // Fix by Doug from STI, to prevent a stall if non-X event
436 return ((XtAppPending( (XtAppContext
) GetAppContext() ) & XtIMXEvent
) != 0) ;
439 // Dispatch a message.
440 void wxApp::Dispatch()
442 // XtAppProcessEvent( (XtAppContext) wxTheApp->GetAppContext(), XtIMAll);
445 XtAppNextEvent((XtAppContext
) GetAppContext(), &event
);
446 ProcessXEvent((WXEvent
*) & event
);
449 // This should be redefined in a derived class for
450 // handling property change events for XAtom IPC.
451 void wxApp::HandlePropertyChange(WXEvent
*event
)
453 // by default do nothing special
454 XtDispatchEvent((XEvent
*) event
); /* let Motif do the work */
457 void wxApp::OnIdle(wxIdleEvent
& event
)
459 static bool inOnIdle
= FALSE
;
461 // Avoid recursion (via ProcessEvent default case)
467 // 'Garbage' collection of windows deleted with Close().
468 DeletePendingObjects();
471 // Flush pending events.
472 ProcessPendingEvents();
475 // flush the logged messages if any
476 wxLog
*pLog
= wxLog::GetActiveTarget();
477 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
480 // Send OnIdle events to all windows
481 bool needMore
= SendIdleEvents();
484 event
.RequestMore(TRUE
);
489 // Send idle event to all top-level windows
490 bool wxApp::SendIdleEvents()
492 bool needMore
= FALSE
;
494 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
497 wxWindow
* win
= node
->GetData();
498 if (SendIdleEvents(win
))
500 node
= node
->GetNext();
506 // Send idle event to window and all subwindows
507 bool wxApp::SendIdleEvents(wxWindow
* win
)
509 bool needMore
= FALSE
;
512 event
.SetEventObject(win
);
513 win
->ProcessEvent(event
);
515 if (event
.MoreRequested())
518 wxNode
* node
= win
->GetChildren().First();
521 wxWindow
* win
= (wxWindow
*) node
->Data();
522 if (SendIdleEvents(win
))
530 void wxApp::DeletePendingObjects()
532 wxNode
*node
= wxPendingDelete
.First();
535 wxObject
*obj
= (wxObject
*)node
->Data();
539 if (wxPendingDelete
.Member(obj
))
542 // Deleting one object may have deleted other pending
543 // objects, so start from beginning of list again.
544 node
= wxPendingDelete
.First();
549 void wxApp::ProcessPendingEvents()
551 wxNode
*node
= wxPendingEvents
->First();
552 wxCriticalSectionLocker
locker(*wxPendingEventsLocker
);
556 wxEvtHandler
*handler
= (wxEvtHandler
*)node
->Data();
558 handler
->ProcessPendingEvents();
561 node
= wxPendingEvents
->First();
564 #endif // wxUSE_THREADS
566 // Create an application context
567 bool wxApp::OnInitGui()
569 XtToolkitInitialize() ;
570 wxTheApp
->m_appContext
= (WXAppContext
) XtCreateApplicationContext() ;
571 Display
*dpy
= XtOpenDisplay((XtAppContext
) wxTheApp
->m_appContext
,(String
)NULL
,NULL
,
572 (const char*) wxTheApp
->GetClassName(), NULL
, 0,
573 # if XtSpecificationRelease < 5
581 wxString
className(wxTheApp
->GetClassName());
582 wxLogError(_("wxWindows could not open display for '%s': exiting."),
583 (const char*) className
);
586 m_initialDisplay
= (WXDisplay
*) dpy
;
588 wxTheApp
->m_topLevelWidget
= (WXWidget
) XtAppCreateShell((String
)NULL
, (const char*) wxTheApp
->GetClassName(),
589 applicationShellWidgetClass
,dpy
,
592 // Add general resize proc
594 rec
.string
= "resize";
595 rec
.proc
= (XtActionProc
)wxWidgetResizeProc
;
596 XtAppAddActions((XtAppContext
) wxTheApp
->m_appContext
, &rec
, 1);
598 GetMainColormap(dpy
);
599 m_maxRequestSize
= XMaxRequestSize((Display
*) dpy
);
604 WXColormap
wxApp::GetMainColormap(WXDisplay
* display
)
606 if (!display
) /* Must be called first with non-NULL display */
607 return m_mainColormap
;
609 int defaultScreen
= DefaultScreen((Display
*) display
);
610 Screen
* screen
= XScreenOfDisplay((Display
*) display
, defaultScreen
);
612 Colormap c
= DefaultColormapOfScreen(screen
);
615 m_mainColormap
= (WXColormap
) c
;
617 return (WXColormap
) c
;
620 // Returns TRUE if an accelerator has been processed
621 bool wxApp::CheckForAccelerator(WXEvent
* event
)
623 XEvent
* xEvent
= (XEvent
*) event
;
624 if (xEvent
->xany
.type
== KeyPress
)
626 // Find a wxWindow for this window
627 // TODO: should get display for the window, not the current display
628 Widget widget
= XtWindowToWidget((Display
*) wxGetDisplay(), xEvent
->xany
.window
);
629 wxWindow
* win
= NULL
;
631 // Find the first wxWindow that corresponds to this event window
632 while (widget
&& !(win
= wxGetWindowFromTable(widget
)))
633 widget
= XtParent(widget
);
638 wxKeyEvent
keyEvent(wxEVT_CHAR
);
639 wxTranslateKeyEvent(keyEvent
, win
, (Widget
) 0, xEvent
);
641 // Now we have a wxKeyEvent and we have a wxWindow.
642 // Go up the hierarchy until we find a matching accelerator,
643 // or we get to the top.
646 if (win
->ProcessAccelerator(keyEvent
))
648 win
= win
->GetParent();
655 bool wxApp::CheckForKeyDown(WXEvent
* event
)
657 XEvent
* xEvent
= (XEvent
*) event
;
658 if (xEvent
->xany
.type
== KeyPress
)
660 Widget widget
= XtWindowToWidget((Display
*) wxGetDisplay(),
661 xEvent
->xany
.window
);
662 wxWindow
* win
= NULL
;
664 // Find the first wxWindow that corresponds to this event window
665 while (widget
&& !(win
= wxGetWindowFromTable(widget
)))
666 widget
= XtParent(widget
);
671 wxKeyEvent
keyEvent(wxEVT_KEY_DOWN
);
672 wxTranslateKeyEvent(keyEvent
, win
, (Widget
) 0, xEvent
);
674 return win
->ProcessEvent( keyEvent
);
680 bool wxApp::CheckForKeyUp(WXEvent
* event
)
682 XEvent
* xEvent
= (XEvent
*) event
;
683 if (xEvent
->xany
.type
== KeyRelease
)
685 Widget widget
= XtWindowToWidget((Display
*) wxGetDisplay(),
686 xEvent
->xany
.window
);
687 wxWindow
* win
= NULL
;
689 // Find the first wxWindow that corresponds to this event window
690 while (widget
&& !(win
= wxGetWindowFromTable(widget
)))
691 widget
= XtParent(widget
);
696 wxKeyEvent
keyEvent(wxEVT_KEY_UP
);
697 wxTranslateKeyEvent(keyEvent
, win
, (Widget
) 0, xEvent
);
699 return win
->ProcessEvent( keyEvent
);
709 retValue
= wxTheApp
->OnExit();
713 * Exit in some platform-specific way. Not recommended that the app calls this:
714 * only for emergencies.
719 // Yield to other processes
722 while (wxTheApp
&& wxTheApp
->Pending())
723 wxTheApp
->Dispatch();
725 // VZ: is it the same as this (taken from old wxExecute)?
727 XtAppProcessEvent((XtAppContext
) wxTheApp
->GetAppContext(), XtIMAll
);
733 // TODO use XmGetPixmap (?) to get the really standard icons!
735 #include "wx/generic/info.xpm"
736 #include "wx/generic/error.xpm"
737 #include "wx/generic/question.xpm"
738 #include "wx/generic/warning.xpm"
741 wxApp::GetStdIcon(int which
) const
745 case wxICON_INFORMATION
:
746 return wxIcon(info_xpm
);
748 case wxICON_QUESTION
:
749 return wxIcon(question_xpm
);
751 case wxICON_EXCLAMATION
:
752 return wxIcon(warning_xpm
);
755 wxFAIL_MSG("requested non existent standard icon");
756 // still fall through
759 return wxIcon(error_xpm
);