the app doesn't exit any more if a dialog is shown (and destroyed) while
[wxWidgets.git] / src / msw / app.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: app.cpp
3 // Purpose: wxApp
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart and Markus Holzem
9 // Licence: wxWindows license
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ===========================================================================
13 // declarations
14 // ===========================================================================
15
16 // ---------------------------------------------------------------------------
17 // headers
18 // ---------------------------------------------------------------------------
19
20 #ifdef __GNUG__
21 #pragma implementation "app.h"
22 #endif
23
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
26
27 #if defined(__BORLANDC__)
28 #pragma hdrstop
29 #endif
30
31 #ifndef WX_PRECOMP
32 #include "wx/frame.h"
33 #include "wx/app.h"
34 #include "wx/utils.h"
35 #include "wx/gdicmn.h"
36 #include "wx/pen.h"
37 #include "wx/brush.h"
38 #include "wx/cursor.h"
39 #include "wx/icon.h"
40 #include "wx/palette.h"
41 #include "wx/dc.h"
42 #include "wx/dialog.h"
43 #include "wx/msgdlg.h"
44 #include "wx/intl.h"
45 #include "wx/dynarray.h"
46 #include "wx/wxchar.h"
47 #include "wx/icon.h"
48 #include "wx/log.h"
49 #endif
50
51 #include "wx/cmdline.h"
52 #include "wx/filename.h"
53 #include "wx/module.h"
54
55 #include "wx/msw/private.h"
56
57 #if wxUSE_THREADS
58 #include "wx/thread.h"
59
60 // define the array of MSG strutures
61 WX_DECLARE_OBJARRAY(MSG, wxMsgArray);
62
63 #include "wx/arrimpl.cpp"
64
65 WX_DEFINE_OBJARRAY(wxMsgArray);
66 #endif // wxUSE_THREADS
67
68 #if wxUSE_WX_RESOURCES
69 #include "wx/resource.h"
70 #endif
71
72 #if wxUSE_TOOLTIPS
73 #include "wx/tooltip.h"
74 #endif // wxUSE_TOOLTIPS
75
76 // OLE is used for drag-and-drop, clipboard, OLE Automation..., but some
77 // compilers don't support it (missing headers, libs, ...)
78 #if defined(__GNUWIN32_OLD__) || defined(__SC__) || defined(__SALFORDC__)
79 #undef wxUSE_OLE
80
81 #define wxUSE_OLE 0
82 #endif // broken compilers
83
84 #if wxUSE_OLE
85 #include <ole2.h>
86 #endif
87
88 #include <string.h>
89 #include <ctype.h>
90
91 #if defined(__WIN95__) && !((defined(__GNUWIN32_OLD__) || defined(__TWIN32__) || defined(__WXMICROWIN__)) && !defined(__CYGWIN10__))
92 #include <commctrl.h>
93 #endif
94
95 #ifndef __WXMICROWIN__
96 #include "wx/msw/msvcrt.h"
97 #endif
98
99 // ----------------------------------------------------------------------------
100 // conditional compilation
101 // ----------------------------------------------------------------------------
102
103 // The macro _WIN32_IE is defined by commctrl.h (unless it had already been
104 // defined before) and shows us what common control features are available
105 // during the compile time (it doesn't mean that they will be available during
106 // the run-time, use GetComCtl32Version() to test for them!). The possible
107 // values are:
108 //
109 // 0x0200 for comctl32.dll 4.00 shipped with Win95/NT 4.0
110 // 0x0300 4.70 IE 3.x
111 // 0x0400 4.71 IE 4.0
112 // 0x0401 4.72 IE 4.01 and Win98
113 // 0x0500 5.00 IE 5.x and NT 5.0 (Win2000)
114
115 #ifndef _WIN32_IE
116 // minimal set of features by default
117 #define _WIN32_IE 0x0200
118 #endif
119
120 #if _WIN32_IE >= 0x0300 && \
121 (!defined(__MINGW32__) || wxCHECK_W32API_VERSION( 2, 0 ))
122 #include <shlwapi.h>
123 #endif
124
125 // ---------------------------------------------------------------------------
126 // global variables
127 // ---------------------------------------------------------------------------
128
129 extern wxChar *wxBuffer;
130 extern wxList WXDLLEXPORT wxPendingDelete;
131 #ifndef __WXMICROWIN__
132 extern void wxSetKeyboardHook(bool doIt);
133 #endif
134
135 MSG s_currentMsg;
136 wxApp *wxTheApp = NULL;
137
138 // NB: all "NoRedraw" classes must have the same names as the "normal" classes
139 // with NR suffix - wxWindow::MSWCreate() supposes this
140 const wxChar *wxCanvasClassName = wxT("wxWindowClass");
141 const wxChar *wxCanvasClassNameNR = wxT("wxWindowClassNR");
142 const wxChar *wxMDIFrameClassName = wxT("wxMDIFrameClass");
143 const wxChar *wxMDIFrameClassNameNoRedraw = wxT("wxMDIFrameClassNR");
144 const wxChar *wxMDIChildFrameClassName = wxT("wxMDIChildFrameClass");
145 const wxChar *wxMDIChildFrameClassNameNoRedraw = wxT("wxMDIChildFrameClassNR");
146
147 HICON wxSTD_FRAME_ICON = (HICON) NULL;
148 HICON wxSTD_MDICHILDFRAME_ICON = (HICON) NULL;
149 HICON wxSTD_MDIPARENTFRAME_ICON = (HICON) NULL;
150
151 HICON wxDEFAULT_FRAME_ICON = (HICON) NULL;
152 HICON wxDEFAULT_MDICHILDFRAME_ICON = (HICON) NULL;
153 HICON wxDEFAULT_MDIPARENTFRAME_ICON = (HICON) NULL;
154
155 HBRUSH wxDisableButtonBrush = (HBRUSH) 0;
156
157 LRESULT WXDLLEXPORT APIENTRY wxWndProc(HWND, UINT, WPARAM, LPARAM);
158
159 // FIXME wxUSE_ON_FATAL_EXCEPTION is only supported for VC++ now because it
160 // needs compiler support for Win32 SEH. Others (especially Borland)
161 // probably have it too, but I'm not sure about how it works
162 // JACS: get 'Cannot use __try in functions that require unwinding
163 // in Unicode mode, so disabling.
164 #if !defined(__VISUALC__) || defined(__WIN16__) || defined(UNICODE)
165 #undef wxUSE_ON_FATAL_EXCEPTION
166 #define wxUSE_ON_FATAL_EXCEPTION 0
167 #endif // VC++
168
169 #if wxUSE_ON_FATAL_EXCEPTION
170 static bool gs_handleExceptions = FALSE;
171 #endif
172
173 // ===========================================================================
174 // implementation
175 // ===========================================================================
176
177 // ---------------------------------------------------------------------------
178 // wxApp
179 // ---------------------------------------------------------------------------
180
181 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
182
183 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
184 EVT_IDLE(wxApp::OnIdle)
185 EVT_END_SESSION(wxApp::OnEndSession)
186 EVT_QUERY_END_SESSION(wxApp::OnQueryEndSession)
187 END_EVENT_TABLE()
188
189 //// Initialize
190 bool wxApp::Initialize()
191 {
192 // the first thing to do is to check if we're trying to run an Unicode
193 // program under Win9x w/o MSLU emulation layer - if so, abort right now
194 // as it has no chance to work
195 #if wxUSE_UNICODE && !wxUSE_UNICODE_MSLU
196 if ( wxGetOsVersion() != wxWINDOWS_NT )
197 {
198 // note that we can use MessageBoxW() as it's implemented even under
199 // Win9x - OTOH, we can't use wxGetTranslation() because the file APIs
200 // used by wxLocale are not
201 ::MessageBox
202 (
203 NULL,
204 _T("This program uses Unicode and requires Windows NT/2000/XP.\nProgram aborted."),
205 _T("wxWindows Fatal Error"),
206 MB_ICONERROR | MB_OK
207 );
208
209 return FALSE;
210 }
211 #endif // wxUSE_UNICODE && !wxUSE_UNICODE_MSLU
212
213 wxBuffer = new wxChar[1500]; // FIXME
214
215 wxClassInfo::InitializeClasses();
216
217 #if wxUSE_THREADS
218 wxPendingEventsLocker = new wxCriticalSection;
219 #endif
220
221 wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
222 wxTheColourDatabase->Initialize();
223
224 wxInitializeStockLists();
225 wxInitializeStockObjects();
226
227 #if wxUSE_WX_RESOURCES
228 wxInitializeResourceSystem();
229 #endif
230
231 wxBitmap::InitStandardHandlers();
232
233 #if defined(__WIN95__) && !defined(__WXMICROWIN__)
234 InitCommonControls();
235 #endif // __WIN95__
236
237 #if wxUSE_OLE || wxUSE_DRAG_AND_DROP
238
239 #ifdef __WIN16__
240 // for OLE, enlarge message queue to be as large as possible
241 int iMsg = 96;
242 while (!SetMessageQueue(iMsg) && (iMsg -= 8))
243 ;
244 #endif // Win16
245
246 #if wxUSE_OLE
247 // we need to initialize OLE library
248 if ( FAILED(::OleInitialize(NULL)) )
249 wxLogError(_("Cannot initialize OLE"));
250 #endif
251
252 #endif // wxUSE_OLE
253
254 #if wxUSE_CTL3D
255 if (!Ctl3dRegister(wxhInstance))
256 wxLogError(wxT("Cannot register CTL3D"));
257
258 Ctl3dAutoSubclass(wxhInstance);
259 #endif // wxUSE_CTL3D
260
261 // VZ: these icons are not in wx.rc anyhow (but should they?)!
262 #if 0
263 wxSTD_FRAME_ICON = LoadIcon(wxhInstance, wxT("wxSTD_FRAME"));
264 wxSTD_MDIPARENTFRAME_ICON = LoadIcon(wxhInstance, wxT("wxSTD_MDIPARENTFRAME"));
265 wxSTD_MDICHILDFRAME_ICON = LoadIcon(wxhInstance, wxT("wxSTD_MDICHILDFRAME"));
266
267 wxDEFAULT_FRAME_ICON = LoadIcon(wxhInstance, wxT("wxDEFAULT_FRAME"));
268 wxDEFAULT_MDIPARENTFRAME_ICON = LoadIcon(wxhInstance, wxT("wxDEFAULT_MDIPARENTFRAME"));
269 wxDEFAULT_MDICHILDFRAME_ICON = LoadIcon(wxhInstance, wxT("wxDEFAULT_MDICHILDFRAME"));
270 #endif // 0
271
272 RegisterWindowClasses();
273
274 #ifndef __WXMICROWIN__
275 // Create the brush for disabling bitmap buttons
276
277 LOGBRUSH lb;
278 lb.lbStyle = BS_PATTERN;
279 lb.lbColor = 0;
280 lb.lbHatch = (int)LoadBitmap( wxhInstance, wxT("wxDISABLE_BUTTON_BITMAP") );
281 if ( lb.lbHatch )
282 {
283 wxDisableButtonBrush = ::CreateBrushIndirect( & lb );
284 ::DeleteObject( (HGDIOBJ)lb.lbHatch );
285 }
286 //else: wxWindows resources are probably not linked in
287 #endif
288
289 #if wxUSE_PENWINDOWS
290 wxRegisterPenWin();
291 #endif
292
293 wxWinHandleHash = new wxWinHashTable(wxKEY_INTEGER, 100);
294
295 // This is to foil optimizations in Visual C++ that throw out dummy.obj.
296 // PLEASE DO NOT ALTER THIS.
297 #if defined(__VISUALC__) && defined(__WIN16__) && !defined(WXMAKINGDLL)
298 extern char wxDummyChar;
299 if (wxDummyChar) wxDummyChar++;
300 #endif
301
302 #ifndef __WXMICROWIN__
303 wxSetKeyboardHook(TRUE);
304 #endif
305
306 wxModule::RegisterModules();
307 if (!wxModule::InitializeModules())
308 return FALSE;
309 return TRUE;
310 }
311
312 // ---------------------------------------------------------------------------
313 // RegisterWindowClasses
314 // ---------------------------------------------------------------------------
315
316 // TODO we should only register classes really used by the app. For this it
317 // would be enough to just delay the class registration until an attempt
318 // to create a window of this class is made.
319 bool wxApp::RegisterWindowClasses()
320 {
321 WNDCLASS wndclass;
322 wxZeroMemory(wndclass);
323
324 // for each class we register one with CS_(V|H)REDRAW style and one
325 // without for windows created with wxNO_FULL_REDRAW_ON_REPAINT flag
326 static const long styleNormal = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS;
327 static const long styleNoRedraw = CS_DBLCLKS;
328
329 // the fields which are common to all classes
330 wndclass.lpfnWndProc = (WNDPROC)wxWndProc;
331 wndclass.hInstance = wxhInstance;
332 wndclass.hCursor = ::LoadCursor((HINSTANCE)NULL, IDC_ARROW);
333
334 // Register the frame window class.
335 wndclass.hbrBackground = (HBRUSH)(COLOR_APPWORKSPACE + 1);
336 wndclass.lpszClassName = wxCanvasClassName;
337 wndclass.style = styleNormal;
338
339 if ( !RegisterClass(&wndclass) )
340 {
341 wxLogLastError(wxT("RegisterClass(frame)"));
342 }
343
344 // "no redraw" frame
345 wndclass.lpszClassName = wxCanvasClassNameNR;
346 wndclass.style = styleNoRedraw;
347
348 if ( !RegisterClass(&wndclass) )
349 {
350 wxLogLastError(wxT("RegisterClass(no redraw frame)"));
351 }
352
353 // Register the MDI frame window class.
354 wndclass.hbrBackground = (HBRUSH)NULL; // paint MDI frame ourselves
355 wndclass.lpszClassName = wxMDIFrameClassName;
356 wndclass.style = styleNormal;
357
358 if ( !RegisterClass(&wndclass) )
359 {
360 wxLogLastError(wxT("RegisterClass(MDI parent)"));
361 }
362
363 // "no redraw" MDI frame
364 wndclass.lpszClassName = wxMDIFrameClassNameNoRedraw;
365 wndclass.style = styleNoRedraw;
366
367 if ( !RegisterClass(&wndclass) )
368 {
369 wxLogLastError(wxT("RegisterClass(no redraw MDI parent frame)"));
370 }
371
372 // Register the MDI child frame window class.
373 wndclass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
374 wndclass.lpszClassName = wxMDIChildFrameClassName;
375 wndclass.style = styleNormal;
376
377 if ( !RegisterClass(&wndclass) )
378 {
379 wxLogLastError(wxT("RegisterClass(MDI child)"));
380 }
381
382 // "no redraw" MDI child frame
383 wndclass.lpszClassName = wxMDIChildFrameClassNameNoRedraw;
384 wndclass.style = styleNoRedraw;
385
386 if ( !RegisterClass(&wndclass) )
387 {
388 wxLogLastError(wxT("RegisterClass(no redraw MDI child)"));
389 }
390
391 return TRUE;
392 }
393
394 // ---------------------------------------------------------------------------
395 // UnregisterWindowClasses
396 // ---------------------------------------------------------------------------
397
398 bool wxApp::UnregisterWindowClasses()
399 {
400 bool retval = TRUE;
401
402 #ifndef __WXMICROWIN__
403 // MDI frame window class.
404 if ( !::UnregisterClass(wxMDIFrameClassName, wxhInstance) )
405 {
406 wxLogLastError(wxT("UnregisterClass(MDI parent)"));
407
408 retval = FALSE;
409 }
410
411 // "no redraw" MDI frame
412 if ( !::UnregisterClass(wxMDIFrameClassNameNoRedraw, wxhInstance) )
413 {
414 wxLogLastError(wxT("UnregisterClass(no redraw MDI parent frame)"));
415
416 retval = FALSE;
417 }
418
419 // MDI child frame window class.
420 if ( !::UnregisterClass(wxMDIChildFrameClassName, wxhInstance) )
421 {
422 wxLogLastError(wxT("UnregisterClass(MDI child)"));
423
424 retval = FALSE;
425 }
426
427 // "no redraw" MDI child frame
428 if ( !::UnregisterClass(wxMDIChildFrameClassNameNoRedraw, wxhInstance) )
429 {
430 wxLogLastError(wxT("UnregisterClass(no redraw MDI child)"));
431
432 retval = FALSE;
433 }
434
435 // canvas class name
436 if ( !::UnregisterClass(wxCanvasClassName, wxhInstance) )
437 {
438 wxLogLastError(wxT("UnregisterClass(canvas)"));
439
440 retval = FALSE;
441 }
442
443 if ( !::UnregisterClass(wxCanvasClassNameNR, wxhInstance) )
444 {
445 wxLogLastError(wxT("UnregisterClass(no redraw canvas)"));
446
447 retval = FALSE;
448 }
449 #endif // __WXMICROWIN__
450
451 return retval;
452 }
453
454 // ---------------------------------------------------------------------------
455 // Convert Windows to argc, argv style
456 // ---------------------------------------------------------------------------
457
458 void wxApp::ConvertToStandardCommandArgs(const char* lpCmdLine)
459 {
460 // break the command line in words
461 wxArrayString args =
462 wxCmdLineParser::ConvertStringToArgs(wxConvertMB2WX(lpCmdLine));
463
464 // +1 here for the program name
465 argc = args.GetCount() + 1;
466
467 // and +1 here for the terminating NULL
468 argv = new wxChar *[argc + 1];
469
470 argv[0] = new wxChar[260]; // 260 is MAX_PATH value from windef.h
471 ::GetModuleFileName(wxhInstance, argv[0], 260);
472
473 // also set the app name from argv[0]
474 wxString name;
475 wxFileName::SplitPath(argv[0], NULL, &name, NULL);
476
477 SetAppName(name);
478
479 // copy all the other arguments to wxApp::argv[]
480 for ( int i = 1; i < argc; i++ )
481 {
482 argv[i] = copystring(args[i - 1]);
483 }
484
485 // argv[] must be NULL-terminated
486 argv[argc] = NULL;
487 }
488
489 //// Cleans up any wxWindows internal structures left lying around
490
491 void wxApp::CleanUp()
492 {
493 //// COMMON CLEANUP
494
495 #if wxUSE_LOG
496 // flush the logged messages if any and install a 'safer' log target: the
497 // default one (wxLogGui) can't be used after the resources are freed just
498 // below and the user suppliedo ne might be even more unsafe (using any
499 // wxWindows GUI function is unsafe starting from now)
500 wxLog::DontCreateOnDemand();
501
502 // this will flush the old messages if any
503 delete wxLog::SetActiveTarget(new wxLogStderr);
504 #endif // wxUSE_LOG
505
506 // One last chance for pending objects to be cleaned up
507 wxTheApp->DeletePendingObjects();
508
509 wxModule::CleanUpModules();
510
511 #if wxUSE_WX_RESOURCES
512 wxCleanUpResourceSystem();
513
514 // wxDefaultResourceTable->ClearTable();
515 #endif
516
517 wxDeleteStockObjects();
518
519 // Destroy all GDI lists, etc.
520 wxDeleteStockLists();
521
522 delete wxTheColourDatabase;
523 wxTheColourDatabase = NULL;
524
525 wxBitmap::CleanUpHandlers();
526
527 delete[] wxBuffer;
528 wxBuffer = NULL;
529
530 //// WINDOWS-SPECIFIC CLEANUP
531
532 #ifndef __WXMICROWIN__
533 wxSetKeyboardHook(FALSE);
534 #endif
535
536 #if wxUSE_PENWINDOWS
537 wxCleanUpPenWin();
538 #endif
539
540 if (wxSTD_FRAME_ICON)
541 DestroyIcon(wxSTD_FRAME_ICON);
542 if (wxSTD_MDICHILDFRAME_ICON)
543 DestroyIcon(wxSTD_MDICHILDFRAME_ICON);
544 if (wxSTD_MDIPARENTFRAME_ICON)
545 DestroyIcon(wxSTD_MDIPARENTFRAME_ICON);
546
547 if (wxDEFAULT_FRAME_ICON)
548 DestroyIcon(wxDEFAULT_FRAME_ICON);
549 if (wxDEFAULT_MDICHILDFRAME_ICON)
550 DestroyIcon(wxDEFAULT_MDICHILDFRAME_ICON);
551 if (wxDEFAULT_MDIPARENTFRAME_ICON)
552 DestroyIcon(wxDEFAULT_MDIPARENTFRAME_ICON);
553
554 if ( wxDisableButtonBrush )
555 ::DeleteObject( wxDisableButtonBrush );
556
557 #if wxUSE_OLE
558 ::OleUninitialize();
559 #endif
560
561 #ifdef WXMAKINGDLL
562 // for an EXE the classes are unregistered when it terminates but DLL may
563 // be loaded several times (load/unload/load) into the same process in
564 // which case the registration will fail after the first time if we don't
565 // unregister the classes now
566 UnregisterWindowClasses();
567 #endif // WXMAKINGDLL
568
569 #if wxUSE_CTL3D
570 Ctl3dUnregister(wxhInstance);
571 #endif
572
573 delete wxWinHandleHash;
574
575 // GL: I'm annoyed ... I don't know where to put this and I don't want to
576 // create a module for that as it's part of the core.
577 delete wxPendingEvents;
578
579 #if wxUSE_THREADS
580 delete wxPendingEventsLocker;
581 // If we don't do the following, we get an apparent memory leak
582 #if wxUSE_VALIDATORS
583 ((wxEvtHandler&) wxDefaultValidator).ClearEventLocker();
584 #endif // wxUSE_VALIDATORS
585 #endif // wxUSE_THREADS
586
587 wxClassInfo::CleanUpClasses();
588
589 delete wxTheApp;
590 wxTheApp = NULL;
591
592 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
593 // At this point we want to check if there are any memory
594 // blocks that aren't part of the wxDebugContext itself,
595 // as a special case. Then when dumping we need to ignore
596 // wxDebugContext, too.
597 if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
598 {
599 wxLogMessage(wxT("There were memory leaks."));
600 wxDebugContext::Dump();
601 wxDebugContext::PrintStatistics();
602 }
603 // wxDebugContext::SetStream(NULL, NULL);
604 #endif
605
606 #if wxUSE_LOG
607 // do it as the very last thing because everything else can log messages
608 delete wxLog::SetActiveTarget(NULL);
609 #endif // wxUSE_LOG
610 }
611
612 //----------------------------------------------------------------------
613 // Entry point helpers, used by wxPython
614 //----------------------------------------------------------------------
615
616 int WXDLLEXPORT wxEntryStart( int WXUNUSED(argc), char** WXUNUSED(argv) )
617 {
618 return wxApp::Initialize();
619 }
620
621 int WXDLLEXPORT wxEntryInitGui()
622 {
623 return wxTheApp->OnInitGui();
624 }
625
626 void WXDLLEXPORT wxEntryCleanup()
627 {
628 wxApp::CleanUp();
629 }
630
631
632 #if !defined(_WINDLL) || (defined(_WINDLL) && defined(WXMAKINGDLL))
633
634 // temporarily disable this warning which would be generated in release builds
635 // because of __try
636 #ifdef __VISUALC__
637 #pragma warning(disable: 4715) // not all control paths return a value
638 #endif // Visual C++
639
640 //----------------------------------------------------------------------
641 // Main wxWindows entry point
642 //----------------------------------------------------------------------
643 int wxEntry(WXHINSTANCE hInstance,
644 WXHINSTANCE WXUNUSED(hPrevInstance),
645 char *lpCmdLine,
646 int nCmdShow,
647 bool enterLoop)
648 {
649 // do check for memory leaks on program exit
650 // (another useful flag is _CRTDBG_DELAY_FREE_MEM_DF which doesn't free
651 // deallocated memory which may be used to simulate low-memory condition)
652 #ifndef __WXMICROWIN__
653 wxCrtSetDbgFlag(_CRTDBG_LEAK_CHECK_DF);
654 #endif
655
656 #ifdef __MWERKS__
657 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
658 // This seems to be necessary since there are 'rogue'
659 // objects present at this point (perhaps global objects?)
660 // Setting a checkpoint will ignore them as far as the
661 // memory checking facility is concerned.
662 // Of course you may argue that memory allocated in globals should be
663 // checked, but this is a reasonable compromise.
664 wxDebugContext::SetCheckpoint();
665 #endif
666 #endif
667
668 // take everything into a try-except block to be able to call
669 // OnFatalException() if necessary
670 #if wxUSE_ON_FATAL_EXCEPTION
671 __try {
672 #endif
673 wxhInstance = (HINSTANCE) hInstance;
674
675 if (!wxEntryStart(0,0))
676 return 0;
677
678 // create the application object or ensure that one already exists
679 if (!wxTheApp)
680 {
681 // The app may have declared a global application object, but we recommend
682 // the IMPLEMENT_APP macro is used instead, which sets an initializer
683 // function for delayed, dynamic app object construction.
684 wxCHECK_MSG( wxApp::GetInitializerFunction(), 0,
685 wxT("No initializer - use IMPLEMENT_APP macro.") );
686
687 wxTheApp = (wxApp*) (*wxApp::GetInitializerFunction()) ();
688 }
689
690 wxCHECK_MSG( wxTheApp, 0, wxT("You have to define an instance of wxApp!") );
691
692 // save the WinMain() parameters
693 if (lpCmdLine) // MicroWindows passes NULL
694 wxTheApp->ConvertToStandardCommandArgs(lpCmdLine);
695 wxTheApp->m_nCmdShow = nCmdShow;
696
697 // We really don't want timestamps by default, because it means
698 // we can't simply double-click on the error message and get to that
699 // line in the source. So VC++ at least, let's have a sensible default.
700 #ifdef __VISUALC__
701 wxLog::SetTimestamp(NULL);
702 #endif
703
704 // init the app
705 int retValue = wxEntryInitGui() && wxTheApp->OnInit() ? 0 : -1;
706
707 if ( retValue == 0 )
708 {
709 if ( enterLoop )
710 {
711 // run the main loop
712 retValue = wxTheApp->OnRun();
713 }
714 else
715 {
716 // we want to initialize, but not run or exit immediately.
717 return 1;
718 }
719 }
720 //else: app initialization failed, so we skipped OnRun()
721
722 wxWindow *topWindow = wxTheApp->GetTopWindow();
723 if ( topWindow )
724 {
725 // Forcibly delete the window.
726 if ( topWindow->IsKindOf(CLASSINFO(wxFrame)) ||
727 topWindow->IsKindOf(CLASSINFO(wxDialog)) )
728 {
729 topWindow->Close(TRUE);
730 wxTheApp->DeletePendingObjects();
731 }
732 else
733 {
734 delete topWindow;
735 wxTheApp->SetTopWindow(NULL);
736 }
737 }
738
739 wxTheApp->OnExit();
740
741 wxEntryCleanup();
742
743 return retValue;
744
745 #if wxUSE_ON_FATAL_EXCEPTION
746 }
747 __except ( gs_handleExceptions ? EXCEPTION_EXECUTE_HANDLER
748 : EXCEPTION_CONTINUE_SEARCH ) {
749 if ( wxTheApp )
750 {
751 // give the user a chance to do something special about this
752 wxTheApp->OnFatalException();
753 }
754
755 ::ExitProcess(3); // the same exit code as abort()
756
757 // NOTREACHED
758 }
759 #endif // wxUSE_ON_FATAL_EXCEPTION
760 }
761
762 // restore warning state
763 #ifdef __VISUALC__
764 #pragma warning(default: 4715) // not all control paths return a value
765 #endif // Visual C++
766
767 #else /* _WINDLL */
768
769 //----------------------------------------------------------------------
770 // Entry point for wxWindows + the App in a DLL
771 //----------------------------------------------------------------------
772
773 int wxEntry(WXHINSTANCE hInstance)
774 {
775 wxhInstance = (HINSTANCE) hInstance;
776 wxEntryStart(0, 0);
777
778 // The app may have declared a global application object, but we recommend
779 // the IMPLEMENT_APP macro is used instead, which sets an initializer function
780 // for delayed, dynamic app object construction.
781 if (!wxTheApp)
782 {
783 wxCHECK_MSG( wxApp::GetInitializerFunction(), 0,
784 "No initializer - use IMPLEMENT_APP macro." );
785
786 wxTheApp = (* wxApp::GetInitializerFunction()) ();
787 }
788
789 wxCHECK_MSG( wxTheApp, 0, "You have to define an instance of wxApp!" );
790
791 wxTheApp->argc = 0;
792 wxTheApp->argv = NULL;
793
794 wxEntryInitGui();
795
796 wxTheApp->OnInit();
797
798 wxWindow *topWindow = wxTheApp->GetTopWindow();
799 if ( topWindow && topWindow->GetHWND())
800 {
801 topWindow->Show(TRUE);
802 }
803
804 return 1;
805 }
806 #endif // _WINDLL
807
808 //// Static member initialization
809
810 wxAppInitializerFunction wxAppBase::m_appInitFn = (wxAppInitializerFunction) NULL;
811
812 wxApp::wxApp()
813 {
814 argc = 0;
815 argv = NULL;
816 m_printMode = wxPRINT_WINDOWS;
817 m_auto3D = TRUE;
818 }
819
820 wxApp::~wxApp()
821 {
822 // Delete command-line args
823 int i;
824 for (i = 0; i < argc; i++)
825 {
826 delete[] argv[i];
827 }
828 delete[] argv;
829 }
830
831 bool wxApp::Initialized()
832 {
833 #ifndef _WINDLL
834 if (GetTopWindow())
835 return TRUE;
836 else
837 return FALSE;
838 #else // Assume initialized if DLL (no way of telling)
839 return TRUE;
840 #endif
841 }
842
843 /*
844 * Get and process a message, returning FALSE if WM_QUIT
845 * received (and also set the flag telling the app to exit the main loop)
846 *
847 */
848 bool wxApp::DoMessage()
849 {
850 BOOL rc = ::GetMessage(&s_currentMsg, (HWND) NULL, 0, 0);
851 if ( rc == 0 )
852 {
853 // got WM_QUIT
854 m_keepGoing = FALSE;
855
856 return FALSE;
857 }
858 else if ( rc == -1 )
859 {
860 // should never happen, but let's test for it nevertheless
861 wxLogLastError(wxT("GetMessage"));
862 }
863 else
864 {
865 #if wxUSE_THREADS
866 wxASSERT_MSG( wxThread::IsMain(),
867 wxT("only the main thread can process Windows messages") );
868
869 static bool s_hadGuiLock = TRUE;
870 static wxMsgArray s_aSavedMessages;
871
872 // if a secondary thread owns is doing GUI calls, save all messages for
873 // later processing - we can't process them right now because it will
874 // lead to recursive library calls (and we're not reentrant)
875 if ( !wxGuiOwnedByMainThread() )
876 {
877 s_hadGuiLock = FALSE;
878
879 // leave out WM_COMMAND messages: too dangerous, sometimes
880 // the message will be processed twice
881 if ( !wxIsWaitingForThread() ||
882 s_currentMsg.message != WM_COMMAND )
883 {
884 s_aSavedMessages.Add(s_currentMsg);
885 }
886
887 return TRUE;
888 }
889 else
890 {
891 // have we just regained the GUI lock? if so, post all of the saved
892 // messages
893 //
894 // FIXME of course, it's not _exactly_ the same as processing the
895 // messages normally - expect some things to break...
896 if ( !s_hadGuiLock )
897 {
898 s_hadGuiLock = TRUE;
899
900 size_t count = s_aSavedMessages.GetCount();
901 for ( size_t n = 0; n < count; n++ )
902 {
903 MSG& msg = s_aSavedMessages[n];
904
905 DoMessage((WXMSG *)&msg);
906 }
907
908 s_aSavedMessages.Empty();
909 }
910 }
911 #endif // wxUSE_THREADS
912
913 // Process the message
914 DoMessage((WXMSG *)&s_currentMsg);
915 }
916
917 return TRUE;
918 }
919
920 void wxApp::DoMessage(WXMSG *pMsg)
921 {
922 if ( !ProcessMessage(pMsg) )
923 {
924 ::TranslateMessage((MSG *)pMsg);
925 ::DispatchMessage((MSG *)pMsg);
926 }
927 }
928
929 /*
930 * Keep trying to process messages until WM_QUIT
931 * received.
932 *
933 * If there are messages to be processed, they will all be
934 * processed and OnIdle will not be called.
935 * When there are no more messages, OnIdle is called.
936 * If OnIdle requests more time,
937 * it will be repeatedly called so long as there are no pending messages.
938 * A 'feature' of this is that once OnIdle has decided that no more processing
939 * is required, then it won't get processing time until further messages
940 * are processed (it'll sit in DoMessage).
941 */
942
943 int wxApp::MainLoop()
944 {
945 m_keepGoing = TRUE;
946
947 while ( m_keepGoing )
948 {
949 #if wxUSE_THREADS
950 wxMutexGuiLeaveOrEnter();
951 #endif // wxUSE_THREADS
952
953 while ( !Pending() && ProcessIdle() )
954 ;
955
956 // a message came or no more idle processing to do
957 DoMessage();
958 }
959
960 return s_currentMsg.wParam;
961 }
962
963 // Returns TRUE if more time is needed.
964 bool wxApp::ProcessIdle()
965 {
966 wxIdleEvent event;
967 event.SetEventObject(this);
968 ProcessEvent(event);
969
970 return event.MoreRequested();
971 }
972
973 void wxApp::ExitMainLoop()
974 {
975 // this will set m_keepGoing to FALSE a bit later
976 ::PostQuitMessage(0);
977 }
978
979 bool wxApp::Pending()
980 {
981 return ::PeekMessage(&s_currentMsg, 0, 0, 0, PM_NOREMOVE) != 0;
982 }
983
984 void wxApp::Dispatch()
985 {
986 DoMessage();
987 }
988
989 /*
990 * Give all windows a chance to preprocess
991 * the message. Some may have accelerator tables, or have
992 * MDI complications.
993 */
994
995 bool wxApp::ProcessMessage(WXMSG *wxmsg)
996 {
997 MSG *msg = (MSG *)wxmsg;
998 HWND hwnd = msg->hwnd;
999 wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
1000
1001 // this may happen if the event occured in a standard modeless dialog (the
1002 // only example of which I know of is the find/replace dialog) - then call
1003 // IsDialogMessage() to make TAB navigation in it work
1004 if ( !wndThis )
1005 {
1006 // we need to find the dialog containing this control as
1007 // IsDialogMessage() just eats all the messages (i.e. returns TRUE for
1008 // them) if we call it for the control itself
1009 while ( hwnd && ::GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD )
1010 {
1011 hwnd = ::GetParent(hwnd);
1012 }
1013
1014 return hwnd && ::IsDialogMessage(hwnd, msg) != 0;
1015 }
1016
1017 #if wxUSE_TOOLTIPS
1018 // we must relay WM_MOUSEMOVE events to the tooltip ctrl if we want it to
1019 // popup the tooltip bubbles
1020 if ( (msg->message == WM_MOUSEMOVE) )
1021 {
1022 wxToolTip *tt = wndThis->GetToolTip();
1023 if ( tt )
1024 {
1025 tt->RelayEvent(wxmsg);
1026 }
1027 }
1028 #endif // wxUSE_TOOLTIPS
1029
1030 // allow the window to prevent certain messages from being
1031 // translated/processed (this is currently used by wxTextCtrl to always
1032 // grab Ctrl-C/V/X, even if they are also accelerators in some parent)
1033 if ( !wndThis->MSWShouldPreProcessMessage(wxmsg) )
1034 {
1035 return FALSE;
1036 }
1037
1038 // try translations first: the accelerators override everything
1039 wxWindow *wnd;
1040
1041 for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
1042 {
1043 if ( wnd->MSWTranslateMessage(wxmsg))
1044 return TRUE;
1045
1046 // stop at first top level window, i.e. don't try to process the key
1047 // strokes originating in a dialog using the accelerators of the parent
1048 // frame - this doesn't make much sense
1049 if ( wnd->IsTopLevel() )
1050 break;
1051 }
1052
1053 // now try the other hooks (kbd navigation is handled here): we start from
1054 // wndThis->GetParent() because wndThis->MSWProcessMessage() was already
1055 // called above
1056 for ( wnd = wndThis->GetParent(); wnd; wnd = wnd->GetParent() )
1057 {
1058 if ( wnd->MSWProcessMessage(wxmsg) )
1059 return TRUE;
1060 }
1061
1062 // no special preprocessing for this message, dispatch it normally
1063 return FALSE;
1064 }
1065
1066 void wxApp::OnIdle(wxIdleEvent& event)
1067 {
1068 static bool s_inOnIdle = FALSE;
1069
1070 // Avoid recursion (via ProcessEvent default case)
1071 if ( s_inOnIdle )
1072 return;
1073
1074 s_inOnIdle = TRUE;
1075
1076 // If there are pending events, we must process them: pending events
1077 // are either events to the threads other than main or events posted
1078 // with wxPostEvent() functions
1079 // GRG: I have moved this here so that all pending events are processed
1080 // before starting to delete any objects. This behaves better (in
1081 // particular, wrt wxPostEvent) and is coherent with wxGTK's current
1082 // behaviour. Changed Feb/2000 before 2.1.14
1083 ProcessPendingEvents();
1084
1085 // 'Garbage' collection of windows deleted with Close().
1086 DeletePendingObjects();
1087
1088 #if wxUSE_LOG
1089 // flush the logged messages if any
1090 wxLog::FlushActive();
1091 #endif // wxUSE_LOG
1092
1093 #if wxUSE_DC_CACHEING
1094 // automated DC cache management: clear the cached DCs and bitmap
1095 // if it's likely that the app has finished with them, that is, we
1096 // get an idle event and we're not dragging anything.
1097 if (!::GetKeyState(MK_LBUTTON) && !::GetKeyState(MK_MBUTTON) && !::GetKeyState(MK_RBUTTON))
1098 wxDC::ClearCache();
1099 #endif // wxUSE_DC_CACHEING
1100
1101 // Send OnIdle events to all windows
1102 if ( SendIdleEvents() )
1103 {
1104 // SendIdleEvents() returns TRUE if at least one window requested more
1105 // idle events
1106 event.RequestMore(TRUE);
1107 }
1108
1109 s_inOnIdle = FALSE;
1110 }
1111
1112 // Send idle event to all top-level windows
1113 bool wxApp::SendIdleEvents()
1114 {
1115 bool needMore = FALSE;
1116
1117 wxWindowList::Node* node = wxTopLevelWindows.GetFirst();
1118 while (node)
1119 {
1120 wxWindow* win = node->GetData();
1121 if (SendIdleEvents(win))
1122 needMore = TRUE;
1123 node = node->GetNext();
1124 }
1125
1126 return needMore;
1127 }
1128
1129 // Send idle event to window and all subwindows
1130 bool wxApp::SendIdleEvents(wxWindow* win)
1131 {
1132 bool needMore = FALSE;
1133
1134 wxIdleEvent event;
1135 event.SetEventObject(win);
1136 win->GetEventHandler()->ProcessEvent(event);
1137
1138 if (event.MoreRequested())
1139 needMore = TRUE;
1140
1141 wxNode* node = win->GetChildren().First();
1142 while (node)
1143 {
1144 wxWindow* win = (wxWindow*) node->Data();
1145 if (SendIdleEvents(win))
1146 needMore = TRUE;
1147
1148 node = node->Next();
1149 }
1150 return needMore;
1151 }
1152
1153 void wxApp::DeletePendingObjects()
1154 {
1155 wxNode *node = wxPendingDelete.First();
1156 while (node)
1157 {
1158 wxObject *obj = (wxObject *)node->Data();
1159
1160 delete obj;
1161
1162 if (wxPendingDelete.Member(obj))
1163 delete node;
1164
1165 // Deleting one object may have deleted other pending
1166 // objects, so start from beginning of list again.
1167 node = wxPendingDelete.First();
1168 }
1169 }
1170
1171 void wxApp::OnEndSession(wxCloseEvent& WXUNUSED(event))
1172 {
1173 if (GetTopWindow())
1174 GetTopWindow()->Close(TRUE);
1175 }
1176
1177 // Default behaviour: close the application with prompts. The
1178 // user can veto the close, and therefore the end session.
1179 void wxApp::OnQueryEndSession(wxCloseEvent& event)
1180 {
1181 if (GetTopWindow())
1182 {
1183 if (!GetTopWindow()->Close(!event.CanVeto()))
1184 event.Veto(TRUE);
1185 }
1186 }
1187
1188 /* static */
1189 int wxApp::GetComCtl32Version()
1190 {
1191 #ifdef __WXMICROWIN__
1192 return 0;
1193 #else
1194 // cache the result
1195 static int s_verComCtl32 = -1;
1196
1197 wxCRIT_SECT_DECLARE(csComCtl32);
1198 wxCRIT_SECT_LOCKER(lock, csComCtl32);
1199
1200 if ( s_verComCtl32 == -1 )
1201 {
1202 // initally assume no comctl32.dll at all
1203 s_verComCtl32 = 0;
1204
1205 // do we have it?
1206 HMODULE hModuleComCtl32 = ::GetModuleHandle(wxT("COMCTL32"));
1207
1208 // if so, then we can check for the version
1209 if ( hModuleComCtl32 )
1210 {
1211 // try to use DllGetVersion() if available in _headers_
1212 #ifdef DLLVER_PLATFORM_WINDOWS // defined in shlwapi.h
1213 DLLGETVERSIONPROC pfnDllGetVersion = (DLLGETVERSIONPROC)
1214 ::GetProcAddress(hModuleComCtl32, "DllGetVersion");
1215 if ( pfnDllGetVersion )
1216 {
1217 DLLVERSIONINFO dvi;
1218 dvi.cbSize = sizeof(dvi);
1219
1220 HRESULT hr = (*pfnDllGetVersion)(&dvi);
1221 if ( FAILED(hr) )
1222 {
1223 wxLogApiError(_T("DllGetVersion"), hr);
1224 }
1225 else
1226 {
1227 // this is incompatible with _WIN32_IE values, but
1228 // compatible with the other values returned by
1229 // GetComCtl32Version()
1230 s_verComCtl32 = 100*dvi.dwMajorVersion +
1231 dvi.dwMinorVersion;
1232 }
1233 }
1234 #endif
1235 // DllGetVersion() unavailable either during compile or
1236 // run-time, try to guess the version otherwise
1237 if ( !s_verComCtl32 )
1238 {
1239 // InitCommonControlsEx is unique to 4.70 and later
1240 FARPROC theProc = ::GetProcAddress
1241 (
1242 hModuleComCtl32,
1243 "InitCommonControlsEx"
1244 );
1245
1246 if ( !theProc )
1247 {
1248 // not found, must be 4.00
1249 s_verComCtl32 = 400;
1250 }
1251 else
1252 {
1253 // many symbols appeared in comctl32 4.71, could use
1254 // any of them except may be DllInstall
1255 theProc = ::GetProcAddress
1256 (
1257 hModuleComCtl32,
1258 "InitializeFlatSB"
1259 );
1260 if ( !theProc )
1261 {
1262 // not found, must be 4.70
1263 s_verComCtl32 = 470;
1264 }
1265 else
1266 {
1267 // found, must be 4.71
1268 s_verComCtl32 = 471;
1269 }
1270 }
1271 }
1272 }
1273 }
1274
1275 return s_verComCtl32;
1276 #endif
1277 }
1278
1279 void wxExit()
1280 {
1281 wxLogError(_("Fatal error: exiting"));
1282
1283 wxApp::CleanUp();
1284 exit(0);
1285 }
1286
1287 // Yield to incoming messages
1288
1289 bool wxApp::Yield(bool onlyIfNeeded)
1290 {
1291 // MT-FIXME
1292 static bool s_inYield = FALSE;
1293
1294 // disable log flushing from here because a call to wxYield() shouldn't
1295 // normally result in message boxes popping up &c
1296 wxLog::Suspend();
1297
1298 if ( s_inYield )
1299 {
1300 if ( !onlyIfNeeded )
1301 {
1302 wxFAIL_MSG( wxT("wxYield called recursively" ) );
1303 }
1304
1305 return FALSE;
1306 }
1307
1308 s_inYield = TRUE;
1309
1310 // we don't want to process WM_QUIT from here - it should be processed in
1311 // the main event loop in order to stop it
1312 MSG msg;
1313 while ( PeekMessage(&msg, (HWND)0, 0, 0, PM_NOREMOVE) &&
1314 msg.message != WM_QUIT )
1315 {
1316 #if wxUSE_THREADS
1317 wxMutexGuiLeaveOrEnter();
1318 #endif // wxUSE_THREADS
1319
1320 if ( !wxTheApp->DoMessage() )
1321 break;
1322 }
1323
1324 // if there are pending events, we must process them.
1325 ProcessPendingEvents();
1326
1327 // let the logs be flashed again
1328 wxLog::Resume();
1329
1330 s_inYield = FALSE;
1331
1332 return TRUE;
1333 }
1334
1335 bool wxHandleFatalExceptions(bool doit)
1336 {
1337 #if wxUSE_ON_FATAL_EXCEPTION
1338 // assume this can only be called from the main thread
1339 gs_handleExceptions = doit;
1340
1341 return TRUE;
1342 #else
1343 wxFAIL_MSG(_T("set wxUSE_ON_FATAL_EXCEPTION to 1 to use this function"));
1344
1345 (void)doit;
1346 return FALSE;
1347 #endif
1348 }
1349
1350 //-----------------------------------------------------------------------------
1351 // wxWakeUpIdle
1352 //-----------------------------------------------------------------------------
1353
1354 void wxWakeUpIdle()
1355 {
1356 // Send the top window a dummy message so idle handler processing will
1357 // start up again. Doing it this way ensures that the idle handler
1358 // wakes up in the right thread (see also wxWakeUpMainThread() which does
1359 // the same for the main app thread only)
1360 wxWindow *topWindow = wxTheApp->GetTopWindow();
1361 if ( topWindow )
1362 {
1363 if ( !::PostMessage(GetHwndOf(topWindow), WM_NULL, 0, 0) )
1364 {
1365 // should never happen
1366 wxLogLastError(wxT("PostMessage(WM_NULL)"));
1367 }
1368 }
1369 }
1370
1371 //-----------------------------------------------------------------------------
1372
1373 // For some reason, with MSVC++ 1.5, WinMain isn't linked in properly
1374 // if in a separate file. So include it here to ensure it's linked.
1375 #if (defined(__VISUALC__) && !defined(__WIN32__)) || (defined(__GNUWIN32__) && !defined(__TWIN32__) && !defined(WXMAKINGDLL))
1376 #include "main.cpp"
1377 #endif