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 wxEVT_CHAR
490 if (win
->GetEventHandler()->ProcessEvent( keyEvent
))
493 keyEvent
.SetEventType(wxEVT_CHAR
);
494 if (win
->GetEventHandler()->ProcessEvent( keyEvent
))
497 if ( (keyEvent
.m_keyCode
== WXK_TAB
) &&
498 win
->GetParent() && (win
->GetParent()->HasFlag( wxTAB_TRAVERSAL
)) )
500 wxNavigationKeyEvent new_event
;
501 new_event
.SetEventObject( win
->GetParent() );
502 /* GDK reports GDK_ISO_Left_Tab for SHIFT-TAB */
503 new_event
.SetDirection( (keyEvent
.m_keyCode
== WXK_TAB
) );
504 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
505 new_event
.SetWindowChange( keyEvent
.ControlDown() );
506 new_event
.SetCurrentFocus( win
);
507 return win
->GetParent()->GetEventHandler()->ProcessEvent( new_event
);
514 if (!win
->IsEnabled())
517 wxKeyEvent
keyEvent(wxEVT_KEY_UP
);
518 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
520 return win
->GetEventHandler()->ProcessEvent( keyEvent
);
522 case ConfigureNotify
:
525 if (event
->update
.utype
== GR_UPDATE_SIZE
)
528 //wxLogDebug("ConfigureNotify: %s", windowClass.c_str());
529 if (win
->IsTopLevel())
531 wxTopLevelWindowX11
*tlw
= (wxTopLevelWindowX11
*) win
;
532 tlw
->SetNeedResizeInIdle();
536 wxSizeEvent
sizeEvent( wxSize(XConfigureEventGetWidth(event
), XConfigureEventGetHeight(event
)), win
->GetId() );
537 sizeEvent
.SetEventObject( win
);
539 return win
->GetEventHandler()->ProcessEvent( sizeEvent
);
548 //wxLogDebug("PropertyNotify: %s", windowClass.c_str());
549 return HandlePropertyChange(_event
);
553 if (!win
->IsEnabled())
556 Atom wm_delete_window
= XInternAtom(wxGlobalDisplay(), "WM_DELETE_WINDOW", True
);
557 Atom wm_protocols
= XInternAtom(wxGlobalDisplay(), "WM_PROTOCOLS", True
);
559 if (event
->xclient
.message_type
== wm_protocols
)
561 if ((Atom
) (event
->xclient
.data
.l
[0]) == wm_delete_window
)
573 * If resize event, don't resize until the last resize event for this
574 * window is recieved. Prevents flicker as windows are resized.
577 Display
*disp
= (Display
*) wxGetDisplay();
582 while( XCheckTypedWindowEvent (disp
, actualWindow
, ResizeRequest
, &report
));
584 wxSize sz
= win
->GetSize();
585 wxSizeEvent
sizeEvent(sz
, win
->GetId());
586 sizeEvent
.SetEventObject(win
);
588 return win
->GetEventHandler()->ProcessEvent( sizeEvent
);
593 case GR_EVENT_TYPE_CLOSE_REQ
:
606 //wxLogDebug("Expose: %s", windowClass.c_str());
607 win
->GetUpdateRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
608 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
610 win
->GetClearRegion().Union( XExposeEventGetX(event
), XExposeEventGetY(event
),
611 XExposeEventGetWidth(event
), XExposeEventGetHeight(event
));
617 info
.window
= event
->xexpose
.window
;
618 info
.found_non_matching
= FALSE
;
619 while (XCheckIfEvent( wxGlobalDisplay(), &tmp_event
, expose_predicate
, (XPointer
) &info
))
621 win
->GetUpdateRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
622 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
624 win
->GetClearRegion().Union( tmp_event
.xexpose
.x
, tmp_event
.xexpose
.y
,
625 tmp_event
.xexpose
.width
, tmp_event
.xexpose
.height
);
629 // Only erase background, paint in idle time.
630 win
->SendEraseEvents();
637 // wxLogDebug( "GraphicsExpose from %s", win->GetName().c_str(),
638 // event->xgraphicsexpose.x, event->xgraphicsexpose.y,
639 // event->xgraphicsexpose.width, event->xgraphicsexpose.height);
641 win
->GetUpdateRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
642 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
644 win
->GetClearRegion().Union( event
->xgraphicsexpose
.x
, event
->xgraphicsexpose
.y
,
645 event
->xgraphicsexpose
.width
, event
->xgraphicsexpose
.height
);
647 if (event
->xgraphicsexpose
.count
== 0)
649 // Only erase background, paint in idle time.
650 win
->SendEraseEvents();
662 if (!win
->IsEnabled())
665 // Here we check if the top level window is
666 // disabled, which is one aspect of modality.
668 while (tlw
&& !tlw
->IsTopLevel())
669 tlw
= tlw
->GetParent();
670 if (tlw
&& !tlw
->IsEnabled())
673 if (event
->type
== ButtonPress
)
675 if ((win
!= wxWindow::FindFocus()) && win
->AcceptsFocus())
677 // This might actually be done in wxWindow::SetFocus()
678 // and not here. TODO.
679 g_prevFocus
= wxWindow::FindFocus();
687 if (event
->type
== LeaveNotify
|| event
->type
== EnterNotify
)
689 // Throw out NotifyGrab and NotifyUngrab
690 if (event
->xcrossing
.mode
!= NotifyNormal
)
694 wxMouseEvent wxevent
;
695 wxTranslateMouseEvent(wxevent
, win
, window
, event
);
696 return win
->GetEventHandler()->ProcessEvent( wxevent
);
701 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
702 (event
->xfocus
.mode
== NotifyNormal
))
705 // wxLogDebug( "FocusIn from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
707 wxFocusEvent
focusEvent(wxEVT_SET_FOCUS
, win
->GetId());
708 focusEvent
.SetEventObject(win
);
709 focusEvent
.SetWindow( g_prevFocus
);
712 return win
->GetEventHandler()->ProcessEvent(focusEvent
);
720 if ((event
->xfocus
.detail
!= NotifyPointer
) &&
721 (event
->xfocus
.mode
== NotifyNormal
))
724 // wxLogDebug( "FocusOut from %s of type %s", win->GetName().c_str(), win->GetClassInfo()->GetClassName() );
726 wxFocusEvent
focusEvent(wxEVT_KILL_FOCUS
, win
->GetId());
727 focusEvent
.SetEventObject(win
);
728 focusEvent
.SetWindow( g_nextFocus
);
730 return win
->GetEventHandler()->ProcessEvent(focusEvent
);
738 // Do we want to process this (for top-level windows)?
739 // But we want to be able to veto closes, anyway
747 //wxString eventName = wxGetXEventName(XEvent& event);
748 //wxLogDebug(wxT("Event %s not handled"), eventName.c_str());
757 // Returns TRUE if more time is needed.
758 // Note that this duplicates wxEventLoopImpl::SendIdleEvent
759 // but ProcessIdle may be needed by apps, so is kept.
760 bool wxApp::ProcessIdle()
763 event
.SetEventObject(this);
766 return event
.MoreRequested();
769 void wxApp::ExitMainLoop()
775 // Is a message/event pending?
776 bool wxApp::Pending()
778 return wxEventLoop::GetActive()->Pending();
781 // Dispatch a message.
782 void wxApp::Dispatch()
784 wxEventLoop::GetActive()->Dispatch();
787 // This should be redefined in a derived class for
788 // handling property change events for XAtom IPC.
789 bool wxApp::HandlePropertyChange(WXEvent
*event
)
791 // by default do nothing special
792 // TODO: what to do for X11
793 // XtDispatchEvent((XEvent*) event);
797 void wxApp::OnIdle(wxIdleEvent
& event
)
799 static bool s_inOnIdle
= FALSE
;
801 // Avoid recursion (via ProcessEvent default case)
807 // Resend in the main thread events which have been prepared in other
809 ProcessPendingEvents();
811 // 'Garbage' collection of windows deleted with Close()
812 DeletePendingObjects();
814 // Send OnIdle events to all windows
815 bool needMore
= SendIdleEvents();
818 event
.RequestMore(TRUE
);
825 // **** please implement me! ****
826 // Wake up the idle handler processor, even if it is in another thread...
830 // Send idle event to all top-level windows
831 bool wxApp::SendIdleEvents()
833 bool needMore
= FALSE
;
835 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
838 wxWindow
* win
= node
->GetData();
839 if (SendIdleEvents(win
))
841 node
= node
->GetNext();
847 // Send idle event to window and all subwindows
848 bool wxApp::SendIdleEvents(wxWindow
* win
)
850 bool needMore
= FALSE
;
853 event
.SetEventObject(win
);
855 win
->GetEventHandler()->ProcessEvent(event
);
857 win
->OnInternalIdle();
859 if (event
.MoreRequested())
862 wxNode
* node
= win
->GetChildren().First();
865 wxWindow
* win
= (wxWindow
*) node
->Data();
866 if (SendIdleEvents(win
))
875 void wxApp::DeletePendingObjects()
877 wxNode
*node
= wxPendingDelete
.First();
880 wxObject
*obj
= (wxObject
*)node
->Data();
884 if (wxPendingDelete
.Member(obj
))
887 // Deleting one object may have deleted other pending
888 // objects, so start from beginning of list again.
889 node
= wxPendingDelete
.First();
893 // Create display, and other initialization
894 bool wxApp::OnInitGui()
896 // Eventually this line will be removed, but for
897 // now we don't want to try popping up a dialog
898 // for error messages.
899 delete wxLog::SetActiveTarget(new wxLogStderr
);
901 if (!wxAppBase::OnInitGui())
904 GetMainColormap( wxApp::GetDisplay() );
906 m_maxRequestSize
= XMaxRequestSize( (Display
*) wxApp::GetDisplay() );
911 WXColormap
wxApp::GetMainColormap(WXDisplay
* display
)
913 if (!display
) /* Must be called first with non-NULL display */
914 return m_mainColormap
;
916 int defaultScreen
= DefaultScreen((Display
*) display
);
917 Screen
* screen
= XScreenOfDisplay((Display
*) display
, defaultScreen
);
919 Colormap c
= DefaultColormapOfScreen(screen
);
922 m_mainColormap
= (WXColormap
) c
;
924 return (WXColormap
) c
;
927 Window
wxGetWindowParent(Window window
)
929 wxASSERT_MSG( window
, "invalid window" );
933 Window parent
, root
= 0;
937 unsigned int noChildren
= 0;
939 Window
* children
= NULL
;
941 // #define XQueryTree(d,w,r,p,c,nc) GrQueryTree(w,p,c,nc)
946 XQueryTree((Display
*) wxGetDisplay(), window
, & root
, & parent
,
947 & children
, & noChildren
);
960 retValue
= wxTheApp
->OnExit();
964 * Exit in some platform-specific way. Not recommended that the app calls this:
965 * only for emergencies.
970 // Yield to other processes
972 bool wxApp::Yield(bool onlyIfNeeded
)
974 bool s_inYield
= FALSE
;
980 wxFAIL_MSG( wxT("wxYield called recursively" ) );
988 while (wxTheApp
&& wxTheApp
->Pending())
989 wxTheApp
->Dispatch();
996 wxIcon
wxApp::GetStdIcon(int which
) const
998 return wxTheme::Get()->GetRenderer()->GetStdIcon(which
);
1001 void wxApp::OnAssert(const wxChar
*file
, int line
, const wxChar
*msg
)
1003 // While the GUI isn't working that well, just print out the
1006 wxAppBase::OnAssert(file
, line
, msg
);
1009 msg2
.Printf("At file %s:%d: %s", file
, line
, msg
);