1 /////////////////////////////////////////////////////////////////////////////
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
13 #pragma implementation "app.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
19 #if defined(__BORLANDC__)
27 #include "wx/gdicmn.h"
30 #include "wx/cursor.h"
32 #include "wx/palette.h"
34 #include "wx/dialog.h"
35 #include "wx/msgdlg.h"
38 #include "wx/msw/private.h"
39 #include "wx/postscrp.h"
41 #include "wx/module.h"
44 #include "wx/resource.h"
50 #if defined(__WIN95__) && !defined(__GNUWIN32__)
54 // use debug CRT functions for memory leak detections in VC++
55 /* Doesn't work when using the makefiles, for some reason.
56 #if defined(__WXDEBUG__) && defined(_MSC_VER)
61 extern char *wxBuffer
;
62 extern char *wxOsVersion
;
63 extern wxList
*wxWinHandleList
;
64 extern wxList wxPendingDelete
;
65 extern void wxSetKeyboardHook(bool doIt
);
66 extern wxCursor
*g_globalCursor
;
68 HINSTANCE wxhInstance
= 0;
69 static MSG s_currentMsg
;
70 wxApp
*wxTheApp
= NULL
;
72 char wxFrameClassName
[] = "wxFrameClass";
73 char wxMDIFrameClassName
[] = "wxMDIFrameClass";
74 char wxMDIChildFrameClassName
[] = "wxMDIChildFrameClass";
75 char wxPanelClassName
[] = "wxPanelClass";
76 char wxCanvasClassName
[] = "wxCanvasClass";
78 HICON wxSTD_FRAME_ICON
= NULL
;
79 HICON wxSTD_MDICHILDFRAME_ICON
= NULL
;
80 HICON wxSTD_MDIPARENTFRAME_ICON
= NULL
;
82 HICON wxDEFAULT_FRAME_ICON
= NULL
;
83 HICON wxDEFAULT_MDICHILDFRAME_ICON
= NULL
;
84 HICON wxDEFAULT_MDIPARENTFRAME_ICON
= NULL
;
86 HBRUSH wxDisableButtonBrush
= 0;
88 LRESULT APIENTRY
wxWndProc(HWND
, UINT
, WPARAM
, LPARAM
);
90 #if !USE_SHARED_LIBRARY
91 IMPLEMENT_DYNAMIC_CLASS(wxApp
, wxEvtHandler
)
92 BEGIN_EVENT_TABLE(wxApp
, wxEvtHandler
)
93 EVT_IDLE(wxApp::OnIdle
)
97 long wxApp::sm_lastMessageTime
= 0;
100 static HINSTANCE gs_hRichEdit
= NULL
;
103 bool wxApp::Initialize(WXHINSTANCE instance
)
105 HINSTANCE hInstance
= (HINSTANCE
) instance
;
109 #if defined(__WIN95__)
110 InitCommonControls();
111 gs_hRichEdit
= LoadLibrary("RICHED32.DLL");
113 if (gs_hRichEdit
== NULL
)
115 wxMessageBox("Could not initialise Rich Edit DLL");
119 #if defined(WX_DRAG_DROP)
120 // we need to initialize OLE library
121 if ( FAILED(::OleInitialize(NULL
)) )
122 wxFatalError(_("Cannot initialize OLE"));
126 if (!Ctl3dRegister(hInstance
))
127 wxFatalError("Cannot register CTL3D");
129 Ctl3dAutoSubclass(hInstance
);
132 wxSTD_FRAME_ICON
= LoadIcon(hInstance
, "wxSTD_FRAME");
133 wxSTD_MDIPARENTFRAME_ICON
= LoadIcon(hInstance
, "wxSTD_MDIPARENTFRAME");
134 wxSTD_MDICHILDFRAME_ICON
= LoadIcon(hInstance
, "wxSTD_MDICHILDFRAME");
136 wxDEFAULT_FRAME_ICON
= LoadIcon(hInstance
, "wxDEFAULT_FRAME");
137 wxDEFAULT_MDIPARENTFRAME_ICON
= LoadIcon(hInstance
, "wxDEFAULT_MDIPARENTFRAME");
138 wxDEFAULT_MDICHILDFRAME_ICON
= LoadIcon(hInstance
, "wxDEFAULT_MDICHILDFRAME");
140 RegisterWindowClasses();
142 // Create the brush for disabling bitmap buttons
145 lb
.lbStyle
= BS_PATTERN
;
146 lb
.lbHatch
= (int)LoadBitmap( hInstance
, "wxDISABLE_BUTTON_BITMAP" ) ;
147 wxDisableButtonBrush
= ::CreateBrushIndirect( & lb
) ;
148 ::DeleteObject( (HGDIOBJ
)lb
.lbHatch
) ;
154 wxWinHandleList
= new wxList(wxKEY_INTEGER
);
156 // This is to foil optimizations in Visual C++ that
157 // throw out dummy.obj.
158 #if (_MSC_VER >= 800) && !defined(WXMAKINGDLL)
159 extern char wxDummyChar
;
160 if (wxDummyChar
) wxDummyChar
++;
162 wxSetKeyboardHook(TRUE
);
164 wxModule::RegisterModules();
165 if (!wxModule::InitializeModules())
170 bool wxApp::RegisterWindowClasses()
172 ///////////////////////////////////////////////////////////////////////
173 // Register the frame window class.
174 WNDCLASS wndclass
; // Structure used to register Windows class.
176 wndclass
.style
= CS_HREDRAW
| CS_VREDRAW
;
177 wndclass
.lpfnWndProc
= (WNDPROC
)wxWndProc
;
178 wndclass
.cbClsExtra
= 0;
179 wndclass
.cbWndExtra
= sizeof( DWORD
); // was 4
180 wndclass
.hInstance
= wxhInstance
;
181 wndclass
.hIcon
= NULL
; // wxSTD_FRAME_ICON;
182 wndclass
.hCursor
= LoadCursor( NULL
, IDC_ARROW
);
183 wndclass
.hbrBackground
= (HBRUSH
)(COLOR_APPWORKSPACE
+1) ;
184 // wndclass.hbrBackground = GetStockObject( WHITE_BRUSH );
185 wndclass
.lpszMenuName
= NULL
;
186 #ifdef _MULTIPLE_INSTANCES
187 sprintf( wxFrameClassName
,"wxFrameClass%d", hInstance
);
189 wndclass
.lpszClassName
= wxFrameClassName
;
191 if (!RegisterClass( &wndclass
))
193 // wxFatalError("Can't register Frame Window class");
196 ///////////////////////////////////////////////////////////////////////
197 // Register the MDI frame window class.
198 WNDCLASS wndclass1
; // Structure used to register Windows class.
200 wndclass1
.style
= CS_HREDRAW
| CS_VREDRAW
;
201 wndclass1
.lpfnWndProc
= (WNDPROC
)wxWndProc
;
202 wndclass1
.cbClsExtra
= 0;
203 wndclass1
.cbWndExtra
= sizeof( DWORD
); // was 4
204 wndclass1
.hInstance
= wxhInstance
;
205 wndclass1
.hIcon
= NULL
; // wxSTD_MDIPARENTFRAME_ICON;
206 wndclass1
.hCursor
= LoadCursor( NULL
, IDC_ARROW
);
207 // wndclass1.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE+1) ;
208 wndclass1
.hbrBackground
= NULL
;
209 wndclass1
.lpszMenuName
= NULL
;
211 wndclass1
.lpszClassName
= wxMDIFrameClassName
;
212 if (!RegisterClass( &wndclass1
))
214 // wxFatalError("Can't register MDI Frame window class");
218 ///////////////////////////////////////////////////////////////////////
219 // Register the MDI child frame window class.
220 WNDCLASS wndclass4
; // Structure used to register Windows class.
222 wndclass4
.style
= CS_HREDRAW
| CS_VREDRAW
;
223 wndclass4
.lpfnWndProc
= (WNDPROC
)wxWndProc
;
224 wndclass4
.cbClsExtra
= 0;
225 wndclass4
.cbWndExtra
= sizeof( DWORD
); // was 4
226 wndclass4
.hInstance
= wxhInstance
;
227 wndclass4
.hIcon
= NULL
; // wxSTD_MDICHILDFRAME_ICON;
228 wndclass4
.hCursor
= LoadCursor( NULL
, IDC_ARROW
);
229 // TODO: perhaps this should be NULL so that Windows doesn't
230 // paint the background itself (would OnEraseBackground duplicate
232 wndclass4
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+1) ;
233 // wndclass4.hbrBackground = NULL;
234 wndclass4
.lpszMenuName
= NULL
;
235 wndclass4
.lpszClassName
= wxMDIChildFrameClassName
;
237 if (!RegisterClass( &wndclass4
))
239 // wxFatalError("Can't register MDI child frame window class");
243 ///////////////////////////////////////////////////////////////////////
244 // Register the panel window class.
245 WNDCLASS wndclass2
; // Structure used to register Windows class.
246 memset(&wndclass2
, 0, sizeof(WNDCLASS
)); // start with NULL defaults
247 // Use CS_OWNDC to avoid messing about restoring the context
248 // for every graphic operation.
249 wndclass2
.style
= CS_HREDRAW
| CS_VREDRAW
;
250 wndclass2
.lpfnWndProc
= (WNDPROC
)wxWndProc
;
251 wndclass2
.cbClsExtra
= 0;
252 wndclass2
.cbWndExtra
= sizeof( DWORD
); // was 4
253 wndclass2
.hInstance
= wxhInstance
;
254 wndclass2
.hIcon
= NULL
;
255 wndclass2
.hCursor
= NULL
;
256 // wndclass2.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1) ;
257 wndclass2
.hbrBackground
= (HBRUSH
) GetStockObject( LTGRAY_BRUSH
);
258 wndclass2
.lpszMenuName
= NULL
;
259 wndclass2
.lpszClassName
= wxPanelClassName
;
260 if (!RegisterClass( &wndclass2
))
262 // wxFatalError("Can't register Panel Window class");
266 ///////////////////////////////////////////////////////////////////////
267 // Register the canvas and textsubwindow class name
268 WNDCLASS wndclass3
; // Structure used to register Windows class.
269 memset(&wndclass3
, 0, sizeof(WNDCLASS
)); // start with NULL defaults
270 // Use CS_OWNDC to avoid messing about restoring the context
271 // for every graphic operation.
272 // wndclass3.style = CS_HREDRAW | CS_VREDRAW | CS_OWNDC | CS_DBLCLKS ;
274 wndclass3
.style
= CS_HREDRAW
| CS_VREDRAW
| CS_DBLCLKS
;
275 wndclass3
.lpfnWndProc
= (WNDPROC
)wxWndProc
;
276 wndclass3
.cbClsExtra
= 0;
277 wndclass3
.cbWndExtra
= sizeof( DWORD
); // was 4
278 wndclass3
.hInstance
= wxhInstance
;
279 wndclass3
.hIcon
= NULL
;
280 wndclass3
.hCursor
= NULL
;
281 // wndclass3.hbrBackground = (HBRUSH)(COLOR_WINDOW+1) ;
282 wndclass3
.hbrBackground
= NULL
;
283 wndclass3
.lpszMenuName
= NULL
;
284 wndclass3
.lpszClassName
= wxCanvasClassName
;
285 if (!RegisterClass( &wndclass3
))
287 // wxFatalError("Can't register Canvas class");
294 // Cleans up any wxWindows internal structures left lying around
295 void wxApp::CleanUp()
297 wxModule::CleanUpModules();
301 wxSetKeyboardHook(FALSE
);
304 if (gs_hRichEdit
!= NULL
)
305 FreeLibrary(gs_hRichEdit
);
312 if (wxSTD_FRAME_ICON
)
313 DestroyIcon(wxSTD_FRAME_ICON
);
314 if (wxSTD_MDICHILDFRAME_ICON
)
315 DestroyIcon(wxSTD_MDICHILDFRAME_ICON
);
316 if (wxSTD_MDIPARENTFRAME_ICON
)
317 DestroyIcon(wxSTD_MDIPARENTFRAME_ICON
);
319 if (wxDEFAULT_FRAME_ICON
)
320 DestroyIcon(wxDEFAULT_FRAME_ICON
);
321 if (wxDEFAULT_MDICHILDFRAME_ICON
)
322 DestroyIcon(wxDEFAULT_MDICHILDFRAME_ICON
);
323 if (wxDEFAULT_MDIPARENTFRAME_ICON
)
324 DestroyIcon(wxDEFAULT_MDIPARENTFRAME_ICON
);
326 if ( wxDisableButtonBrush
)
327 ::DeleteObject( wxDisableButtonBrush
) ;
329 #if defined(WX_DRAG_DROP)
334 Ctl3dUnregister(wxhInstance
);
338 delete wxWinHandleList
;
340 wxClassInfo::CleanUpClasses();
342 // do it as the very last thing because everything else can log messages
343 wxLog::DontCreateOnDemand();
344 delete wxLog::SetActiveTarget(NULL
);
347 void wxApp::CommonInit()
350 wxBuffer
= new char[1500];
352 wxBuffer
= new char[BUFSIZ
+ 512];
355 wxClassInfo::InitializeClasses();
358 wxGetResource("wxWindows", "OsVersion", &wxOsVersion
);
361 wxTheColourDatabase
= new wxColourDatabase(wxKEY_STRING
);
362 wxTheColourDatabase
->Initialize();
364 wxInitializeStockLists();
365 wxInitializeStockObjects();
368 wxInitializeResourceSystem();
371 // For PostScript printing
373 wxInitializePrintSetupData();
374 wxThePrintPaperDatabase
= new wxPrintPaperDatabase
;
375 wxThePrintPaperDatabase
->CreateDatabase();
378 wxBitmap::InitStandardHandlers();
380 g_globalCursor
= new wxCursor
;
383 void wxApp::CommonCleanUp()
386 wxCleanUpResourceSystem();
388 // wxDefaultResourceTable->ClearTable();
391 // Indicate that the cursor can be freed,
392 // so that cursor won't be deleted by deleting
393 // the bitmap list before g_globalCursor goes out
394 // of scope (double deletion of the cursor).
395 wxSetCursor(wxNullCursor
);
396 delete g_globalCursor
;
398 wxDeleteStockObjects() ;
400 // Destroy all GDI lists, etc.
401 wxDeleteStockLists();
403 delete wxTheColourDatabase
;
404 wxTheColourDatabase
= NULL
;
407 wxInitializePrintSetupData(FALSE
);
408 delete wxThePrintPaperDatabase
;
409 wxThePrintPaperDatabase
= NULL
;
412 wxBitmap::CleanUpHandlers();
418 #if !defined(_WINDLL) || (defined(_WINDLL) && defined(WXMAKINGDLL))
420 // Main wxWindows entry point
422 int wxEntry(WXHINSTANCE hInstance
, WXHINSTANCE
WXUNUSED(hPrevInstance
), char *m_lpCmdLine
,
423 int nCmdShow
, bool enterLoop
)
425 wxhInstance
= (HINSTANCE
) hInstance
;
427 /* Doesn't work when using the makefiles, for some reason.
428 #if defined(__WXDEBUG__) && defined(_MSC_VER)
429 // do check for memory leaks on program exit
430 // (another useful flag is _CRTDBG_DELAY_FREE_MEM_DF which doesn't free
431 // deallocated memory which may be used to simulate low-memory condition)
432 _CrtSetDbgFlag(_CrtSetDbgFlag(_CRTDBG_REPORT_FLAG) | _CRTDBG_LEAK_CHECK_DF);
433 #endif // debug build under MS VC++
436 #if (WXDEBUG && USE_MEMORY_TRACING) || USE_DEBUG_CONTEXT
438 #if !defined(_WINDLL)
439 streambuf
* sBuf
= new wxDebugStreamBuf
;
441 streambuf
* sBuf
= NULL
;
443 ostream
* oStr
= new ostream(sBuf
) ;
444 wxDebugContext::SetStream(oStr
, sBuf
);
446 #endif // USE_MEMORY_TRACING
448 if (!wxApp::Initialize((WXHINSTANCE
) wxhInstance
))
451 // The app may have declared a global application object, but we recommend
452 // the IMPLEMENT_APP macro is used instead, which sets an initializer function
453 // for delayed, dynamic app object construction.
456 if (!wxApp::GetInitializerFunction())
458 MessageBox(NULL
, "No initializer - use IMPLEMENT_APP macro.", "wxWindows Error", MB_APPLMODAL
| MB_ICONSTOP
| MB_OK
);
462 wxTheApp
= (* wxApp::GetInitializerFunction()) ();
466 MessageBox(NULL
, "You have to define an instance of wxApp!", "wxWindows Error", MB_APPLMODAL
| MB_ICONSTOP
| MB_OK
);
470 // Split command line into tokens, as in usual main(argc, argv)
471 char **command
= new char*[50];
474 char *buf
= new char[strlen(m_lpCmdLine
) + 1];
476 // Hangs around until end of app. in case
477 // user carries pointers to the tokens
479 /* Model independent strcpy */
481 for (i
= 0; (buf
[i
] = m_lpCmdLine
[i
]) != 0; i
++)
486 // Get application name
488 ::GetModuleFileName(wxhInstance
, name
, 199);
490 // Is it only 16-bit Borland that already copies the program name
491 // to the first argv index?
492 #if !defined(__GNUWIN32__)
493 // #if ! (defined(__BORLANDC__) && !defined(__WIN32__))
494 command
[count
++] = copystring(name
);
498 strcpy(name
, wxFileNameFromPath(name
));
499 wxStripExtension(name
);
500 wxTheApp
->SetAppName(name
);
502 /* Break up string */
503 // Treat strings enclosed in double-quotes as single arguments
507 while (*str
&& *str
<= ' ') str
++; // skip whitespace
511 command
[count
++] = str
;
512 while (*str
&& *str
!= '"') str
++;
516 command
[count
++] = str
;
517 while (*str
&& *str
> ' ') str
++;
519 if (*str
) *str
++ = '\0';
521 command
[count
] = NULL
; /* argv[] is NULL terminated list! */
523 wxTheApp
->argc
= count
;
524 wxTheApp
->argv
= command
;
525 wxTheApp
->m_nCmdShow
= nCmdShow
;
527 // GUI-specific initialisation. In fact on Windows we don't have any,
528 // but this call is provided for compatibility across platforms.
529 wxTheApp
->OnInitGui() ;
531 if (!wxTheApp
->OnInit())
533 wxTheApp
->DeletePendingObjects();
542 // TODO: This should really be cleaned up in ~wxApp
543 delete [] command
[0] ;
553 /* New behaviour - leave it to the app to show the top window
554 if (wxTheApp->GetTopWindow()) {
555 // show the toplevel frame, only if we are not iconized (from MS-Windows)
556 if(wxTheApp->GetShowFrameOnInit() && (nCmdShow!=SW_HIDE)) wxTheApp->GetTopWindow()->Show(TRUE);
560 retValue
= wxTheApp
->OnRun();
562 if (wxTheApp
->GetTopWindow())
564 // Forcibly delete the window.
565 if (wxTheApp
->GetTopWindow()->IsKindOf(CLASSINFO(wxFrame
)) ||
566 wxTheApp
->GetTopWindow()->IsKindOf(CLASSINFO(wxDialog
)))
568 wxTheApp
->GetTopWindow()->Close(TRUE
);
569 wxTheApp
->DeletePendingObjects();
573 delete wxTheApp
->GetTopWindow();
574 wxTheApp
->SetTopWindow(NULL
);
585 delete [] command
[0] ;
588 #if (WXDEBUG && USE_MEMORY_TRACING) || USE_DEBUG_CONTEXT
589 // At this point we want to check if there are any memory
590 // blocks that aren't part of the wxDebugContext itself,
591 // as a special case. Then when dumping we need to ignore
592 // wxDebugContext, too.
593 if (wxDebugContext::CountObjectsLeft() > 0)
595 wxTrace("There were memory leaks.\n");
596 wxDebugContext::Dump();
597 wxDebugContext::PrintStatistics();
599 wxDebugContext::SetStream(NULL
, NULL
);
607 int wxEntry(WXHINSTANCE hInstance
)
609 wxhInstance
= (HINSTANCE
) hInstance
;
610 wxApp::Initialize((WXHINSTANCE
) wxhInstance
);
612 // The app may have declared a global application object, but we recommend
613 // the IMPLEMENT_APP macro is used instead, which sets an initializer function
614 // for delayed, dynamic app object construction.
618 if (!wxApp::GetInitializerFunction())
620 MessageBox(NULL
, "No initializer - use IMPLEMENT_APP macro.", "wxWindows Error", MB_APPLMODAL
| MB_ICONSTOP
| MB_OK
);
624 wxTheApp
= (* wxApp::GetInitializerFunction()) ();
628 MessageBox(NULL
, "You have to define an instance of wxApp!", "wxWindows Error", MB_APPLMODAL
| MB_ICONSTOP
| MB_OK
);
633 wxTheApp
->argv
= NULL
;
635 wxTheApp
->OnInitGui();
639 if (wxTheApp
->GetTopWindow() && wxTheApp
->GetTopWindow()->GetHWND()) {
640 wxTheApp
->GetTopWindow()->Show(TRUE
);
647 // Static member initialization
648 wxAppInitializerFunction
wxApp::m_appInitFn
= (wxAppInitializerFunction
) NULL
;
654 // work_proc = NULL ;
656 // m_resourceCollection = TRUE;
657 // m_pendingCleanup = FALSE;
658 m_wantDebugOutput
= TRUE
;
663 m_printMode
= wxPRINT_WINDOWS
;
665 m_printMode
= wxPRINT_POSTSCRIPT
;
667 m_exitOnFrameDelete
= TRUE
;
671 bool wxApp::Initialized()
679 #ifdef _WINDLL // Assume initialized if DLL (no way of telling)
685 * Get and process a message, returning FALSE if WM_QUIT
689 bool wxApp::DoMessage()
691 if (!::GetMessage(&s_currentMsg
, (HWND
) NULL
, 0, 0))
696 // Process the message
697 if (!ProcessMessage((WXMSG
*)&s_currentMsg
))
699 ::TranslateMessage(&s_currentMsg
);
700 wxApp::sm_lastMessageTime
= s_currentMsg
.time
; /* MATTHEW: timeStamp impl. */
701 ::DispatchMessage(&s_currentMsg
);
707 * Keep trying to process messages until WM_QUIT
710 * If there are messages to be processed, they will all be
711 * processed and OnIdle will not be called.
712 * When there are no more messages, OnIdle is called.
713 * If OnIdle requests more time,
714 * it will be repeatedly called so long as there are no pending messages.
715 * A 'feature' of this is that once OnIdle has decided that no more processing
716 * is required, then it won't get processing time until further messages
717 * are processed (it'll sit in DoMessage).
720 int wxApp::MainLoop()
725 while (!::PeekMessage(&s_currentMsg
, 0, 0, 0, PM_NOREMOVE
) &&
731 return s_currentMsg
.wParam
;
734 // Returns TRUE if more time is needed.
735 bool wxApp::ProcessIdle()
738 event
.SetEventObject(this);
741 return event
.MoreRequested();
744 void wxApp::ExitMainLoop()
749 bool wxApp::Pending()
751 return (::PeekMessage(&s_currentMsg
, 0, 0, 0, PM_NOREMOVE
) != 0) ;
754 void wxApp::Dispatch()
761 * Give all windows a chance to preprocess
762 * the message. Some may have accelerator tables, or have
765 bool wxApp::ProcessMessage(WXMSG
*Msg
)
767 MSG
*msg
= (MSG
*)Msg
;
771 // Try translations first; find the youngest window with
772 // a translation table.
773 for (hWnd
= msg
->hwnd
; hWnd
!= NULL
; hWnd
= ::GetParent(hWnd
))
775 wxWindow
*wnd
= wxFindWinFromHandle((WXHWND
) hWnd
);
778 if (wnd
->MSWTranslateMessage(Msg
))
783 // Anyone for a non-translation message? Try youngest descendants first.
784 for (hWnd
= msg
->hwnd
; hWnd
!= NULL
; hWnd
= ::GetParent(hWnd
))
786 wxWindow
*wnd
= wxFindWinFromHandle((WXHWND
) hWnd
);
789 if (wnd
->MSWProcessMessage(Msg
))
796 void wxApp::OnIdle(wxIdleEvent
& event
)
798 static bool inOnIdle
= FALSE
;
800 // Avoid recursion (via ProcessEvent default case)
806 // 'Garbage' collection of windows deleted with Close().
807 DeletePendingObjects();
809 // flush the logged messages if any
810 wxLog
*pLog
= wxLog::GetActiveTarget();
811 if ( pLog
!= NULL
&& pLog
->HasPendingMessages() )
814 // Send OnIdle events to all windows
815 bool needMore
= SendIdleEvents();
816 // bool needMore = FALSE;
819 event
.RequestMore(TRUE
);
824 // Send idle event to all top-level windows
825 bool wxApp::SendIdleEvents()
827 bool needMore
= FALSE
;
828 wxNode
* node
= wxTopLevelWindows
.First();
831 wxWindow
* win
= (wxWindow
*) node
->Data();
832 if (SendIdleEvents(win
))
840 // Send idle event to window and all subwindows
841 bool wxApp::SendIdleEvents(wxWindow
* win
)
843 bool needMore
= FALSE
;
846 event
.SetEventObject(win
);
847 win
->ProcessEvent(event
);
849 if (event
.MoreRequested())
852 wxNode
* node
= win
->GetChildren()->First();
855 wxWindow
* win
= (wxWindow
*) node
->Data();
856 if (SendIdleEvents(win
))
864 void wxApp::DeletePendingObjects()
866 wxNode
*node
= wxPendingDelete
.First();
869 wxObject
*obj
= (wxObject
*)node
->Data();
873 if (wxPendingDelete
.Member(obj
))
876 // Deleting one object may have deleted other pending
877 // objects, so start from beginning of list again.
878 node
= wxPendingDelete
.First();
883 // Free up font objects that are not being used at present.
884 bool wxApp::DoResourceCleanup()
886 // wxDebugMsg("ResourceCleanup\n");
890 wxNode *node = wxTheFontList->First();
893 wxGDIObject *obj = (wxGDIObject *)node->Data();
894 if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
896 // wxDebugMsg("Freeing font %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
904 wxNode *node = wxThePenList->First();
907 wxGDIObject *obj = (wxGDIObject *)node->Data();
908 if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
910 // wxDebugMsg("Freeing pen %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
918 wxNode *node = wxTheBrushList->First();
921 wxGDIObject *obj = (wxGDIObject *)node->Data();
922 if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
924 // wxDebugMsg("Freeing brush %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
931 SetPendingCleanup(FALSE);
936 wxLog
* wxApp::CreateLogTarget()
941 wxWindow
* wxApp::GetTopWindow() const
945 else if (wxTopLevelWindows
.Number() > 0)
946 return (wxWindow
*) wxTopLevelWindows
.First()->Data();
951 int wxApp::GetComCtl32Version() const
953 // have we loaded COMCTL32 yet?
954 HMODULE theModule
= ::GetModuleHandle("COMCTL32");
957 // if so, then we can check for the version
960 // InitCommonControlsEx is unique to 4.7 and later
961 FARPROC theProc
= ::GetProcAddress(theModule
, "InitCommonControlsEx");
964 { // not found, must be 4.00
969 // The following symbol are unique to 4.71
971 // FlatSB_EnableScrollBar FlatSB_GetScrollInfo FlatSB_GetScrollPos
972 // FlatSB_GetScrollProp FlatSB_GetScrollRange FlatSB_SetScrollInfo
973 // FlatSB_SetScrollPos FlatSB_SetScrollProp FlatSB_SetScrollRange
974 // FlatSB_ShowScrollBar
975 // _DrawIndirectImageList _DuplicateImageList
977 // UninitializeFlatSB
978 // we could check for any of these - I chose DllInstall
979 FARPROC theProc
= ::GetProcAddress(theModule
, "DllInstall");
982 // not found, must be 4.70
986 { // found, must be 4.71
997 FatalAppExit(0, "Fatal error: exiting");
1000 // Yield to incoming messages
1004 // We want to go back to the main message loop
1005 // if we see a WM_QUIT. (?)
1006 while (PeekMessage(&msg
, NULL
, 0, 0, PM_NOREMOVE
) && msg
.message
!= WM_QUIT
)
1008 if (!wxTheApp
->DoMessage())
1015 HINSTANCE
wxGetInstance()
1020 // For some reason, with MSVC++ 1.5, WinMain isn't linked in properly
1021 // if in a separate file. So include it here to ensure it's linked.
1022 #if (defined(_MSC_VER) && !defined(__WIN32__)) || defined(__GNUWIN32__)