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"
22 #include "wx/cursor.h"
24 #include "wx/dialog.h"
25 #include "wx/msgdlg.h"
27 #include "wx/module.h"
28 #include "wx/memory.h"
31 #include "wx/evtloop.h"
34 #include "wx/thread.h"
37 #if wxUSE_WX_RESOURCES
38 #include "wx/resource.h"
42 #pragma message disable nosimpint
45 #include <X11/Xutil.h>
46 #include <X11/Xresource.h>
47 #include <X11/Xatom.h>
49 #pragma message enable nosimpint
52 #include "wx/x11/private.h"
56 extern char *wxBuffer
;
57 extern wxList wxPendingDelete
;
59 wxApp
*wxTheApp
= NULL
;
61 wxHashTable
*wxWidgetHashTable
= NULL
;
63 IMPLEMENT_DYNAMIC_CLASS(wxApp
, wxEvtHandler
)
65 BEGIN_EVENT_TABLE(wxApp
, wxEvtHandler
)
66 EVT_IDLE(wxApp::OnIdle
)
70 typedef int (*XErrorHandlerFunc
)(Display
*, XErrorEvent
*);
72 XErrorHandlerFunc gs_pfnXErrorHandler
= 0;
74 static int wxXErrorHandler(Display
*dpy
, XErrorEvent
*xevent
)
76 // just forward to the default handler for now
77 return gs_pfnXErrorHandler(dpy
, xevent
);
81 long wxApp::sm_lastMessageTime
= 0;
83 bool wxApp::Initialize()
85 wxBuffer
= new char[BUFSIZ
+ 512];
87 wxClassInfo::InitializeClasses();
89 // GL: I'm annoyed ... I don't know where to put this and I don't want to
90 // create a module for that as it's part of the core.
92 wxPendingEventsLocker
= new wxCriticalSection();
95 wxTheColourDatabase
= new wxColourDatabase(wxKEY_STRING
);
96 wxTheColourDatabase
->Initialize();
98 wxInitializeStockLists();
99 wxInitializeStockObjects();
101 #if wxUSE_WX_RESOURCES
102 wxInitializeResourceSystem();
105 wxBitmap::InitStandardHandlers();
107 wxWidgetHashTable
= new wxHashTable(wxKEY_INTEGER
);
109 wxModule::RegisterModules();
110 if (!wxModule::InitializeModules()) return FALSE
;
115 void wxApp::CleanUp()
117 delete wxWidgetHashTable
;
118 wxWidgetHashTable
= NULL
;
120 wxModule::CleanUpModules();
122 #if wxUSE_WX_RESOURCES
123 wxCleanUpResourceSystem();
126 wxDeleteStockObjects() ;
128 // Destroy all GDI lists, etc.
130 wxDeleteStockLists();
132 delete wxTheColourDatabase
;
133 wxTheColourDatabase
= NULL
;
135 wxBitmap::CleanUpHandlers();
140 wxClassInfo::CleanUpClasses();
145 // GL: I'm annoyed ... I don't know where to put this and I don't want to
146 // create a module for that as it's part of the core.
148 delete wxPendingEvents
;
149 delete wxPendingEventsLocker
;
152 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
153 // At this point we want to check if there are any memory
154 // blocks that aren't part of the wxDebugContext itself,
155 // as a special case. Then when dumping we need to ignore
156 // wxDebugContext, too.
157 if (wxDebugContext::CountObjectsLeft(TRUE
) > 0)
159 wxLogDebug("There were memory leaks.\n");
160 wxDebugContext::Dump();
161 wxDebugContext::PrintStatistics();
165 // do it as the very last thing because everything else can log messages
166 wxLog::DontCreateOnDemand();
167 // do it as the very last thing because everything else can log messages
168 delete wxLog::SetActiveTarget(NULL
);
171 int wxEntry( int argc
, char *argv
[] )
173 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
174 // This seems to be necessary since there are 'rogue'
175 // objects present at this point (perhaps global objects?)
176 // Setting a checkpoint will ignore them as far as the
177 // memory checking facility is concerned.
178 // Of course you may argue that memory allocated in globals should be
179 // checked, but this is a reasonable compromise.
180 wxDebugContext::SetCheckpoint();
183 if (!wxApp::Initialize())
188 if (!wxApp::GetInitializerFunction())
190 printf( "wxWindows error: No initializer - use IMPLEMENT_APP macro.\n" );
194 wxTheApp
= (wxApp
*) (* wxApp::GetInitializerFunction()) ();
199 printf( "wxWindows error: wxTheApp == NULL\n" );
203 wxTheApp
->SetClassName(wxFileNameFromPath(argv
[0]));
204 wxTheApp
->SetAppName(wxFileNameFromPath(argv
[0]));
206 wxTheApp
->argc
= argc
;
207 wxTheApp
->argv
= argv
;
209 // GUI-specific initialization, such as creating an app context.
210 wxTheApp
->OnInitGui();
212 // Here frames insert themselves automatically into wxTopLevelWindows by
213 // getting created in OnInit().
216 if (wxTheApp
->OnInit())
218 if (wxTheApp
->Initialized()) retValue
= wxTheApp
->OnRun();
221 // flush the logged messages if any
222 wxLog
*pLog
= wxLog::GetActiveTarget();
223 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
226 delete wxLog::SetActiveTarget(new wxLogStderr
); // So dialog boxes aren't used
227 // for further messages
229 if (wxTheApp
->GetTopWindow())
231 delete wxTheApp
->GetTopWindow();
232 wxTheApp
->SetTopWindow(NULL
);
235 wxTheApp
->DeletePendingObjects();
244 // Static member initialization
245 wxAppInitializerFunction
wxAppBase::m_appInitFn
= (wxAppInitializerFunction
) NULL
;
252 m_wantDebugOutput
= TRUE
;
256 m_exitOnFrameDelete
= TRUE
;
257 m_mainColormap
= (WXColormap
) NULL
;
258 m_topLevelWidget
= (WXWindow
) NULL
;
259 m_maxRequestSize
= 0;
260 m_initialDisplay
= (WXDisplay
*) 0;
264 bool wxApp::Initialized()
272 int wxApp::MainLoop()
275 m_mainLoop
= new wxEventLoop
;
277 rt
= m_mainLoop
->Run();
284 // Processes an X event.
285 void wxApp::ProcessXEvent(WXEvent
* _event
)
287 XEvent
* event
= (XEvent
*) _event
;
289 wxWindow
* win
= NULL
;
290 Window window
= event
->xany
.window
;
291 Window actualWindow
= window
;
293 // Find the first wxWindow that corresponds to this event window
294 // TODO: may need to translate coordinates from actualWindow
295 // to window, if the receiving window != wxWindow window
296 while (window
&& !(win
= wxGetWindowFromTable(window
)))
297 window
= wxGetWindowParent(window
);
303 if (win
&& !win
->IsEnabled())
309 wxKeyEvent
keyEvent(wxEVT_KEY_DOWN
);
310 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
312 // We didn't process wxEVT_KEY_DOWN, so send
314 if (!win
->GetEventHandler()->ProcessEvent( keyEvent
))
316 keyEvent
.SetEventType(wxEVT_CHAR
);
317 win
->GetEventHandler()->ProcessEvent( keyEvent
);
320 // We intercepted and processed the key down event
328 if (win
&& !win
->IsEnabled())
333 wxKeyEvent
keyEvent(wxEVT_KEY_UP
);
334 wxTranslateKeyEvent(keyEvent
, win
, window
, event
);
336 win
->GetEventHandler()->ProcessEvent( keyEvent
);
342 HandlePropertyChange(_event
);
347 Atom wm_delete_window
= XInternAtom(wxGlobalDisplay(), "WM_DELETE_WINDOW", True
);;
348 Atom wm_protocols
= XInternAtom(wxGlobalDisplay(), "WM_PROTOCOLS", True
);;
350 if (event
->xclient
.message_type
== wm_protocols
)
352 if ((Atom
) (event
->xclient
.data
.l
[0]) == wm_delete_window
)
364 /* Terry Gitnick <terryg@scientech.com> - 1/21/98
365 * If resize event, don't resize until the last resize event for this
366 * window is recieved. Prevents flicker as windows are resized.
369 Display
*disp
= (Display
*) wxGetDisplay();
374 while( XCheckTypedWindowEvent (disp
, actualWindow
, ResizeRequest
, &report
));
376 // TODO: when implementing refresh optimization, we can use
377 // XtAddExposureToRegion to expand the window's paint region.
381 wxSize sz
= win
->GetSize();
382 wxSizeEvent
sizeEvent(sz
, win
->GetId());
383 sizeEvent
.SetEventObject(win
);
385 win
->GetEventHandler()->ProcessEvent( sizeEvent
);
394 win
->GetUpdateRegion().Union( event
->xexpose
.x
, event
->xexpose
.y
,
395 event
->xexpose
.width
, event
->xexpose
.height
);
396 if (event
->xexpose
.count
== 0)
398 win
->X11SendPaintEvents(); // TODO let an idle handler do that
410 if (win
&& !win
->IsEnabled())
415 wxMouseEvent wxevent
;
416 wxTranslateMouseEvent(wxevent
, win
, window
, event
);
417 win
->GetEventHandler()->ProcessEvent( wxevent
);
423 if (win
&& event
->xfocus
.detail
!= NotifyPointer
)
425 wxFocusEvent
focusEvent(wxEVT_SET_FOCUS
, win
->GetId());
426 focusEvent
.SetEventObject(win
);
427 win
->GetEventHandler()->ProcessEvent(focusEvent
);
433 if (win
&& event
->xfocus
.detail
!= NotifyPointer
)
435 wxFocusEvent
focusEvent(wxEVT_KILL_FOCUS
, win
->GetId());
436 focusEvent
.SetEventObject(win
);
437 win
->GetEventHandler()->ProcessEvent(focusEvent
);
443 // Do we want to process this (for top-level windows)?
444 // But we want to be able to veto closes, anyway
454 // Returns TRUE if more time is needed.
455 // Note that this duplicates wxEventLoopImpl::SendIdleEvent
456 // but ProcessIdle may be needed by apps, so is kept.
457 bool wxApp::ProcessIdle()
460 event
.SetEventObject(this);
463 return event
.MoreRequested();
466 void wxApp::ExitMainLoop()
472 // Is a message/event pending?
473 bool wxApp::Pending()
475 return wxEventLoop::GetActive()->Pending();
478 // Dispatch a message.
479 void wxApp::Dispatch()
481 wxEventLoop::GetActive()->Dispatch();
484 // This should be redefined in a derived class for
485 // handling property change events for XAtom IPC.
486 void wxApp::HandlePropertyChange(WXEvent
*event
)
488 // by default do nothing special
489 // TODO: what to do for X11
490 // XtDispatchEvent((XEvent*) event); /* let Motif do the work */
493 void wxApp::OnIdle(wxIdleEvent
& event
)
495 static bool inOnIdle
= FALSE
;
497 // Avoid recursion (via ProcessEvent default case)
503 // If there are pending events, we must process them: pending events
504 // are either events to the threads other than main or events posted
505 // with wxPostEvent() functions
506 // GRG: I have moved this here so that all pending events are processed
507 // before starting to delete any objects. This behaves better (in
508 // particular, wrt wxPostEvent) and is coherent with wxGTK's current
509 // behaviour. Also removed the '#if wxUSE_THREADS' around it.
510 // Changed Mar/2000 before 2.1.14
512 // Flush pending events.
513 ProcessPendingEvents();
515 // 'Garbage' collection of windows deleted with Close().
516 DeletePendingObjects();
518 // flush the logged messages if any
519 wxLog
*pLog
= wxLog::GetActiveTarget();
520 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
523 // Send OnIdle events to all windows
524 bool needMore
= SendIdleEvents();
527 event
.RequestMore(TRUE
);
534 // **** please implement me! ****
535 // Wake up the idle handler processor, even if it is in another thread...
539 // Send idle event to all top-level windows
540 bool wxApp::SendIdleEvents()
542 bool needMore
= FALSE
;
544 wxWindowList::Node
* node
= wxTopLevelWindows
.GetFirst();
547 wxWindow
* win
= node
->GetData();
548 if (SendIdleEvents(win
))
550 node
= node
->GetNext();
556 // Send idle event to window and all subwindows
557 bool wxApp::SendIdleEvents(wxWindow
* win
)
559 bool needMore
= FALSE
;
562 event
.SetEventObject(win
);
563 win
->ProcessEvent(event
);
565 if (event
.MoreRequested())
568 wxNode
* node
= win
->GetChildren().First();
571 wxWindow
* win
= (wxWindow
*) node
->Data();
572 if (SendIdleEvents(win
))
580 void wxApp::DeletePendingObjects()
582 wxNode
*node
= wxPendingDelete
.First();
585 wxObject
*obj
= (wxObject
*)node
->Data();
589 if (wxPendingDelete
.Member(obj
))
592 // Deleting one object may have deleted other pending
593 // objects, so start from beginning of list again.
594 node
= wxPendingDelete
.First();
598 // Create an application context
599 bool wxApp::OnInitGui()
601 if (!wxAppBase::OnInitGui())
604 // TODO: parse argv and get display to pass to XOpenDisplay
605 Display
* dpy
= XOpenDisplay(NULL
);
606 m_initialDisplay
= (WXDisplay
*) dpy
;
609 wxString
className(wxTheApp
->GetClassName());
610 wxLogError(_("wxWindows could not open display for '%s': exiting."),
611 (const char*) className
);
614 XSelectInput((Display
*) m_initialDisplay
,
615 XDefaultRootWindow((Display
*) m_initialDisplay
),
619 // install the X error handler
620 gs_pfnXErrorHandler
= XSetErrorHandler(wxXErrorHandler
);
621 #endif // __WXDEBUG__
623 GetMainColormap(dpy
);
624 m_maxRequestSize
= XMaxRequestSize((Display
*) dpy
);
629 WXColormap
wxApp::GetMainColormap(WXDisplay
* display
)
631 if (!display
) /* Must be called first with non-NULL display */
632 return m_mainColormap
;
634 int defaultScreen
= DefaultScreen((Display
*) display
);
635 Screen
* screen
= XScreenOfDisplay((Display
*) display
, defaultScreen
);
637 Colormap c
= DefaultColormapOfScreen(screen
);
640 m_mainColormap
= (WXColormap
) c
;
642 return (WXColormap
) c
;
645 Window
wxGetWindowParent(Window window
)
647 Window parent
, root
= 0;
648 unsigned int noChildren
= 0;
649 Window
* children
= NULL
;
650 int res
= XQueryTree((Display
*) wxGetDisplay(), window
, & root
, & parent
,
651 & children
, & noChildren
);
664 retValue
= wxTheApp
->OnExit();
668 * Exit in some platform-specific way. Not recommended that the app calls this:
669 * only for emergencies.
674 // Yield to other processes
676 bool wxApp::Yield(bool onlyIfNeeded
)
678 bool s_inYield
= FALSE
;
684 wxFAIL_MSG( wxT("wxYield called recursively" ) );
692 while (wxTheApp
&& wxTheApp
->Pending())
693 wxTheApp
->Dispatch();
700 // TODO use XmGetPixmap (?) to get the really standard icons!
702 // XPM hack: make the arrays const
703 #define static static const
705 #include "wx/generic/info.xpm"
706 #include "wx/generic/error.xpm"
707 #include "wx/generic/question.xpm"
708 #include "wx/generic/warning.xpm"
713 wxApp::GetStdIcon(int which
) const
717 case wxICON_INFORMATION
:
718 return wxIcon(info_xpm
);
720 case wxICON_QUESTION
:
721 return wxIcon(question_xpm
);
723 case wxICON_EXCLAMATION
:
724 return wxIcon(warning_xpm
);
727 wxFAIL_MSG("requested non existent standard icon");
728 // still fall through
731 return wxIcon(error_xpm
);
735 // ----------------------------------------------------------------------------
736 // accessors for C modules
737 // ----------------------------------------------------------------------------
740 extern "C" XtAppContext
wxGetAppContext()
742 return (XtAppContext
)wxTheApp
->GetAppContext();