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, returning TRUE if the event was processed.
453 //-----------------------------------------------------------------------
455 bool 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 if (!win
->GetEventHandler()->ProcessEvent( keyEvent
))
501 if (!win
->IsEnabled())
504 wxKeyEvent
keyEvent(wxEVT_KEY_UP
);
505 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
507 return 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 return win
->GetEventHandler()->ProcessEvent( sizeEvent
);
527 //wxLogDebug("PropertyNotify: %s", windowClass.c_str());
528 return 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
)
551 * If resize event, don't resize until the last resize event for this
552 * window is recieved. Prevents flicker as windows are resized.
555 Display
*disp
= (Display
*) wxGetDisplay();
560 while( XCheckTypedWindowEvent (disp
, actualWindow
, ResizeRequest
, &report
));
564 wxSize sz
= win
->GetSize();
565 wxSizeEvent
sizeEvent(sz
, win
->GetId());
566 sizeEvent
.SetEventObject(win
);
568 return win
->GetEventHandler()->ProcessEvent( sizeEvent
);
575 case GR_EVENT_TYPE_CLOSE_REQ
:
588 //wxLogDebug("Expose: %s", windowClass.c_str());
589 win
->GetUpdateRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
590 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
592 win
->GetClearRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
593 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
599 info
.window
= event
->xexpose
.window
;
600 info
.found_non_matching
= FALSE
;
601 while (XCheckIfEvent( wxGlobalDisplay(), &tmp_event
, expose_predicate
, (XPointer
) &info
))
603 win
->GetUpdateRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
604 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
606 win
->GetClearRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
607 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
611 win
->SendEraseEvents();
618 // wxLogDebug( "GraphicsExpose from %s", win->GetName().c_str(),
619 // event->xgraphicsexpose.x, event->xgraphicsexpose.y,
620 // event->xgraphicsexpose.width, event->xgraphicsexpose.height);
622 win
->GetUpdateRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
623 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
625 win
->GetClearRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
626 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
628 if (event
->xgraphicsexpose
.count
== 0)
630 // Only erase background, paint in idle time.
631 win
->SendEraseEvents();
643 if (!win
->IsEnabled())
646 // Here we check if the top level window is
647 // disabled, which is one aspect of modality.
649 while (tlw
&& !tlw
->IsTopLevel())
650 tlw
= tlw
->GetParent();
651 if (tlw
&& !tlw
->IsEnabled())
654 if (event
->type
== ButtonPress
)
656 if ((win
!= wxWindow::FindFocus()) && win
->AcceptsFocus())
658 // This might actually be done in wxWindow::SetFocus()
659 // and not here. TODO.
660 g_prevFocus
= wxWindow::FindFocus();
669 if (event
->type
== LeaveNotify
|| event
->type
== EnterNotify
)
671 // Throw out NotifyGrab and NotifyUngrab
672 if (event
->xcrossing
.mode
!= NotifyNormal
)
676 wxMouseEvent wxevent
;
677 wxTranslateMouseEvent(wxevent
, win
, window
, event
);
678 return win
->GetEventHandler()->ProcessEvent( wxevent
);
683 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
684 (event
->xfocus
.mode
== NotifyNormal
))
687 // wxLogDebug( "FocusIn from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
689 wxFocusEvent
focusEvent(wxEVT_SET_FOCUS
, win
->GetId());
690 focusEvent
.SetEventObject(win
);
691 focusEvent
.SetWindow( g_prevFocus
);
694 return win
->GetEventHandler()->ProcessEvent(focusEvent
);
702 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
703 (event
->xfocus
.mode
== NotifyNormal
))
706 // wxLogDebug( "FocusOut from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
708 wxFocusEvent
focusEvent(wxEVT_KILL_FOCUS
, win
->GetId());
709 focusEvent
.SetEventObject(win
);
710 focusEvent
.SetWindow( g_nextFocus
);
712 return win
->GetEventHandler()->ProcessEvent(focusEvent
);
720 // Do we want to process this (for top-level windows)?
721 // But we want to be able to veto closes, anyway
729 //wxString eventName = wxGetXEventName(XEvent& event);
730 //wxLogDebug(wxT("Event %s not handled"), eventName.c_str());
739 // Returns TRUE if more time is needed.
740 // Note that this duplicates wxEventLoopImpl::SendIdleEvent
741 // but ProcessIdle may be needed by apps, so is kept.
742 bool wxApp::ProcessIdle()
745 event
.SetEventObject(this);
748 return event
.MoreRequested();
751 void wxApp::ExitMainLoop()
757 // Is a message/event pending?
758 bool wxApp::Pending()
760 return wxEventLoop::GetActive()->Pending();
763 // Dispatch a message.
764 void wxApp::Dispatch()
766 wxEventLoop::GetActive()->Dispatch();
769 // This should be redefined in a derived class for
770 // handling property change events for XAtom IPC.
771 bool wxApp::HandlePropertyChange(WXEvent
*event
)
773 // by default do nothing special
774 // TODO: what to do for X11
775 // XtDispatchEvent((XEvent*) event);
779 void wxApp::OnIdle(wxIdleEvent
& event
)
781 static bool s_inOnIdle
= FALSE
;
783 // Avoid recursion (via ProcessEvent default case)
789 // Resend in the main thread events which have been prepared in other
791 ProcessPendingEvents();
793 // 'Garbage' collection of windows deleted with Close()
794 DeletePendingObjects();
796 // Send OnIdle events to all windows
797 bool needMore
= SendIdleEvents();
800 event
.RequestMore(TRUE
);
807 // **** please implement me! ****
808 // Wake up the idle handler processor, even if it is in another thread...
812 // Send idle event to all top-level windows
813 bool wxApp::SendIdleEvents()
815 bool needMore
= FALSE
;
817 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
820 wxWindow
* win
= node
->GetData();
821 if (SendIdleEvents(win
))
823 node
= node
->GetNext();
829 // Send idle event to window and all subwindows
830 bool wxApp::SendIdleEvents(wxWindow
* win
)
832 bool needMore
= FALSE
;
835 event
.SetEventObject(win
);
837 win
->GetEventHandler()->ProcessEvent(event
);
839 win
->OnInternalIdle();
841 if (event
.MoreRequested())
844 wxNode
* node
= win
->GetChildren().First();
847 wxWindow
* win
= (wxWindow
*) node
->Data();
848 if (SendIdleEvents(win
))
857 void wxApp::DeletePendingObjects()
859 wxNode
*node
= wxPendingDelete
.First();
862 wxObject
*obj
= (wxObject
*)node
->Data();
866 if (wxPendingDelete
.Member(obj
))
869 // Deleting one object may have deleted other pending
870 // objects, so start from beginning of list again.
871 node
= wxPendingDelete
.First();
875 // Create display, and other initialization
876 bool wxApp::OnInitGui()
878 // Eventually this line will be removed, but for
879 // now we don't want to try popping up a dialog
880 // for error messages.
881 delete wxLog::SetActiveTarget(new wxLogStderr
);
883 if (!wxAppBase::OnInitGui())
886 GetMainColormap( wxApp::GetDisplay() );
888 m_maxRequestSize
= XMaxRequestSize( (Display
*) wxApp::GetDisplay() );
893 WXColormap
wxApp::GetMainColormap(WXDisplay
* display
)
895 if (!display
) /* Must be called first with non-NULL display */
896 return m_mainColormap
;
898 int defaultScreen
= DefaultScreen((Display
*) display
);
899 Screen
* screen
= XScreenOfDisplay((Display
*) display
, defaultScreen
);
901 Colormap c
= DefaultColormapOfScreen(screen
);
904 m_mainColormap
= (WXColormap
) c
;
906 return (WXColormap
) c
;
909 Window
wxGetWindowParent(Window window
)
911 wxASSERT_MSG( window
, "invalid window" );
915 Window parent
, root
= 0;
919 unsigned int noChildren
= 0;
921 Window
* children
= NULL
;
923 // #define XQueryTree(d,w,r,p,c,nc) GrQueryTree(w,p,c,nc)
928 XQueryTree((Display
*) wxGetDisplay(), window
, & root
, & parent
,
929 & children
, & noChildren
);
942 retValue
= wxTheApp
->OnExit();
946 * Exit in some platform-specific way. Not recommended that the app calls this:
947 * only for emergencies.
952 // Yield to other processes
954 bool wxApp::Yield(bool onlyIfNeeded
)
956 bool s_inYield
= FALSE
;
962 wxFAIL_MSG( wxT("wxYield called recursively" ) );
970 while (wxTheApp
&& wxTheApp
->Pending())
971 wxTheApp
->Dispatch();
978 wxIcon
wxApp::GetStdIcon(int which
) const
980 return wxTheme::Get()->GetRenderer()->GetStdIcon(which
);
983 void wxApp::OnAssert(const wxChar
*file
, int line
, const wxChar
*msg
)
985 // While the GUI isn't working that well, just print out the
988 wxAppBase::OnAssert(file
, line
, msg
);
991 msg2
.Printf("At file %s:%d: %s", file
, line
, msg
);