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 #ifdef __GNUG__
  13 #pragma implementation "app.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #define IN_WX_MAIN_CPP
  18 #include "wx/wxprec.h"
  19
  20 #if defined(__BORLANDC__)
  21 #pragma hdrstop
  22 #endif
  23
  24 #ifndef WX_PRECOMP
  25 #include "wx/frame.h"
  26 #include "wx/app.h"
  27 #include "wx/utils.h"
  28 #include "wx/gdicmn.h"
  29 #include "wx/pen.h"
  30 #include "wx/brush.h"
  31 #include "wx/cursor.h"
  32 #include "wx/icon.h"
  33 #include "wx/palette.h"
  34 #include "wx/dc.h"
  35 #include "wx/dialog.h"
  36 #include "wx/msgdlg.h"
  37 #endif
  38
  39 #include "wx/msw/private.h"
  40 #include "wx/postscrp.h"
  41 #include "wx/log.h"
  42 #include "wx/module.h"
  43
  44 #if USE_WX_RESOURCES
  45 #include "wx/resource.h"
  46 #endif
  47
  48
  49 #include <string.h>
  50
  51 #if defined(__WIN95__) && !defined(__GNUWIN32__)
  52 #include <commctrl.h>
  53 #endif
  54
  55 extern char *wxBuffer;
  56 extern char *wxOsVersion;
  57 extern wxList *wxWinHandleList;
  58 extern wxList wxPendingDelete;
  59 extern void wxSetKeyboardHook(bool doIt);
  60 extern wxCursor *g_globalCursor;
  61
  62 HANDLE wxhInstance = 0;
  63 static MSG s_currentMsg;
  64 wxApp *wxTheApp = NULL;
  65
  66 char wxFrameClassName[]         = "wxFrameClass";
  67 char wxMDIFrameClassName[]      = "wxMDIFrameClass";
  68 char wxMDIChildFrameClassName[] = "wxMDIChildFrameClass";
  69 char wxPanelClassName[]         = "wxPanelClass";
  70 char wxCanvasClassName[]        = "wxCanvasClass";
  71
  72 HICON wxSTD_FRAME_ICON = NULL;
  73 HICON wxSTD_MDICHILDFRAME_ICON = NULL;
  74 HICON wxSTD_MDIPARENTFRAME_ICON = NULL;
  75
  76 HICON wxDEFAULT_FRAME_ICON = NULL;
  77 HICON wxDEFAULT_MDICHILDFRAME_ICON = NULL;
  78 HICON wxDEFAULT_MDIPARENTFRAME_ICON = NULL;
  79
  80 HBRUSH wxDisableButtonBrush = 0;
  81
  82 LRESULT APIENTRY wxWndProc(HWND, UINT, WPARAM, LPARAM);
  83
  84 #if !USE_SHARED_LIBRARY
  85 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
  86 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
  87     EVT_IDLE(wxApp::OnIdle)
  88 END_EVENT_TABLE()
  89 #endif
  90
  91 long wxApp::sm_lastMessageTime = 0;
  92
  93 #ifdef __WIN95__
  94 static HINSTANCE gs_hRichEdit = NULL;
  95 #endif
  96
  97 bool wxApp::Initialize(WXHANDLE instance)
  98 {
  99   HANDLE hInstance = (HANDLE)instance;
 100
 101   CommonInit();
 102
 103 #if defined(__WIN95__)
 104   InitCommonControls();
 105   gs_hRichEdit = LoadLibrary("RICHED32.DLL");
 106
 107   if (gs_hRichEdit == NULL)
 108   {
 109     wxMessageBox("Could not initialise Rich Edit DLL");
 110   }
 111 #endif
 112
 113 #if     defined(WX_DRAG_DROP)
 114   // we need to initialize OLE library
 115   if ( FAILED(::OleInitialize(NULL)) )
 116     wxFatalError(_("Cannot initialize OLE"));
 117 #endif
 118
 119 #if CTL3D
 120   if (!Ctl3dRegister(hInstance))
 121     wxFatalError("Cannot register CTL3D");
 122
 123   Ctl3dAutoSubclass(hInstance);
 124 #endif
 125
 126   wxSTD_FRAME_ICON = LoadIcon(hInstance, "wxSTD_FRAME");
 127   wxSTD_MDIPARENTFRAME_ICON = LoadIcon(hInstance, "wxSTD_MDIPARENTFRAME");
 128   wxSTD_MDICHILDFRAME_ICON = LoadIcon(hInstance, "wxSTD_MDICHILDFRAME");
 129
 130   wxDEFAULT_FRAME_ICON = LoadIcon(hInstance, "wxDEFAULT_FRAME");
 131   wxDEFAULT_MDIPARENTFRAME_ICON = LoadIcon(hInstance, "wxDEFAULT_MDIPARENTFRAME");
 132   wxDEFAULT_MDICHILDFRAME_ICON = LoadIcon(hInstance, "wxDEFAULT_MDICHILDFRAME");
 133
 134   RegisterWindowClasses();
 135
 136   // Create the brush for disabling bitmap buttons
 137
 138   LOGBRUSH lb ;
 139   lb.lbStyle = BS_PATTERN;
 140   lb.lbHatch = (int)LoadBitmap( hInstance, "wxDISABLE_BUTTON_BITMAP" ) ;
 141   wxDisableButtonBrush = ::CreateBrushIndirect( & lb ) ;
 142   ::DeleteObject( (HGDIOBJ)lb.lbHatch ) ;
 143
 144 #if USE_PENWINDOWS
 145   wxRegisterPenWin();
 146 #endif
 147
 148   wxWinHandleList = new wxList(wxKEY_INTEGER);
 149
 150   // This is to foil optimizations in Visual C++ that
 151   // throw out dummy.obj.
 152 #if (_MSC_VER >= 800) && !defined(WXMAKINGDLL)
 153   extern char wxDummyChar;
 154   if (wxDummyChar) wxDummyChar++;
 155 #endif
 156   wxSetKeyboardHook(TRUE);
 157
 158   wxModule::RegisterModules();
 159   if (!wxModule::InitializeModules())
 160     return FALSE;
 161   return TRUE;
 162 }
 163
 164 bool wxApp::RegisterWindowClasses()
 165 {
 166 ///////////////////////////////////////////////////////////////////////
 167 // Register the frame window class.
 168   WNDCLASS wndclass;   // Structure used to register Windows class.
 169
 170   wndclass.style         = CS_HREDRAW | CS_VREDRAW;
 171   wndclass.lpfnWndProc   = (WNDPROC)wxWndProc;
 172   wndclass.cbClsExtra    = 0;
 173   wndclass.cbWndExtra    = sizeof( DWORD ); // was 4
 174   wndclass.hInstance     = wxhInstance;
 175   wndclass.hIcon         = NULL;        // wxSTD_FRAME_ICON;
 176   wndclass.hCursor       = LoadCursor( NULL, IDC_ARROW );
 177   wndclass.hbrBackground =  (HBRUSH)(COLOR_APPWORKSPACE+1) ;
 178 //  wndclass.hbrBackground = GetStockObject( WHITE_BRUSH );
 179   wndclass.lpszMenuName  = NULL;
 180 #ifdef _MULTIPLE_INSTANCES
 181   sprintf( wxFrameClassName,"wxFrameClass%d", hInstance );
 182 #endif
 183   wndclass.lpszClassName = wxFrameClassName;
 184
 185   if (!RegisterClass( &wndclass ))
 186   {
 187     // wxFatalError("Can't register Frame Window class");
 188   }
 189
 190 ///////////////////////////////////////////////////////////////////////
 191 // Register the MDI frame window class.
 192   WNDCLASS wndclass1;   // Structure used to register Windows class.
 193
 194   wndclass1.style         = CS_HREDRAW | CS_VREDRAW;
 195   wndclass1.lpfnWndProc   = (WNDPROC)wxWndProc;
 196   wndclass1.cbClsExtra    = 0;
 197   wndclass1.cbWndExtra    = sizeof( DWORD ); // was 4
 198   wndclass1.hInstance     = wxhInstance;
 199   wndclass1.hIcon         = NULL; // wxSTD_MDIPARENTFRAME_ICON;
 200   wndclass1.hCursor       = LoadCursor( NULL, IDC_ARROW );
 201 //  wndclass1.hbrBackground =  (HBRUSH)(COLOR_APPWORKSPACE+1) ;
 202   wndclass1.hbrBackground = NULL;
 203   wndclass1.lpszMenuName  = NULL;
 204
 205   wndclass1.lpszClassName = wxMDIFrameClassName;
 206   if (!RegisterClass( &wndclass1 ))
 207   {
 208 //    wxFatalError("Can't register MDI Frame window class");
 209 //      return FALSE;
 210   }
 211
 212 ///////////////////////////////////////////////////////////////////////
 213 // Register the MDI child frame window class.
 214   WNDCLASS wndclass4;   // Structure used to register Windows class.
 215
 216   wndclass4.style         = CS_HREDRAW | CS_VREDRAW;
 217   wndclass4.lpfnWndProc   = (WNDPROC)wxWndProc;
 218   wndclass4.cbClsExtra    = 0;
 219   wndclass4.cbWndExtra    = sizeof( DWORD ); // was 4
 220   wndclass4.hInstance     = wxhInstance;
 221   wndclass4.hIcon         = NULL;       // wxSTD_MDICHILDFRAME_ICON;
 222   wndclass4.hCursor       = LoadCursor( NULL, IDC_ARROW );
 223   // TODO: perhaps this should be NULL so that Windows doesn't
 224   // paint the background itself (would OnEraseBackground duplicate
 225   // this?)
 226   wndclass4.hbrBackground =  (HBRUSH)(COLOR_WINDOW+1) ;
 227 //  wndclass4.hbrBackground = NULL;
 228   wndclass4.lpszMenuName  = NULL;
 229   wndclass4.lpszClassName = wxMDIChildFrameClassName;
 230
 231   if (!RegisterClass( &wndclass4 ))
 232   {
 233 //   wxFatalError("Can't register MDI child frame window class");
 234 //   return FALSE;
 235   }
 236
 237 ///////////////////////////////////////////////////////////////////////
 238 // Register the panel window class.
 239   WNDCLASS wndclass2;   // Structure used to register Windows class.
 240   memset(&wndclass2, 0, sizeof(WNDCLASS));   // start with NULL defaults
 241   // Use CS_OWNDC to avoid messing about restoring the context
 242   // for every graphic operation.
 243   wndclass2.style         = CS_HREDRAW | CS_VREDRAW;
 244   wndclass2.lpfnWndProc   = (WNDPROC)wxWndProc;
 245   wndclass2.cbClsExtra    = 0;
 246   wndclass2.cbWndExtra    = sizeof( DWORD ); // was 4
 247   wndclass2.hInstance     = wxhInstance;
 248   wndclass2.hIcon         = NULL;
 249   wndclass2.hCursor       = NULL;
 250 //  wndclass2.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1) ;
 251   wndclass2.hbrBackground = GetStockObject( LTGRAY_BRUSH );
 252   wndclass2.lpszMenuName  = NULL;
 253   wndclass2.lpszClassName = wxPanelClassName;
 254   if (!RegisterClass( &wndclass2 ))
 255   {
 256 //   wxFatalError("Can't register Panel Window class");
 257 //   return FALSE;
 258   }
 259
 260 ///////////////////////////////////////////////////////////////////////
 261 // Register the canvas and textsubwindow class name
 262   WNDCLASS wndclass3;   // Structure used to register Windows class.
 263   memset(&wndclass3, 0, sizeof(WNDCLASS));   // start with NULL defaults
 264   // Use CS_OWNDC to avoid messing about restoring the context
 265   // for every graphic operation.
 266 //  wndclass3.style         = CS_HREDRAW | CS_VREDRAW | CS_OWNDC | CS_DBLCLKS ;
 267   // wxWin 2.0
 268   wndclass3.style         = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS ;
 269   wndclass3.lpfnWndProc   = (WNDPROC)wxWndProc;
 270   wndclass3.cbClsExtra    = 0;
 271   wndclass3.cbWndExtra    = sizeof( DWORD ); // was 4
 272   wndclass3.hInstance     = wxhInstance;
 273   wndclass3.hIcon         = NULL;
 274   wndclass3.hCursor       = NULL;
 275 //  wndclass3.hbrBackground = (HBRUSH)(COLOR_WINDOW+1) ;
 276   wndclass3.hbrBackground = NULL;
 277   wndclass3.lpszMenuName  = NULL;
 278   wndclass3.lpszClassName = wxCanvasClassName;
 279   if (!RegisterClass( &wndclass3))
 280   {
 281 //   wxFatalError("Can't register Canvas class");
 282 //   return FALSE;
 283   }
 284
 285   return TRUE;
 286 }
 287
 288 // Cleans up any wxWindows internal structures left lying around
 289 void wxApp::CleanUp()
 290 {
 291   wxModule::CleanUpModules();
 292
 293   CommonCleanUp();
 294
 295   wxSetKeyboardHook(FALSE);
 296
 297 #ifdef __WIN95__
 298   if (gs_hRichEdit != NULL)
 299     FreeLibrary(gs_hRichEdit);
 300 #endif
 301
 302 #if USE_PENWINDOWS
 303   wxCleanUpPenWin();
 304 #endif
 305
 306   if (wxSTD_FRAME_ICON)
 307     DestroyIcon(wxSTD_FRAME_ICON);
 308   if (wxSTD_MDICHILDFRAME_ICON)
 309     DestroyIcon(wxSTD_MDICHILDFRAME_ICON);
 310   if (wxSTD_MDIPARENTFRAME_ICON)
 311     DestroyIcon(wxSTD_MDIPARENTFRAME_ICON);
 312
 313   if (wxDEFAULT_FRAME_ICON)
 314     DestroyIcon(wxDEFAULT_FRAME_ICON);
 315   if (wxDEFAULT_MDICHILDFRAME_ICON)
 316     DestroyIcon(wxDEFAULT_MDICHILDFRAME_ICON);
 317   if (wxDEFAULT_MDIPARENTFRAME_ICON)
 318     DestroyIcon(wxDEFAULT_MDIPARENTFRAME_ICON);
 319
 320   if ( wxDisableButtonBrush )
 321     ::DeleteObject( wxDisableButtonBrush ) ;
 322
 323 #if     defined(WX_DRAG_DROP)
 324   ::OleUninitialize();
 325 #endif
 326
 327 #if CTL3D
 328   Ctl3dUnregister(wxhInstance);
 329 #endif
 330
 331   if (wxWinHandleList)
 332     delete wxWinHandleList ;
 333
 334   // do it as the very last thing because everything else can log messages
 335   delete wxLog::SetActiveTarget(NULL);
 336 }
 337
 338 void wxApp::CommonInit()
 339 {
 340 #ifdef __WINDOWS__
 341   wxBuffer = new char[1500];
 342 #else
 343   wxBuffer = new char[BUFSIZ + 512];
 344 #endif
 345
 346   wxClassInfo::InitializeClasses();
 347
 348 #if USE_RESOURCES
 349   wxGetResource("wxWindows", "OsVersion", &wxOsVersion);
 350 #endif
 351
 352   wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
 353   wxTheColourDatabase->Initialize();
 354   wxInitializeStockObjects();
 355
 356 #if USE_WX_RESOURCES
 357   wxInitializeResourceSystem();
 358 #endif
 359
 360   // For PostScript printing
 361 #if USE_POSTSCRIPT
 362   wxInitializePrintSetupData();
 363   wxThePrintPaperDatabase = new wxPrintPaperDatabase;
 364   wxThePrintPaperDatabase->CreateDatabase();
 365 #endif
 366
 367   wxBitmap::InitStandardHandlers();
 368
 369   g_globalCursor = new wxCursor;
 370 }
 371
 372 void wxApp::CommonCleanUp()
 373 {
 374 #if USE_WX_RESOURCES
 375   wxCleanUpResourceSystem();
 376
 377 //  wxDefaultResourceTable->ClearTable();
 378 #endif
 379   // Indicate that the cursor can be freed,
 380   // so that cursor won't be deleted by deleting
 381   // the bitmap list before g_globalCursor goes out
 382   // of scope (double deletion of the cursor).
 383   wxSetCursor(wxNullCursor);
 384   delete g_globalCursor;
 385
 386   wxDeleteStockObjects() ;
 387
 388   // Destroy all GDI lists, etc.
 389   delete wxTheBrushList;
 390   wxTheBrushList = NULL;
 391
 392   delete wxThePenList;
 393   wxThePenList = NULL;
 394
 395   delete wxTheFontList;
 396   wxTheFontList = NULL;
 397
 398   delete wxTheBitmapList;
 399   wxTheBitmapList = NULL;
 400
 401   delete wxTheColourDatabase;
 402   wxTheColourDatabase = NULL;
 403
 404 #if USE_POSTSCRIPT
 405   wxInitializePrintSetupData(FALSE);
 406   delete wxThePrintPaperDatabase;
 407   wxThePrintPaperDatabase = NULL;
 408 #endif
 409
 410   wxBitmap::CleanUpHandlers();
 411
 412   delete[] wxBuffer;
 413   wxBuffer = NULL;
 414 }
 415
 416 #if !defined(_WINDLL) || (defined(_WINDLL) && defined(WXMAKINGDLL))
 417
 418 // Main wxWindows entry point
 419
 420 int wxEntry(WXHINSTANCE hInstance, WXHINSTANCE WXUNUSED(hPrevInstance), char *m_lpCmdLine,
 421                     int nCmdShow, bool enterLoop)
 422 {
 423   wxhInstance = (HINSTANCE) hInstance;
 424
 425 #if (DEBUG && USE_MEMORY_TRACING) || USE_DEBUG_CONTEXT
 426
 427 #if !defined(_WINDLL)
 428   streambuf* sBuf = new wxDebugStreamBuf;
 429 #else
 430   streambuf* sBuf = NULL;
 431 #endif
 432   ostream* oStr = new ostream(sBuf) ;
 433   wxDebugContext::SetStream(oStr, sBuf);
 434
 435 #endif
 436
 437   if (!wxApp::Initialize((WXHINSTANCE) wxhInstance))
 438     return 0;
 439
 440   // The app may have declared a global application object, but we recommend
 441   // the IMPLEMENT_APP macro is used instead, which sets an initializer function
 442   // for delayed, dynamic app object construction.
 443   if (!wxTheApp)
 444   {
 445         if (!wxApp::GetInitializerFunction())
 446         {
 447         MessageBox(NULL, "No initializer - use IMPLEMENT_APP macro.", "wxWindows Error", MB_APPLMODAL | MB_ICONSTOP | MB_OK);
 448                 return 0;
 449         }
 450
 451         wxTheApp = (* wxApp::GetInitializerFunction()) ();
 452   }
 453
 454   if (!wxTheApp) {
 455     MessageBox(NULL, "You have to define an instance of wxApp!", "wxWindows Error", MB_APPLMODAL | MB_ICONSTOP | MB_OK);
 456     return 0;
 457   }
 458
 459   // Split command line into tokens, as in usual main(argc, argv)
 460   char **command = new char*[50];
 461
 462   int count = 0;
 463   char *buf = new char[strlen(m_lpCmdLine) + 1];
 464
 465   // Hangs around until end of app. in case
 466   // user carries pointers to the tokens
 467
 468   /* Model independent strcpy */
 469   int i;
 470   for (i = 0; (buf[i] = m_lpCmdLine[i]) != 0; i++)
 471   {
 472     /* loop */;
 473   }
 474
 475   // Get application name
 476   char name[200];
 477   ::GetModuleFileName(wxhInstance, name, 199);
 478
 479   // Is it only 16-bit Borland that already copies the program name
 480   // to the first argv index?
 481 #if !defined(__GNUWIN32__)
 482 // #if ! (defined(__BORLANDC__) && !defined(__WIN32__))
 483   command[count++] = copystring(name);
 484 // #endif
 485 #endif
 486
 487   strcpy(name, wxFileNameFromPath(name));
 488   wxStripExtension(name);
 489   wxTheApp->SetAppName(name);
 490
 491   /* Break up string */
 492   // Treat strings enclosed in double-quotes as single arguments
 493     char* str = buf;
 494         while (*str)
 495         {
 496                 while (*str && *str <= ' ') str++;      // skip whitespace
 497                 if (*str == '"')
 498                 {
 499                         str++;
 500                         command[count++] = str;
 501                         while (*str && *str != '"') str++;
 502                 }
 503                 else if (*str)
 504                 {
 505                         command[count++] = str;
 506                         while (*str && *str > ' ') str++;
 507                 }
 508                 if (*str) *str++ = '\0';
 509         }
 510   command[count] = NULL; /* argv[] is NULL terminated list! */
 511
 512   wxTheApp->argc = count;
 513   wxTheApp->argv = command;
 514   wxTheApp->m_nCmdShow = nCmdShow;
 515
 516   // GUI-specific initialisation. In fact on Windows we don't have any,
 517   // but this call is provided for compatibility across platforms.
 518   wxTheApp->OnInitGui() ;
 519
 520   if (!wxTheApp->OnInit())
 521   {
 522         wxTheApp->DeletePendingObjects();
 523         wxTheApp->OnExit();
 524         wxApp::CleanUp();
 525
 526         delete wxTheApp;
 527         wxTheApp = NULL;
 528
 529         delete [] buf ;
 530
 531         // TODO: This should really be cleaned up in ~wxApp
 532         delete [] command[0] ;
 533         delete [] command ;
 534             return 0;
 535   }
 536
 537   if (!enterLoop)
 538         return 0;
 539
 540   int retValue = 1;
 541
 542 /* New behaviour - leave it to the app to show the top window
 543   if (wxTheApp->GetTopWindow()) {
 544     // show the toplevel frame, only if we are not iconized (from MS-Windows)
 545     if(wxTheApp->GetShowFrameOnInit() && (nCmdShow!=SW_HIDE)) wxTheApp->GetTopWindow()->Show(TRUE);
 546   }
 547 */
 548
 549   retValue = wxTheApp->OnRun();
 550
 551   if (wxTheApp->GetTopWindow())
 552   {
 553     // Forcibly delete the window.
 554         if (wxTheApp->GetTopWindow()->IsKindOf(CLASSINFO(wxFrame)) ||
 555             wxTheApp->GetTopWindow()->IsKindOf(CLASSINFO(wxDialog)))
 556         {
 557         wxTheApp->GetTopWindow()->Close(TRUE);
 558         wxTheApp->DeletePendingObjects();
 559         }
 560         else
 561         {
 562                 delete wxTheApp->GetTopWindow();
 563                 wxTheApp->SetTopWindow(NULL);
 564         }
 565   }
 566
 567   wxTheApp->OnExit();
 568   wxApp::CleanUp();
 569
 570   delete wxTheApp;
 571   wxTheApp = NULL;
 572
 573   delete [] buf ;
 574   delete [] command[0] ;
 575   delete [] command ;
 576
 577 #if (DEBUG && USE_MEMORY_TRACING) || USE_DEBUG_CONTEXT
 578   // At this point we want to check if there are any memory
 579   // blocks that aren't part of the wxDebugContext itself,
 580   // as a special case. Then when dumping we need to ignore
 581   // wxDebugContext, too.
 582   if (wxDebugContext::CountObjectsLeft() > 0)
 583   {
 584     wxTrace("There were memory leaks.\n");
 585     wxDebugContext::Dump();
 586     wxDebugContext::PrintStatistics();
 587   }
 588   wxDebugContext::SetStream(NULL, NULL);
 589 #endif
 590
 591   return retValue;
 592 }
 593
 594 #else /*  _WINDLL  */
 595
 596 int wxEntry(WXHINSTANCE hInstance)
 597 {
 598   wxhInstance = (HINSTANCE) hInstance;
 599   wxApp::Initialize((WXHINSTANCE) wxhInstance);
 600
 601   // The app may have declared a global application object, but we recommend
 602   // the IMPLEMENT_APP macro is used instead, which sets an initializer function
 603   // for delayed, dynamic app object construction.
 604
 605   if (!wxTheApp)
 606   {
 607         if (!wxApp::GetInitializerFunction())
 608         {
 609         MessageBox(NULL, "No initializer - use IMPLEMENT_APP macro.", "wxWindows Error", MB_APPLMODAL | MB_ICONSTOP | MB_OK);
 610                 return 0;
 611         }
 612
 613         wxTheApp = (* wxApp::GetInitializerFunction()) ();
 614   }
 615
 616   if (!wxTheApp) {
 617     MessageBox(NULL, "You have to define an instance of wxApp!", "wxWindows Error", MB_APPLMODAL | MB_ICONSTOP | MB_OK);
 618     return 0;
 619   }
 620
 621   wxTheApp->argc = 0;
 622   wxTheApp->argv = NULL;
 623
 624   wxTheApp->OnInitGui();
 625
 626   wxTheApp->OnInit();
 627
 628   if (wxTheApp->GetTopWindow() && wxTheApp->GetTopWindow()->GetHWND()) {
 629     wxTheApp->GetTopWindow()->Show(TRUE);
 630   }
 631
 632   return 1;
 633 }
 634 #endif // _WINDLL
 635
 636 // Static member initialization
 637 wxAppInitializerFunction wxApp::m_appInitFn = (wxAppInitializerFunction) NULL;
 638
 639 wxApp::wxApp()
 640 {
 641   m_topWindow = NULL;
 642   wxTheApp = this;
 643 //  work_proc = NULL ;
 644   m_className = "";
 645 //  m_resourceCollection = TRUE;
 646 //  m_pendingCleanup = FALSE;
 647   m_wantDebugOutput = TRUE ;
 648   m_appName = "";
 649   argc = 0;
 650   argv = NULL;
 651 #ifdef __WINDOWS__
 652   m_printMode = wxPRINT_WINDOWS;
 653 #else
 654   m_printMode = wxPRINT_POSTSCRIPT;
 655 #endif
 656   m_exitOnFrameDelete = TRUE;
 657   m_auto3D = TRUE;
 658 }
 659
 660 bool wxApp::Initialized()
 661 {
 662 #ifndef _WINDLL
 663   if (GetTopWindow())
 664     return TRUE;
 665   else
 666     return FALSE;
 667 #endif
 668 #ifdef _WINDLL // Assume initialized if DLL (no way of telling)
 669   return TRUE;
 670 #endif
 671 }
 672
 673 /*
 674  * Get and process a message, returning FALSE if WM_QUIT
 675  * received.
 676  *
 677  */
 678 bool wxApp::DoMessage()
 679 {
 680   if (!::GetMessage(&s_currentMsg, (HWND) NULL, 0, 0))
 681   {
 682     return FALSE;
 683   }
 684
 685   // Process the message
 686   if (!ProcessMessage((WXMSG *)&s_currentMsg))
 687   {
 688     ::TranslateMessage(&s_currentMsg);
 689     wxApp::sm_lastMessageTime = s_currentMsg.time; /* MATTHEW: timeStamp impl. */
 690     ::DispatchMessage(&s_currentMsg);
 691   }
 692   return TRUE;
 693 }
 694
 695 /*
 696  * Keep trying to process messages until WM_QUIT
 697  * received.
 698  *
 699  * If there are messages to be processed, they will all be
 700  * processed and OnIdle will not be called.
 701  * When there are no more messages, OnIdle is called.
 702  * If OnIdle requests more time,
 703  * it will be repeatedly called so long as there are no pending messages.
 704  * A 'feature' of this is that once OnIdle has decided that no more processing
 705  * is required, then it won't get processing time until further messages
 706  * are processed (it'll sit in DoMessage).
 707  */
 708
 709 int wxApp::MainLoop()
 710 {
 711   m_keepGoing = TRUE;
 712   while (m_keepGoing)
 713   {
 714     while (!::PeekMessage(&s_currentMsg, 0, 0, 0, PM_NOREMOVE) &&
 715            ProcessIdle()) {}
 716     if (!DoMessage())
 717       m_keepGoing = FALSE;
 718   }
 719
 720   return s_currentMsg.wParam;
 721 }
 722
 723 // Returns TRUE if more time is needed.
 724 bool wxApp::ProcessIdle()
 725 {
 726     wxIdleEvent event;
 727     event.SetEventObject(this);
 728     ProcessEvent(event);
 729
 730     return event.MoreRequested();
 731 }
 732
 733 void wxApp::ExitMainLoop()
 734 {
 735   m_keepGoing = FALSE;
 736 }
 737
 738 bool wxApp::Pending()
 739 {
 740   return (::PeekMessage(&s_currentMsg, 0, 0, 0, PM_NOREMOVE) != 0) ;
 741 }
 742
 743 void wxApp::Dispatch()
 744 {
 745     if (!DoMessage())
 746       m_keepGoing = FALSE;
 747 }
 748
 749 /*
 750  * Give all windows a chance to preprocess
 751  * the message. Some may have accelerator tables, or have
 752  * MDI complications.
 753  */
 754 bool wxApp::ProcessMessage(WXMSG *Msg)
 755 {
 756   MSG *msg = (MSG *)Msg;
 757
 758   HWND hWnd;
 759
 760   // Anyone for a message? Try youngest descendants first.
 761   for (hWnd = msg->hwnd; hWnd != NULL; hWnd = ::GetParent(hWnd))
 762   {
 763     wxWindow *wnd = wxFindWinFromHandle((WXHWND) hWnd);
 764     if (wnd)
 765     {
 766        if (wnd->MSWProcessMessage(Msg))
 767          return TRUE;
 768
 769        // STOP if we've reached the top of the hierarchy!
 770 //       if (m_topWindow && (wnd == m_topWindow))
 771 //          return FALSE;
 772     }
 773   }
 774
 775   // TODO: Is this now obsolete, given that m_topWindow may not be defined?
 776   // Does it do anything useful anyway?
 777 //  if (m_topWindow && m_topWindow->MSWProcessMessage(Msg))
 778 //     return TRUE;
 779     return FALSE;
 780 }
 781
 782 void wxApp::OnIdle(wxIdleEvent& event)
 783 {
 784   static bool inOnIdle = FALSE;
 785
 786   // Avoid recursion (via ProcessEvent default case)
 787   if (inOnIdle)
 788     return;
 789
 790   inOnIdle = TRUE;
 791
 792   // 'Garbage' collection of windows deleted with Close().
 793   DeletePendingObjects();
 794
 795   // flush the logged messages if any
 796   wxLog *pLog = wxLog::GetActiveTarget();
 797   if ( pLog != NULL && pLog->HasPendingMessages() )
 798     pLog->Flush();
 799
 800   // Send OnIdle events to all windows
 801   bool needMore = SendIdleEvents();
 802 //  bool needMore = FALSE;
 803
 804   if (needMore)
 805     event.RequestMore(TRUE);
 806
 807   inOnIdle = FALSE;
 808 }
 809
 810 // Send idle event to all top-level windows
 811 bool wxApp::SendIdleEvents()
 812 {
 813     bool needMore = FALSE;
 814         wxNode* node = wxTopLevelWindows.First();
 815         while (node)
 816         {
 817                 wxWindow* win = (wxWindow*) node->Data();
 818                 if (SendIdleEvents(win))
 819             needMore = TRUE;
 820
 821                 node = node->Next();
 822         }
 823     return needMore;
 824 }
 825
 826 // Send idle event to window and all subwindows
 827 bool wxApp::SendIdleEvents(wxWindow* win)
 828 {
 829     bool needMore = FALSE;
 830
 831         wxIdleEvent event;
 832         event.SetEventObject(win);
 833         win->ProcessEvent(event);
 834
 835     if (event.MoreRequested())
 836         needMore = TRUE;
 837
 838         wxNode* node = win->GetChildren()->First();
 839         while (node)
 840         {
 841                 wxWindow* win = (wxWindow*) node->Data();
 842                 if (SendIdleEvents(win))
 843             needMore = TRUE;
 844
 845                 node = node->Next();
 846         }
 847     return needMore ;
 848 }
 849
 850 void wxApp::DeletePendingObjects()
 851 {
 852   wxNode *node = wxPendingDelete.First();
 853   while (node)
 854   {
 855     wxObject *obj = (wxObject *)node->Data();
 856
 857     delete obj;
 858
 859     if (wxPendingDelete.Member(obj))
 860       delete node;
 861
 862     // Deleting one object may have deleted other pending
 863     // objects, so start from beginning of list again.
 864     node = wxPendingDelete.First();
 865   }
 866 }
 867
 868 /*
 869 // Free up font objects that are not being used at present.
 870 bool wxApp::DoResourceCleanup()
 871 {
 872 //  wxDebugMsg("ResourceCleanup\n");
 873
 874   if (wxTheFontList)
 875   {
 876     wxNode *node = wxTheFontList->First();
 877     while (node)
 878     {
 879       wxGDIObject *obj = (wxGDIObject *)node->Data();
 880       if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
 881       {
 882 //        wxDebugMsg("Freeing font %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
 883         obj->FreeResource();
 884       }
 885       node = node->Next();
 886     }
 887   }
 888   if (wxThePenList)
 889   {
 890     wxNode *node = wxThePenList->First();
 891     while (node)
 892     {
 893       wxGDIObject *obj = (wxGDIObject *)node->Data();
 894       if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
 895       {
 896 //        wxDebugMsg("Freeing pen %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
 897         obj->FreeResource();
 898       }
 899       node = node->Next();
 900     }
 901   }
 902   if (wxTheBrushList)
 903   {
 904     wxNode *node = wxTheBrushList->First();
 905     while (node)
 906     {
 907       wxGDIObject *obj = (wxGDIObject *)node->Data();
 908       if ((obj->GetResourceHandle() != 0) && (obj->GetResourceUsage() == 0))
 909       {
 910 //        wxDebugMsg("Freeing brush %ld (GDI object %d)\n", (long)obj, (int)obj->GetResourceHandle());
 911         obj->FreeResource();
 912       }
 913       node = node->Next();
 914     }
 915   }
 916
 917   SetPendingCleanup(FALSE);
 918   return FALSE;
 919 }
 920 */
 921
 922 wxLog* wxApp::CreateLogTarget()
 923 {
 924     return new wxLogGui;
 925 }
 926
 927 wxWindow* wxApp::GetTopWindow() const
 928 {
 929     if (m_topWindow)
 930         return m_topWindow;
 931     else if (wxTopLevelWindows.Number() > 0)
 932         return (wxWindow*) wxTopLevelWindows.First()->Data();
 933     else
 934         return NULL;
 935 }
 936
 937 int wxApp::GetComCtl32Version() const
 938 {
 939     // have we loaded COMCTL32 yet?
 940     HMODULE theModule = ::GetModuleHandle("COMCTL32");
 941     int version = 0;
 942
 943     // if so, then we can check for the version
 944     if (theModule)
 945     {
 946         // InitCommonControlsEx is unique to 4.7 and later
 947         FARPROC theProc = ::GetProcAddress(theModule, "InitCommonControlsEx");
 948
 949         if (! theProc)
 950         {                    // not found, must be 4.00
 951                         version = 400;
 952         }
 953         else
 954         {
 955                         // The following symbol are unique to 4.71
 956                         //   DllInstall
 957                         //   FlatSB_EnableScrollBar FlatSB_GetScrollInfo FlatSB_GetScrollPos
 958                         //   FlatSB_GetScrollProp FlatSB_GetScrollRange FlatSB_SetScrollInfo
 959                         //   FlatSB_SetScrollPos FlatSB_SetScrollProp FlatSB_SetScrollRange
 960                         //   FlatSB_ShowScrollBar
 961                         //   _DrawIndirectImageList _DuplicateImageList
 962                         //   InitializeFlatSB
 963                         //   UninitializeFlatSB
 964                         // we could check for any of these - I chose DllInstall
 965                         FARPROC theProc = ::GetProcAddress(theModule, "DllInstall");
 966                         if (! theProc)
 967                         {
 968                                 // not found, must be 4.70
 969                                 version = 470;
 970                         }
 971                         else
 972                         {                         // found, must be 4.71
 973                                 version = 471;
 974                         }
 975         }
 976     }
 977     return version;
 978 }
 979
 980 void wxExit()
 981 {
 982   wxApp::CleanUp();
 983   FatalAppExit(0, "Fatal error: exiting");
 984 }
 985
 986 // Yield to incoming messages
 987 bool wxYield()
 988 {
 989   MSG msg;
 990   // We want to go back to the main message loop
 991   // if we see a WM_QUIT. (?)
 992   while (PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE) && msg.message != WM_QUIT)
 993   {
 994     if (!wxTheApp->DoMessage())
 995       break;
 996   }
 997
 998   return TRUE;
 999 }
1000
1001 HINSTANCE wxGetInstance()
1002 {
1003         return wxhInstance;
1004 }
1005
1006 // For some reason, with MSVC++ 1.5, WinMain isn't linked in properly
1007 // if in a separate file. So include it here to ensure it's linked.
1008 #if (defined(_MSC_VER) && !defined(__WIN32__)) || defined(__GNUWIN32__)
1009 #include "main.cpp"
1010 #endif
1011
1012 #undef IN_WX_MAIN_CPP
1013