1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "app.h"
19 #include "wx/gdicmn.h"
21 #include "wx/dialog.h"
23 #include "wx/module.h"
24 #include "wx/memory.h"
27 #include "wx/evtloop.h"
29 #include "wx/univ/theme.h"
30 #include "wx/univ/renderer.h"
33 #include "wx/thread.h"
36 #if wxUSE_WX_RESOURCES
37 #include "wx/resource.h"
40 #include "wx/x11/private.h"
44 //------------------------------------------------------------------------
46 //------------------------------------------------------------------------
48 extern wxList wxPendingDelete
;
50 wxHashTable
*wxWidgetHashTable
= NULL
;
52 wxApp
*wxTheApp
= NULL
;
54 // This is set within wxEntryStart -- too early on
55 // to put these in wxTheApp
56 static int g_newArgc
= 0;
57 static wxChar
** g_newArgv
= NULL
;
58 static bool g_showIconic
= FALSE
;
59 static wxSize g_initialSize
= wxDefaultSize
;
61 // This is required for wxFocusEvent::SetWindow(). It will only
62 // work for focus events which we provoke ourselves (by calling
63 // SetFocus()). It will not work for those events, which X11
65 static wxWindow
*g_nextFocus
= NULL
;
66 static wxWindow
*g_prevFocus
= NULL
;
68 //------------------------------------------------------------------------
70 //------------------------------------------------------------------------
73 typedef int (*XErrorHandlerFunc
)(Display
*, XErrorEvent
*);
75 XErrorHandlerFunc gs_pfnXErrorHandler
= 0;
77 static int wxXErrorHandler(Display
*dpy
, XErrorEvent
*xevent
)
79 // just forward to the default handler for now
80 if (gs_pfnXErrorHandler
)
81 return gs_pfnXErrorHandler(dpy
, xevent
);
87 //------------------------------------------------------------------------
89 //------------------------------------------------------------------------
91 long wxApp::sm_lastMessageTime
= 0;
92 WXDisplay
*wxApp::ms_display
= NULL
;
94 IMPLEMENT_DYNAMIC_CLASS(wxApp
, wxEvtHandler
)
96 BEGIN_EVENT_TABLE(wxApp
, wxEvtHandler
)
97 EVT_IDLE(wxApp::OnIdle
)
100 bool wxApp::Initialize()
102 wxClassInfo::InitializeClasses();
104 // GL: I'm annoyed ... I don't know where to put this and I don't want to
105 // create a module for that as it's part of the core.
107 wxPendingEventsLocker
= new wxCriticalSection();
110 wxTheColourDatabase
= new wxColourDatabase(wxKEY_STRING
);
111 wxTheColourDatabase
->Initialize();
113 wxInitializeStockLists();
114 wxInitializeStockObjects();
116 #if wxUSE_WX_RESOURCES
117 wxInitializeResourceSystem();
120 wxWidgetHashTable
= new wxHashTable(wxKEY_INTEGER
);
122 wxModule::RegisterModules();
123 if (!wxModule::InitializeModules()) return FALSE
;
128 void wxApp::CleanUp()
134 delete wxWidgetHashTable
;
135 wxWidgetHashTable
= NULL
;
137 wxModule::CleanUpModules();
139 #if wxUSE_WX_RESOURCES
140 wxCleanUpResourceSystem();
143 delete wxTheColourDatabase
;
144 wxTheColourDatabase
= NULL
;
146 wxDeleteStockObjects();
148 wxDeleteStockLists();
153 wxClassInfo::CleanUpClasses();
156 delete wxPendingEvents
;
157 delete wxPendingEventsLocker
;
160 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
161 // At this point we want to check if there are any memory
162 // blocks that aren't part of the wxDebugContext itself,
163 // as a special case. Then when dumping we need to ignore
164 // wxDebugContext, too.
165 if (wxDebugContext::CountObjectsLeft(TRUE
) > 0)
167 wxLogDebug("There were memory leaks.");
168 wxDebugContext::Dump();
169 wxDebugContext::PrintStatistics();
173 // do it as the very last thing because everything else can log messages
174 wxLog::DontCreateOnDemand();
175 // do it as the very last thing because everything else can log messages
176 delete wxLog::SetActiveTarget(NULL
);
179 // NB: argc and argv may be changed here, pass by reference!
180 int wxEntryStart( int& argc
, char *argv
[] )
184 // install the X error handler
185 gs_pfnXErrorHandler
= XSetErrorHandler( wxXErrorHandler
);
187 #endif // __WXDEBUG__
189 wxString displayName
;
190 bool syncDisplay
= FALSE
;
192 // Parse the arguments.
193 // We can't use wxCmdLineParser or OnInitCmdLine and friends because
194 // we have to create the Display earlier. If we can find a way to
195 // use the wxAppBase API then I'll be quite happy to change it.
196 g_newArgv
= new wxChar
*[argc
];
199 for (i
= 0; i
< argc
; i
++)
201 wxString
arg(argv
[i
]);
202 if (arg
== wxT("-display"))
207 displayName
= argv
[i
];
211 else if (arg
== wxT("-geometry"))
216 wxString windowGeometry
= argv
[i
];
218 if (wxSscanf(windowGeometry
.c_str(), _T("%dx%d"), &w
, &h
) != 2)
220 wxLogError(_("Invalid geometry specification '%s'"), windowGeometry
.c_str());
224 g_initialSize
= wxSize(w
, h
);
229 else if (arg
== wxT("-sync"))
234 else if (arg
== wxT("-iconic"))
241 // Not eaten by wxWindows, so pass through
242 g_newArgv
[g_newArgc
] = argv
[i
];
246 Display
* xdisplay
= NULL
;
247 if (displayName
.IsEmpty())
248 xdisplay
= XOpenDisplay(NULL
);
250 xdisplay
= XOpenDisplay((char*) displayName
.c_str());
254 wxLogError( _("wxWindows could not open display. Exiting.") );
260 XSynchronize(xdisplay
, True
);
263 wxApp::ms_display
= (WXDisplay
*) xdisplay
;
265 XSelectInput( xdisplay
, XDefaultRootWindow(xdisplay
), PropertyChangeMask
);
267 wxSetDetectableAutoRepeat( TRUE
);
269 if (!wxApp::Initialize())
279 if ( !wxTheApp
->OnInitGui() )
286 int wxEntry( int argc
, char *argv
[] )
288 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
289 // This seems to be necessary since there are 'rogue'
290 // objects present at this point (perhaps global objects?)
291 // Setting a checkpoint will ignore them as far as the
292 // memory checking facility is concerned.
293 // Of course you may argue that memory allocated in globals should be
294 // checked, but this is a reasonable compromise.
295 wxDebugContext::SetCheckpoint();
297 int err
= wxEntryStart(argc
, argv
);
303 if (!wxApp::GetInitializerFunction())
305 printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
309 wxTheApp
= (wxApp
*) (* wxApp::GetInitializerFunction()) ();
314 printf( "wxWindows error: wxTheApp == NULL\n" );
318 wxTheApp
->SetClassName(wxFileNameFromPath(argv
[0]));
319 wxTheApp
->SetAppName(wxFileNameFromPath(argv
[0]));
321 // The command line may have been changed
322 // by stripping out -display etc.
325 wxTheApp
->argc
= g_newArgc
;
326 wxTheApp
->argv
= g_newArgv
;
330 wxTheApp
->argc
= argc
;
331 wxTheApp
->argv
= argv
;
333 wxTheApp
->m_showIconic
= g_showIconic
;
334 wxTheApp
->m_initialSize
= g_initialSize
;
337 retValue
= wxEntryInitGui();
339 // Here frames insert themselves automatically into wxTopLevelWindows by
340 // getting created in OnInit().
343 if ( !wxTheApp
->OnInit() )
349 if (wxTheApp
->Initialized()) retValue
= wxTheApp
->OnRun();
352 // flush the logged messages if any
353 wxLog
*pLog
= wxLog::GetActiveTarget();
354 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
357 delete wxLog::SetActiveTarget(new wxLogStderr
); // So dialog boxes aren't used
358 // for further messages
360 if (wxTheApp
->GetTopWindow())
362 delete wxTheApp
->GetTopWindow();
363 wxTheApp
->SetTopWindow(NULL
);
366 wxTheApp
->DeletePendingObjects();
375 // Static member initialization
376 wxAppInitializerFunction
wxAppBase::m_appInitFn
= (wxAppInitializerFunction
) NULL
;
383 m_wantDebugOutput
= TRUE
;
387 m_exitOnFrameDelete
= TRUE
;
388 m_mainColormap
= (WXColormap
) NULL
;
389 m_topLevelWidget
= (WXWindow
) NULL
;
390 m_maxRequestSize
= 0;
392 m_showIconic
= FALSE
;
393 m_initialSize
= wxDefaultSize
;
396 bool wxApp::Initialized()
404 int wxApp::MainLoop()
407 m_mainLoop
= new wxEventLoop
;
409 rt
= m_mainLoop
->Run();
417 //-----------------------------------------------------------------------
418 // X11 predicate function for exposure compression
419 //-----------------------------------------------------------------------
424 Bool found_non_matching
;
427 static Bool
expose_predicate (Display
*display
, XEvent
*xevent
, XPointer arg
)
429 wxExposeInfo
*info
= (wxExposeInfo
*) arg
;
431 if (info
->found_non_matching
)
434 if (xevent
->xany
.type
!= Expose
)
436 info
->found_non_matching
= TRUE
;
440 if (xevent
->xexpose
.window
!= info
->window
)
442 info
->found_non_matching
= TRUE
;
451 //-----------------------------------------------------------------------
452 // Processes an X event.
453 //-----------------------------------------------------------------------
455 void wxApp::ProcessXEvent(WXEvent
* _event
)
457 XEvent
* event
= (XEvent
*) _event
;
459 wxWindow
* win
= NULL
;
460 Window window
= XEventGetWindow(event
);
461 Window actualWindow
= window
;
463 // Find the first wxWindow that corresponds to this event window
464 // Because we're receiving events after a window
465 // has been destroyed, assume a 1:1 match between
466 // Window and wxWindow, so if it's not in the table,
467 // it must have been destroyed.
469 win
= wxGetWindowFromTable(window
);
474 wxString windowClass
= win
->GetClassInfo()->GetClassName();
481 if (!win
->IsEnabled())
484 wxKeyEvent
keyEvent(wxEVT_KEY_DOWN
);
485 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
487 // wxLogDebug( "OnKey from %s", win->GetName().c_str() );
489 // We didn't process wxEVT_KEY_DOWN, so send
491 if (!win
->GetEventHandler()->ProcessEvent( keyEvent
))
493 keyEvent
.SetEventType(wxEVT_CHAR
);
494 win
->GetEventHandler()->ProcessEvent( keyEvent
);
500 if (!win
->IsEnabled())
503 wxKeyEvent
keyEvent(wxEVT_KEY_UP
);
504 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
506 win
->GetEventHandler()->ProcessEvent( keyEvent
);
509 case ConfigureNotify
:
512 if (event
->update
.utype
== GR_UPDATE_SIZE
)
515 //wxLogDebug("ConfigureNotify: %s", windowClass.c_str());
516 wxSizeEvent
sizeEvent( wxSize(XConfigureEventGetWidth(event
), XConfigureEventGetHeight(event
)), win
->GetId() );
517 sizeEvent
.SetEventObject( win
);
519 win
->GetEventHandler()->ProcessEvent( sizeEvent
);
526 //wxLogDebug("PropertyNotify: %s", windowClass.c_str());
527 HandlePropertyChange(_event
);
532 if (!win
->IsEnabled())
535 Atom wm_delete_window
= XInternAtom(wxGlobalDisplay(), "WM_DELETE_WINDOW", True
);
536 Atom wm_protocols
= XInternAtom(wxGlobalDisplay(), "WM_PROTOCOLS", True
);
538 if (event
->xclient
.message_type
== wm_protocols
)
540 if ((Atom
) (event
->xclient
.data
.l
[0]) == wm_delete_window
)
550 * If resize event, don't resize until the last resize event for this
551 * window is recieved. Prevents flicker as windows are resized.
554 Display
*disp
= (Display
*) wxGetDisplay();
559 while( XCheckTypedWindowEvent (disp
, actualWindow
, ResizeRequest
, &report
));
563 wxSize sz
= win
->GetSize();
564 wxSizeEvent
sizeEvent(sz
, win
->GetId());
565 sizeEvent
.SetEventObject(win
);
567 win
->GetEventHandler()->ProcessEvent( sizeEvent
);
574 case GR_EVENT_TYPE_CLOSE_REQ
:
585 //wxLogDebug("Expose: %s", windowClass.c_str());
586 win
->GetUpdateRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
587 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
589 win
->GetClearRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
590 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
596 info
.window
= event
->xexpose
.window
;
597 info
.found_non_matching
= FALSE
;
598 while (XCheckIfEvent( wxGlobalDisplay(), &tmp_event
, expose_predicate
, (XPointer
) &info
))
600 win
->GetUpdateRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
601 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
603 win
->GetClearRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
604 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
608 win
->SendEraseEvents();
615 // wxLogDebug( "GraphicsExpose from %s", win->GetName().c_str(),
616 // event->xgraphicsexpose.x, event->xgraphicsexpose.y,
617 // event->xgraphicsexpose.width, event->xgraphicsexpose.height);
619 win
->GetUpdateRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
620 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
622 win
->GetClearRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
623 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
625 if (event
->xgraphicsexpose
.count
== 0)
627 // Only erase background, paint in idle time.
628 win
->SendEraseEvents();
640 if (!win
->IsEnabled())
643 // Here we check if the top level window is
644 // disabled, which is one aspect of modality.
646 while (tlw
&& !tlw
->IsTopLevel())
647 tlw
= tlw
->GetParent();
648 if (tlw
&& !tlw
->IsEnabled())
651 if (event
->type
== ButtonPress
)
653 if ((win
!= wxWindow::FindFocus()) && win
->AcceptsFocus())
655 // This might actually be done in wxWindow::SetFocus()
657 g_prevFocus
= wxWindow::FindFocus();
664 wxMouseEvent wxevent
;
665 wxTranslateMouseEvent(wxevent
, win
, window
, event
);
666 win
->GetEventHandler()->ProcessEvent( wxevent
);
672 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
673 (event
->xfocus
.mode
== NotifyNormal
))
676 // wxLogDebug( "FocusIn from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
678 wxFocusEvent
focusEvent(wxEVT_SET_FOCUS
, win
->GetId());
679 focusEvent
.SetEventObject(win
);
680 focusEvent
.SetWindow( g_prevFocus
);
683 win
->GetEventHandler()->ProcessEvent(focusEvent
);
690 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
691 (event
->xfocus
.mode
== NotifyNormal
))
694 // wxLogDebug( "FocusOut from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
696 wxFocusEvent
focusEvent(wxEVT_KILL_FOCUS
, win
->GetId());
697 focusEvent
.SetEventObject(win
);
698 focusEvent
.SetWindow( g_nextFocus
);
700 win
->GetEventHandler()->ProcessEvent(focusEvent
);
707 // Do we want to process this (for top-level windows)?
708 // But we want to be able to veto closes, anyway
715 //wxString eventName = wxGetXEventName(XEvent& event);
716 //wxLogDebug(wxT("Event %s not handled"), eventName.c_str());
723 // Returns TRUE if more time is needed.
724 // Note that this duplicates wxEventLoopImpl::SendIdleEvent
725 // but ProcessIdle may be needed by apps, so is kept.
726 bool wxApp::ProcessIdle()
729 event
.SetEventObject(this);
732 return event
.MoreRequested();
735 void wxApp::ExitMainLoop()
741 // Is a message/event pending?
742 bool wxApp::Pending()
744 return wxEventLoop::GetActive()->Pending();
747 // Dispatch a message.
748 void wxApp::Dispatch()
750 wxEventLoop::GetActive()->Dispatch();
753 // This should be redefined in a derived class for
754 // handling property change events for XAtom IPC.
755 void wxApp::HandlePropertyChange(WXEvent
*event
)
757 // by default do nothing special
758 // TODO: what to do for X11
759 // XtDispatchEvent((XEvent*) event);
762 void wxApp::OnIdle(wxIdleEvent
& event
)
764 static bool s_inOnIdle
= FALSE
;
766 // Avoid recursion (via ProcessEvent default case)
772 // Resend in the main thread events which have been prepared in other
774 ProcessPendingEvents();
776 // 'Garbage' collection of windows deleted with Close()
777 DeletePendingObjects();
779 // Send OnIdle events to all windows
780 bool needMore
= SendIdleEvents();
783 event
.RequestMore(TRUE
);
790 // **** please implement me! ****
791 // Wake up the idle handler processor, even if it is in another thread...
795 // Send idle event to all top-level windows
796 bool wxApp::SendIdleEvents()
798 bool needMore
= FALSE
;
800 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
803 wxWindow
* win
= node
->GetData();
804 if (SendIdleEvents(win
))
806 node
= node
->GetNext();
812 // Send idle event to window and all subwindows
813 bool wxApp::SendIdleEvents(wxWindow
* win
)
815 bool needMore
= FALSE
;
818 event
.SetEventObject(win
);
820 win
->GetEventHandler()->ProcessEvent(event
);
822 win
->OnInternalIdle();
824 if (event
.MoreRequested())
827 wxNode
* node
= win
->GetChildren().First();
830 wxWindow
* win
= (wxWindow
*) node
->Data();
831 if (SendIdleEvents(win
))
840 void wxApp::DeletePendingObjects()
842 wxNode
*node
= wxPendingDelete
.First();
845 wxObject
*obj
= (wxObject
*)node
->Data();
849 if (wxPendingDelete
.Member(obj
))
852 // Deleting one object may have deleted other pending
853 // objects, so start from beginning of list again.
854 node
= wxPendingDelete
.First();
858 // Create display, and other initialization
859 bool wxApp::OnInitGui()
861 // Eventually this line will be removed, but for
862 // now we don't want to try popping up a dialog
863 // for error messages.
864 delete wxLog::SetActiveTarget(new wxLogStderr
);
866 if (!wxAppBase::OnInitGui())
869 GetMainColormap( wxApp::GetDisplay() );
871 m_maxRequestSize
= XMaxRequestSize( (Display
*) wxApp::GetDisplay() );
876 WXColormap
wxApp::GetMainColormap(WXDisplay
* display
)
878 if (!display
) /* Must be called first with non-NULL display */
879 return m_mainColormap
;
881 int defaultScreen
= DefaultScreen((Display
*) display
);
882 Screen
* screen
= XScreenOfDisplay((Display
*) display
, defaultScreen
);
884 Colormap c
= DefaultColormapOfScreen(screen
);
887 m_mainColormap
= (WXColormap
) c
;
889 return (WXColormap
) c
;
892 Window
wxGetWindowParent(Window window
)
894 wxASSERT_MSG( window
, "invalid window" );
898 Window parent
, root
= 0;
902 unsigned int noChildren
= 0;
904 Window
* children
= NULL
;
906 // #define XQueryTree(d,w,r,p,c,nc) GrQueryTree(w,p,c,nc)
911 XQueryTree((Display
*) wxGetDisplay(), window
, & root
, & parent
,
912 & children
, & noChildren
);
925 retValue
= wxTheApp
->OnExit();
929 * Exit in some platform-specific way. Not recommended that the app calls this:
930 * only for emergencies.
935 // Yield to other processes
937 bool wxApp::Yield(bool onlyIfNeeded
)
939 bool s_inYield
= FALSE
;
945 wxFAIL_MSG( wxT("wxYield called recursively" ) );
953 while (wxTheApp
&& wxTheApp
->Pending())
954 wxTheApp
->Dispatch();
961 wxIcon
wxApp::GetStdIcon(int which
) const
963 return wxTheme::Get()->GetRenderer()->GetStdIcon(which
);
966 void wxApp::OnAssert(const wxChar
*file
, int line
, const wxChar
*msg
)
968 // While the GUI isn't working that well, just print out the
971 wxAppBase::OnAssert(file
, line
, msg
);
974 msg2
.Printf("At file %s:%d: %s", file
, line
, msg
);