]> git.saurik.com Git - wxWidgets.git/blob - src/os2/app.cpp
VTK wrapper of vtkRenderWindow for wxPython. Tested on MSW so far.
[wxWidgets.git] / src / os2 / app.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: app.cpp
3 // Purpose: wxApp
4 // Author: David Webster
5 // Modified by:
6 // Created: 10/13/99
7 // RCS-ID: $Id$
8 // Copyright: (c) David Webster
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // For compilers that support precompilation, includes "wx.h".
13 #include "wx/wxprec.h"
14
15 #ifndef WX_PRECOMP
16 #include "wx/frame.h"
17 #include "wx/app.h"
18 #include "wx/utils.h"
19 #include "wx/gdicmn.h"
20 #include "wx/pen.h"
21 #include "wx/brush.h"
22 #include "wx/cursor.h"
23 #include "wx/icon.h"
24 #include "wx/palette.h"
25 #include "wx/dc.h"
26 #include "wx/dialog.h"
27 #include "wx/msgdlg.h"
28 #include "wx/intl.h"
29 #include "wx/dynarray.h"
30 # include "wx/wxchar.h"
31 # include "wx/icon.h"
32 #endif
33
34 #include "wx/log.h"
35 #include "wx/module.h"
36
37 #include "wx/os2/private.h"
38
39 #if wxUSE_THREADS
40 #include "wx/thread.h"
41
42 // define the array of QMSG strutures
43 WX_DECLARE_OBJARRAY(QMSG, wxMsgArray);
44
45 #include "wx/arrimpl.cpp"
46
47 WX_DEFINE_OBJARRAY(wxMsgArray);
48 #endif // wxUSE_THREADS
49
50 #if wxUSE_WX_RESOURCES
51 #include "wx/resource.h"
52 #endif
53
54 #include <string.h>
55 #include <ctype.h>
56
57 // ---------------------------------------------------------------------------
58 // global variables
59 // ---------------------------------------------------------------------------
60
61 extern wxChar* wxBuffer;
62 extern wxChar* wxOsVersion;
63 extern wxList* wxWinHandleList;
64 extern wxList WXDLLEXPORT wxPendingDelete;
65 extern void wxSetKeyboardHook(bool doIt);
66 extern wxCursor* g_globalCursor;
67
68 HINSTANCE wxhInstance = 0;
69 QMSG svCurrentMsg;
70 wxApp* wxTheApp = NULL;
71
72 // FIXME why not const? and not static?
73
74 // NB: all "NoRedraw" classes must have the same names as the "normal" classes
75 // with NR suffix - wxWindow::OS2Create() supposes this
76 wxChar wxFrameClassName[] = wxT("wxFrameClass");
77 wxChar wxFrameClassNameNoRedraw[] = wxT("wxFrameClassNR");
78 wxChar wxMDIFrameClassName[] = wxT("wxMDIFrameClass");
79 wxChar wxMDIFrameClassNameNoRedraw[] = wxT("wxMDIFrameClassNR");
80 wxChar wxMDIChildFrameClassName[] = wxT("wxMDIChildFrameClass");
81 wxChar wxMDIChildFrameClassNameNoRedraw[] = wxT("wxMDIChildFrameClassNR");
82 wxChar wxPanelClassName[] = wxT("wxPanelClass");
83 wxChar wxCanvasClassName[] = wxT("wxCanvasClass");
84
85 HICON wxSTD_FRAME_ICON = (HICON) NULL;
86 HICON wxSTD_MDICHILDFRAME_ICON = (HICON) NULL;
87 HICON wxSTD_MDIPARENTFRAME_ICON = (HICON) NULL;
88
89 HICON wxDEFAULT_FRAME_ICON = (HICON) NULL;
90 HICON wxDEFAULT_MDICHILDFRAME_ICON = (HICON) NULL;
91 HICON wxDEFAULT_MDIPARENTFRAME_ICON = (HICON) NULL;
92
93 HBRUSH wxDisableButtonBrush = (HBRUSH) 0;
94
95 MRESULT wxWndProc(HWND, UINT, MPARAM, MPARAM);
96
97 // ===========================================================================
98 // implementation
99 // ===========================================================================
100
101 // ---------------------------------------------------------------------------
102 // wxApp
103 // ---------------------------------------------------------------------------
104
105 #if !USE_SHARED_LIBRARY
106 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
107
108 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
109 EVT_IDLE(wxApp::OnIdle)
110 EVT_END_SESSION(wxApp::OnEndSession)
111 EVT_QUERY_END_SESSION(wxApp::OnQueryEndSession)
112 END_EVENT_TABLE()
113 #endif
114
115 //// Initialize
116 bool wxApp::Initialize(
117 HAB vHab
118 )
119 {
120 // Some people may wish to use this, but
121 // probably it shouldn't be here by default.
122 #ifdef __WXDEBUG__
123 // wxRedirectIOToConsole();
124 #endif
125
126 wxBuffer = new wxChar[1500]; // FIXME; why?
127
128 wxClassInfo::InitializeClasses();
129
130 #if wxUSE_RESOURCES
131 wxGetResource(wxT("wxWindows"), wxT("OsVersion"), &wxOsVersion);
132 #endif
133
134 // I'm annoyed ... I don't know where to put this and I don't want to
135 // create a module for that as it's part of the core.
136 wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
137 wxTheColourDatabase->Initialize();
138
139 wxInitializeStockLists();
140 wxInitializeStockObjects();
141
142 #if wxUSE_WX_RESOURCES
143 wxInitializeResourceSystem();
144 #endif
145
146 wxBitmap::InitStandardHandlers();
147
148 g_globalCursor = new wxCursor;
149
150 #if 0
151 wxSTD_FRAME_ICON = ::WinLoadFileIcon(wxT("wxSTD_FRAME"), TRUE);
152 wxSTD_MDIPARENTFRAME_ICON = ::WinLoadFileIcon(wxT("wxSTD_MDIPARENTFRAME"), TRUE);
153 wxSTD_MDICHILDFRAME_ICON = ::WinLoadFileIcon(wxT("wxSTD_MDICHILDFRAME"), TRUE);
154
155 wxDEFAULT_FRAME_ICON = ::WinLoadFileIcon(wxT("wxDEFAULT_FRAME"), TRUE);
156 wxDEFAULT_MDIPARENTFRAME_ICON = ::WinLoadFileIcon(wxT("wxDEFAULT_MDIPARENTFRAME"), TRUE);
157 wxDEFAULT_MDICHILDFRAME_ICON = ::WinLoadFileIcon(wxT("wxDEFAULT_MDICHILDFRAME"), TRUE);
158 #endif
159 RegisterWindowClasses(vHab);
160 wxWinHandleList = new wxList(wxKEY_INTEGER);
161
162 // This is to foil optimizations in Visual C++ that throw out dummy.obj.
163 // PLEASE DO NOT ALTER THIS.
164 #if !defined(WXMAKINGDLL)
165 extern char wxDummyChar;
166 if (wxDummyChar) wxDummyChar++;
167 #endif
168
169 wxSetKeyboardHook(TRUE);
170
171 wxModule::RegisterModules();
172 if (!wxModule::InitializeModules())
173 return FALSE;
174 return TRUE;
175 }
176
177 // ---------------------------------------------------------------------------
178 // RegisterWindowClasses
179 // ---------------------------------------------------------------------------
180
181 // TODO we should only register classes really used by the app. For this it
182 // would be enough to just delay the class registration until an attempt
183 // to create a window of this class is made.
184 bool wxApp::RegisterWindowClasses(
185 HAB vHab
186 )
187 {
188
189 if (!::WinRegisterClass( vHab
190 ,wxFrameClassName
191 ,(PFNWP)wxWndProc
192 ,CS_SIZEREDRAW | CS_SYNCPAINT | CS_HITTEST | CS_CLIPCHILDREN | CS_FRAME
193 ,0
194 ))
195 {
196 wxLogLastError("RegisterClass(frame)");
197
198 return FALSE;
199 }
200
201 if (!::WinRegisterClass( vHab
202 ,wxFrameClassNameNoRedraw
203 ,(PFNWP)wxWndProc
204 ,CS_HITTEST | CS_CLIPCHILDREN | CS_FRAME
205 ,0
206 ))
207 {
208 wxLogLastError("RegisterClass(no redraw frame)");
209
210 return FALSE;
211 }
212
213 if (!::WinRegisterClass( vHab
214 ,wxMDIFrameClassName
215 ,(PFNWP)wxWndProc
216 ,CS_SIZEREDRAW | CS_SYNCPAINT | CS_HITTEST | CS_CLIPCHILDREN | CS_FRAME
217 ,0
218 ))
219 {
220 wxLogLastError("RegisterClass(MDI parent)");
221
222 return FALSE;
223 }
224
225 if (!::WinRegisterClass( vHab
226 ,wxMDIFrameClassNameNoRedraw
227 ,(PFNWP)wxWndProc
228 ,CS_HITTEST | CS_CLIPCHILDREN | CS_FRAME
229 ,0
230 ))
231 {
232 wxLogLastError("RegisterClass(no redraw MDI parent)");
233
234 return FALSE;
235 }
236
237 if (!::WinRegisterClass( vHab
238 ,wxMDIChildFrameClassName
239 ,(PFNWP)wxWndProc
240 ,CS_MOVENOTIFY | CS_SIZEREDRAW | CS_SYNCPAINT | CS_HITTEST | CS_CLIPSIBLINGS | CS_FRAME
241 ,0
242 ))
243 {
244 wxLogLastError("RegisterClass(MDI child)");
245
246 return FALSE;
247 }
248
249 if (!::WinRegisterClass( vHab
250 ,wxMDIChildFrameClassNameNoRedraw
251 ,(PFNWP)wxWndProc
252 ,CS_HITTEST | CS_CLIPSIBLINGS | CS_FRAME
253 ,0
254 ))
255 {
256 wxLogLastError("RegisterClass(no redraw MDI child)");
257
258 return FALSE;
259 }
260
261 if (!::WinRegisterClass( vHab
262 ,wxPanelClassName
263 ,(PFNWP)wxWndProc
264 ,CS_MOVENOTIFY | CS_SIZEREDRAW | CS_HITTEST | CS_CLIPSIBLINGS | CS_SAVEBITS | CS_SYNCPAINT
265 ,0
266 ))
267 {
268 wxLogLastError("RegisterClass(Panel)");
269
270 return FALSE;
271 }
272
273 if (!::WinRegisterClass( vHab
274 ,wxCanvasClassName
275 ,(PFNWP)wxWndProc
276 ,CS_MOVENOTIFY | CS_SIZEREDRAW | CS_HITTEST | CS_CLIPSIBLINGS | CS_SAVEBITS | CS_SYNCPAINT
277 ,0
278 ))
279 {
280 wxLogLastError("RegisterClass(Canvas)");
281
282 return FALSE;
283 }
284 return TRUE;
285 }
286
287 //// Cleans up any wxWindows internal structures left lying around
288
289 void wxApp::CleanUp()
290 {
291 //// COMMON CLEANUP
292
293 #if wxUSE_LOG
294 // flush the logged messages if any and install a 'safer' log target: the
295 // default one (wxLogGui) can't be used after the resources are freed just
296 // below and the user suppliedo ne might be even more unsafe (using any
297 // wxWindows GUI function is unsafe starting from now)
298 wxLog::DontCreateOnDemand();
299
300 // this will flush the old messages if any
301 delete wxLog::SetActiveTarget(new wxLogStderr);
302 #endif // wxUSE_LOG
303
304 // One last chance for pending objects to be cleaned up
305 wxTheApp->DeletePendingObjects();
306
307 wxModule::CleanUpModules();
308
309 #if wxUSE_WX_RESOURCES
310 wxCleanUpResourceSystem();
311
312 // wxDefaultResourceTable->ClearTable();
313 #endif
314
315 // Indicate that the cursor can be freed, so that cursor won't be deleted
316 // by deleting the bitmap list before g_globalCursor goes out of scope
317 // (double deletion of the cursor).
318 wxSetCursor(wxNullCursor);
319 delete g_globalCursor;
320 g_globalCursor = NULL;
321
322 wxDeleteStockObjects();
323
324 // Destroy all GDI lists, etc.
325 wxDeleteStockLists();
326
327 delete wxTheColourDatabase;
328 wxTheColourDatabase = NULL;
329
330 wxBitmap::CleanUpHandlers();
331
332 delete[] wxBuffer;
333 wxBuffer = NULL;
334
335 //// WINDOWS-SPECIFIC CLEANUP
336
337 wxSetKeyboardHook(FALSE);
338
339 if (wxSTD_FRAME_ICON)
340 ::WinFreeFileIcon(wxSTD_FRAME_ICON);
341 if (wxSTD_MDICHILDFRAME_ICON)
342 ::WinFreeFileIcon(wxSTD_MDICHILDFRAME_ICON);
343 if (wxSTD_MDIPARENTFRAME_ICON)
344 ::WinFreeFileIcon(wxSTD_MDIPARENTFRAME_ICON);
345
346 if (wxDEFAULT_FRAME_ICON)
347 ::WinFreeFileIcon(wxDEFAULT_FRAME_ICON);
348 if (wxDEFAULT_MDICHILDFRAME_ICON)
349 ::WinFreeFileIcon(wxDEFAULT_MDICHILDFRAME_ICON);
350 if (wxDEFAULT_MDIPARENTFRAME_ICON)
351 ::WinFreeFileIcon(wxDEFAULT_MDIPARENTFRAME_ICON);
352
353 if ( wxDisableButtonBrush )
354 {
355 // TODO: ::DeleteObject( wxDisableButtonBrush );
356 }
357
358 if (wxWinHandleList)
359 delete wxWinHandleList;
360
361 // GL: I'm annoyed ... I don't know where to put this and I don't want to
362 // create a module for that as it's part of the core.
363 #if wxUSE_THREADS
364 delete wxPendingEvents;
365 delete wxPendingEventsLocker;
366 // If we don't do the following, we get an apparent memory leak.
367 ((wxEvtHandler&) wxDefaultValidator).ClearEventLocker();
368 #endif
369
370 wxClassInfo::CleanUpClasses();
371
372 delete wxTheApp;
373 wxTheApp = NULL;
374
375 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
376 // At this point we want to check if there are any memory
377 // blocks that aren't part of the wxDebugContext itself,
378 // as a special case. Then when dumping we need to ignore
379 // wxDebugContext, too.
380 if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
381 {
382 wxLogDebug(wxT("There were memory leaks."));
383 wxDebugContext::Dump();
384 wxDebugContext::PrintStatistics();
385 }
386 // wxDebugContext::SetStream(NULL, NULL);
387 #endif
388
389 #if wxUSE_LOG
390 // do it as the very last thing because everything else can log messages
391 delete wxLog::SetActiveTarget(NULL);
392 #endif // wxUSE_LOG
393 }
394
395 int wxEntry(
396 int argc
397 , char* argv[]
398 )
399 {
400 HAB vHab;
401
402 if (!wxApp::Initialize(vHab))
403 return 0;
404
405 //
406 // create the application object or ensure that one already exists
407 //
408 if (!wxTheApp)
409 {
410 wxCHECK_MSG( wxApp::GetInitializerFunction()
411 ,-1
412 ,wxT("wxWindows error: No initializer - use IMPLEMENT_APP macro.\n")
413 );
414
415 wxAppInitializerFunction fnAppIni = wxApp::GetInitializerFunction();
416 wxObject* pTest_app = fnAppIni();
417
418 wxTheApp = (wxApp*)pTest_app;
419 }
420 wxCHECK_MSG( wxTheApp, -1, wxT("wxWindows error: no application object") );
421 wxTheApp->argc = argc;
422
423 #if wxUSE_UNICODE
424 wxTheApp->argv = new wxChar*[argc+1];
425
426 int nArgc = 0;
427
428 while (nArgc < argc)
429 {
430 wxTheApp->argv[nArgc] = wxStrdup(wxConvLibc.cMB2WX(argv[nArgc]));
431 nArgc++;
432 }
433 wxTheApp->argv[nArgc] = (wxChar *)NULL;
434 #else
435 wxTheApp->argv = argv;
436 #endif
437
438 wxString sName(wxFileNameFromPath(argv[0]));
439
440 wxStripExtension(sName);
441 wxTheApp->SetAppName(sName);
442
443 int nRetValue = 0;
444
445 if (!wxTheApp->OnInitGui())
446 nRetValue = -1;
447
448 if (nRetValue == 0)
449 {
450 if (wxTheApp->OnInit())
451 {
452 nRetValue = -1;
453 }
454 }
455
456 if (nRetValue == 0)
457 {
458 wxWindow* pTopWindow = wxTheApp->GetTopWindow();
459
460 if (pTopWindow)
461 {
462 // Forcibly delete the window.
463 if (pTopWindow->IsKindOf(CLASSINFO(wxFrame)) ||
464 pTopWindow->IsKindOf(CLASSINFO(wxDialog)) )
465 {
466 pTopWindow->Close(TRUE);
467 wxTheApp->DeletePendingObjects();
468 }
469 else
470 {
471 delete pTopWindow;
472 wxTheApp->SetTopWindow(NULL);
473 }
474 }
475 }
476 wxTheApp->OnExit();
477 wxApp::CleanUp();
478 return(nRetValue);
479 }
480
481 bool wxApp::OnInitGui()
482 {
483 m_vHab = WinInitialize(0);
484 m_hMq = WinCreateMsgQueue(m_vHab, 0);
485
486 return TRUE;
487 }
488
489 //
490 // Static member initialization
491 //
492 wxAppInitializerFunction wxAppBase::m_appInitFn = (wxAppInitializerFunction) NULL;
493
494 wxApp::wxApp()
495 {
496 m_topWindow = NULL;
497 wxTheApp = this;
498 m_wantDebugOutput = TRUE;
499
500 argc = 0;
501 argv = NULL;
502 m_nPrintMode = wxPRINT_WINDOWS;
503 m_exitOnFrameDelete = TRUE;
504 m_bAuto3D = TRUE;
505 }
506
507 wxApp::~wxApp()
508 {
509 // Delete command-line args
510 int i;
511 for (i = 0; i < argc; i++)
512 {
513 delete[] argv[i];
514 }
515 delete[] argv;
516 }
517
518 bool wxApp::Initialized()
519 {
520 if (GetTopWindow())
521 return TRUE;
522 else
523 return FALSE;
524 }
525
526 //
527 // Get and process a message, returning FALSE if WM_QUIT
528 // received (and also set the flag telling the app to exit the main loop)
529 //
530 bool wxApp::DoMessage()
531 {
532 BOOL bRc = ::WinGetMsg(m_vHab, &m_vMsg, HWND(NULL), 0, 0);
533
534 if (bRc == 0)
535 {
536 // got WM_QUIT
537 m_bKeepGoing = FALSE;
538 return FALSE;
539 }
540 else if (bRc == -1)
541 {
542 // should never happen, but let's test for it nevertheless
543 wxLogLastError("GetMessage");
544 }
545 else
546 {
547 #if wxUSE_THREADS
548 wxASSERT_MSG( wxThread::IsMain()
549 ,wxT("only the main thread can process Windows messages")
550 );
551
552 static bool sbHadGuiLock = TRUE;
553 static wxMsgArray svSavedMessages;
554
555 //
556 // if a secondary thread owns is doing GUI calls, save all messages for
557 // later processing - we can't process them right now because it will
558 // lead to recursive library calls (and we're not reentrant)
559 //
560 if (!wxGuiOwnedByMainThread())
561 {
562 sbHadGuiLock = FALSE;
563
564 // leave out WM_COMMAND messages: too dangerous, sometimes
565 // the message will be processed twice
566 if ( !wxIsWaitingForThread() ||
567 svCurrentMsg.msg != WM_COMMAND )
568 {
569 svSavedMessages.Add(svCurrentMsg);
570 }
571 return TRUE;
572 }
573 else
574 {
575 //
576 // have we just regained the GUI lock? if so, post all of the saved
577 // messages
578 //
579 // FIXME of course, it's not _exactly_ the same as processing the
580 // messages normally - expect some things to break...
581 //
582 if (!sbHadGuiLock )
583 {
584 sbHadGuiLock = TRUE;
585
586 size_t nCount = svSavedMessages.Count();
587
588 for (size_t n = 0; n < nCount; n++)
589 {
590 QMSG vMsg = svSavedMessages[n];
591
592 if ( !ProcessMessage((WXMSG *)&vMsg) )
593 {
594 ::WinDispatchMsg(m_vHab, &vMsg);
595 }
596 }
597 svSavedMessages.Empty();
598 }
599 }
600 #endif // wxUSE_THREADS
601
602 // Process the message
603 if (!ProcessMessage((WXMSG *)&svCurrentMsg) )
604 {
605 ::WinDispatchMsg(m_vHab, (PQMSG)&svCurrentMsg);
606 }
607 }
608 return TRUE;
609 }
610
611 //////////////////////////////////////////////////////////////////////////////
612 //
613 // Keep trying to process messages until WM_QUIT
614 // received.
615 //
616 // If there are messages to be processed, they will all be
617 // processed and OnIdle will not be called.
618 // When there are no more messages, OnIdle is called.
619 // If OnIdle requests more time,
620 // it will be repeatedly called so long as there are no pending messages.
621 // A 'feature' of this is that once OnIdle has decided that no more processing
622 // is required, then it won't get processing time until further messages
623 // are processed (it'll sit in DoMessage).
624 //
625 //////////////////////////////////////////////////////////////////////////////
626 int wxApp::MainLoop()
627 {
628 m_bKeepGoing = TRUE;
629
630 while (m_bKeepGoing)
631 {
632 #if wxUSE_THREADS
633 wxMutexGuiLeaveOrEnter();
634 #endif // wxUSE_THREADS
635 while (!::WinPeekMsg(m_vHab, &svCurrentMsg, (HWND)NULL, 0, 0, PM_NOREMOVE) &&
636 ProcessIdle() )
637 {
638 }
639 DoMessage();
640 }
641 return (int)svCurrentMsg.mp1;
642 }
643
644 //
645 // Returns TRUE if more time is needed.
646 //
647 bool wxApp::ProcessIdle()
648 {
649 wxIdleEvent vEvent;
650
651 vEvent.SetEventObject(this);
652 ProcessEvent(vEvent);
653 return vEvent.MoreRequested();
654 }
655
656 #if wxUSE_THREADS
657 void wxApp::ProcessPendingEvents()
658 {
659 wxNode* pNode = wxPendingEvents->First();
660 wxCriticalSectionLocker vLocker(*wxPendingEventsLocker);
661
662 while (pNode)
663 {
664 wxEvtHandler* pHandler = (wxEvtHandler *)pNode->Data();
665 pHandler->ProcessPendingEvents();
666
667 delete pNode;
668 pNode = wxPendingEvents->First();
669 }
670 }
671 #endif
672
673 void wxApp::ExitMainLoop()
674 {
675 m_bKeepGoing = FALSE;
676 }
677
678 bool wxApp::Pending()
679 {
680 return (::WinPeekMsg(m_vHab, (PQMSG)&svCurrentMsg, (HWND)NULL, 0, 0, PM_NOREMOVE) != 0);
681 }
682
683 void wxApp::Dispatch()
684 {
685 DoMessage();
686 }
687
688 //////////////////////////////////////////////////////////////////////////////
689 //
690 // Give all windows a chance to preprocess
691 // the message. Some may have accelerator tables, or have
692 // MDI complications.
693 //
694 //////////////////////////////////////////////////////////////////////////////
695 bool wxApp::ProcessMessage(
696 WXMSG* pWxmsg
697 )
698 {
699 QMSG* vMsg = (PQMSG)pWxmsg;
700 HWND hWnd = vMsg->hwnd;
701 wxWindow* pWndThis = wxFindWinFromHandle((WXHWND)hWnd);
702 wxWindow* pWnd;
703
704 //
705 // for some composite controls (like a combobox), wndThis might be NULL
706 // because the subcontrol is not a wxWindow, but only the control itself
707 // is - try to catch this case
708 //
709 while (hWnd && !pWndThis)
710 {
711 hWnd = ::WinQueryWindow(hWnd, QW_PARENT);
712 pWndThis = wxFindWinFromHandle((WXHWND)hWnd);
713 }
714
715 // Anyone for a non-translation message? Try youngest descendants first.
716 for (pWnd = pWndThis; pWnd; pWnd = pWnd->GetParent())
717 {
718 if (pWnd->OS2ProcessMessage(pWxmsg))
719 return TRUE;
720 }
721 return FALSE;
722 }
723
724 void wxApp::OnIdle(
725 wxIdleEvent& rEvent
726 )
727 {
728 static bool sbInOnIdle = FALSE;
729
730 //
731 // Avoid recursion (via ProcessEvent default case)
732 //
733 if (sbInOnIdle )
734 return;
735
736 sbInOnIdle = TRUE;
737
738 //
739 // 'Garbage' collection of windows deleted with Close().
740 //
741 DeletePendingObjects();
742
743 #if wxUSE_LOG
744 // flush the logged messages if any
745 wxLog* pLog = wxLog::GetActiveTarget();
746
747 if (pLog != NULL && pLog->HasPendingMessages())
748 pLog->Flush();
749 #endif // wxUSE_LOG
750
751 // Send OnIdle events to all windows
752 if (SendIdleEvents())
753 {
754 //
755 // SendIdleEvents() returns TRUE if at least one window requested more
756 // idle events
757 //
758 rEvent.RequestMore(TRUE);
759 }
760
761 //
762 // If they are pending events, we must process them.
763 //
764 #if wxUSE_THREADS
765 ProcessPendingEvents();
766 #endif
767 sbInOnIdle = FALSE;
768 }
769
770 void wxWakeUpIdle()
771 {
772 // **** please implement me! ****
773 // Wake up the idle handler processor, even if it is in another thread...
774 }
775
776 // Send idle event to all top-level windows
777 bool wxApp::SendIdleEvents()
778 {
779 bool bNeedMore = FALSE;
780 wxWindowList::Node* pNode = wxTopLevelWindows.GetFirst();
781
782 while (pNode)
783 {
784 wxWindow* pWin = pNode->GetData();
785
786 if (SendIdleEvents(pWin))
787 bNeedMore = TRUE;
788 pNode = pNode->GetNext();
789 }
790 return bNeedMore;
791 }
792
793 //
794 // Send idle event to window and all subwindows
795 //
796 bool wxApp::SendIdleEvents(
797 wxWindow* pWin
798 )
799 {
800 bool bNeedMore = FALSE;
801 wxIdleEvent vEvent;
802
803 vEvent.SetEventObject(pWin);
804 pWin->GetEventHandler()->ProcessEvent(vEvent);
805
806 if (vEvent.MoreRequested())
807 bNeedMore = TRUE;
808
809 wxNode* pNode = pWin->GetChildren().First();
810
811 while (pNode)
812 {
813 wxWindow* pWin = (wxWindow*) pNode->Data();
814
815 if (SendIdleEvents(pWin))
816 bNeedMore = TRUE;
817 pNode = pNode->Next();
818 }
819 return bNeedMore;
820 }
821
822 void wxApp::DeletePendingObjects()
823 {
824 wxNode* pNode = wxPendingDelete.First();
825
826 while (pNode)
827 {
828 wxObject* pObj = (wxObject *)pNode->Data();
829
830 delete pObj;
831
832 if (wxPendingDelete.Member(pObj))
833 delete pNode;
834
835 //
836 // Deleting one object may have deleted other pending
837 // objects, so start from beginning of list again.
838 //
839 pNode = wxPendingDelete.First();
840 }
841 }
842
843 void wxApp::OnEndSession(
844 wxCloseEvent& WXUNUSED(rEvent))
845 {
846 if (GetTopWindow())
847 GetTopWindow()->Close(TRUE);
848 }
849
850 //
851 // Default behaviour: close the application with prompts. The
852 // user can veto the close, and therefore the end session.
853 //
854 void wxApp::OnQueryEndSession(
855 wxCloseEvent& rEvent
856 )
857 {
858 if (GetTopWindow())
859 {
860 if (!GetTopWindow()->Close(!rEvent.CanVeto()))
861 rEvent.Veto(TRUE);
862 }
863 }
864
865 void wxExit()
866 {
867 wxLogError(_("Fatal error: exiting"));
868
869 wxApp::CleanUp();
870 }
871
872 // Yield to incoming messages
873 bool wxYield()
874 {
875 HAB vHab;
876 QMSG vMsg;
877 // We want to go back to the main message loop
878 // if we see a WM_QUIT. (?)
879 while (::WinPeekMsg(vHab, &vMsg, (HWND)NULL, 0, 0, PM_NOREMOVE) && vMsg.msg != WM_QUIT)
880 {
881 if (!wxTheApp->DoMessage())
882 break;
883 }
884 // If they are pending events, we must process them.
885 #if wxUSE_THREADS
886 wxTheApp->ProcessPendingEvents();
887 #endif
888 return TRUE;
889 }
890
891 wxIcon wxApp::GetStdIcon(
892 int nWhich
893 ) const
894 {
895 switch(nWhich)
896 {
897 case wxICON_INFORMATION:
898 return wxIcon("wxICON_INFO");
899
900 case wxICON_QUESTION:
901 return wxIcon("wxICON_QUESTION");
902
903 case wxICON_EXCLAMATION:
904 return wxIcon("wxICON_WARNING");
905
906 default:
907 wxFAIL_MSG(wxT("requested non existent standard icon"));
908 // still fall through
909
910 case wxICON_HAND:
911 return wxIcon("wxICON_ERROR");
912 }
913 return wxIcon("wxICON_ERROR");
914 }
915
916 HINSTANCE wxGetInstance()
917 {
918 return wxhInstance;
919 }
920
921 void wxSetInstance(HINSTANCE hInst)
922 {
923 wxhInstance = hInst;
924 }
925
926