prj/tech/libsrc/appcore/wappcore.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // $Source: x:/prj/tech/libsrc/appcore/RCS/wappcore.cpp $
   3 // $Author: TOML $
   4 // $Date: 1997/10/16 13:18:53 $
   5 // $Revision: 1.27 $
   6 //
   7
   8 #ifdef _WIN32
   9
  10 #include <windows.h>
  11 #include <lg.h>
  12 #include <aggmemb.h>
  13 #include <wappcore.h>
  14 #include <appagg.h>
  15
  16 #ifndef NO_DB_MEM
  17 // Must be last header
  18 #include <memall.h>
  19 #include <dbmem.h>
  20 #endif
  21
  22 #if defined(__WATCOMC__)
  23 #pragma off (unreferenced)
  24 #endif
  25
  26 ///////////////////////////////////////////////////////////////////////////////
  27
  28 EXTERN tResult LGAPI _GenericApplicationCreate(REFIID,
  29                                                IApplication ** ppApplication,
  30                                                IUnknown * pOuterUnknown,
  31                                                int argc, const char *argv[],
  32                                                const char * pszName,
  33                                                const char * pszDefaultPath)
  34 {
  35     USE_EXTENDED_START_UP();
  36     // Create the application.  Instance adds self to pOuterUnknown
  37     return (new cWindowsApplication(argc, argv, pszName, pOuterUnknown) != 0);
  38 }
  39
  40 ///////////////////////////////////////////////////////////////////////////////
  41 //
  42 // CLASS: cWindowsApplication
  43 //
  44
  45 //
  46 // Pre-fab COM implementations
  47 //
  48 IMPLEMENT_SIMPLE_AGGREGATE_CONTROL_DELETE_CLIENT(cWindowsApplication);
  49
  50 ///////////////////////////////////////
  51 //
  52 // Create an instance...
  53 //
  54
  55 cWindowsApplication::cWindowsApplication(int argc, const char *argv[],
  56                                          const char * pszName,
  57                                          IUnknown * pOuterUnknown)
  58   : m_argc(argc), m_argv(argv),
  59     m_NameStr(pszName),
  60     m_WinAppOperations(this, pOuterUnknown),
  61     m_ApplicationOperations(this, pOuterUnknown)
  62 {
  63     // Add internal components to outer aggregate...
  64     ADD_TO_AGGREGATE_2( pOuterUnknown,
  65                         IID_IWinApp, &m_WinAppOperations,
  66                         IID_IApplication, &m_ApplicationOperations,
  67                         kPriorityReserved,
  68                         NULL );
  69 }
  70
  71 ///////////////////////////////////////////////////////////////////////////////
  72 //
  73 // CLASS: cWindowsApplication::cWinAppOperations
  74 //
  75
  76 //
  77 // Pre-fab COM implementations
  78 //
  79
  80 IMPLEMENT_DELEGATION(cWindowsApplication::cWinAppOperations);
  81 IMPLEMENT_CONNECTION_POINT(cWindowsApplication::cWinAppOperations, IWinAppAdviseSink);
  82
  83 ///////////////////////////////////////
  84 //
  85 // Get the main window
  86 //
  87
  88 STDMETHODIMP_(HWND) cWindowsApplication::cWinAppOperations::GetMainWnd()
  89 {
  90     return m_hMainWnd;
  91 }
  92
  93 ///////////////////////////////////////
  94 //
  95 // Set the main window
  96 //
  97
  98 STDMETHODIMP_(HWND) cWindowsApplication::cWinAppOperations::SetMainWnd(HWND hNewMainWnd)
  99 {
 100     HWND hOldMainWnd = m_hMainWnd;
 101     m_hMainWnd = hNewMainWnd;
 102     return hOldMainWnd;
 103 }
 104
 105 ///////////////////////////////////////
 106 //
 107 // Get the current instance handle
 108 //
 109
 110 STDMETHODIMP_(HINSTANCE) cWindowsApplication::cWinAppOperations::GetInstance()
 111 {
 112     return GetModuleHandle(NULL);
 113 }
 114
 115 ///////////////////////////////////////
 116 //
 117 // Get the handle for Windows resources
 118 //
 119
 120 STDMETHODIMP_(HINSTANCE) cWindowsApplication::cWinAppOperations::GetResourceInstance()
 121 {
 122     return GetModuleHandle(NULL);
 123 }
 124
 125 ///////////////////////////////////////
 126 //
 127 // Get the command line
 128 //
 129
 130 STDMETHODIMP_(const char *) cWindowsApplication::cWinAppOperations::GetCommandLine()
 131 {
 132     CriticalMsg("Unimplemented call");
 133     return 0;
 134 }
 135
 136 ///////////////////////////////////////
 137 //
 138 // Get the intially requested "show state"
 139 //
 140
 141 STDMETHODIMP_(int) cWindowsApplication::cWinAppOperations::GetCommandShow()
 142 {
 143     CriticalMsg("Unimplemented call");
 144     return 0;
 145 }
 146
 147 ///////////////////////////////////////
 148 //
 149 // Set the application registry key
 150 //
 151
 152 STDMETHODIMP_(void) cWindowsApplication::cWinAppOperations::SetRegistryKey(const char *)
 153 {
 154     CriticalMsg("Unimplemented call");
 155 }
 156
 157 ///////////////////////////////////////
 158 //
 159 // Get the application registry key
 160 //
 161
 162 STDMETHODIMP_(const char *) cWindowsApplication::cWinAppOperations::GetRegistryKey()
 163 {
 164     CriticalMsg("Unimplemented call");
 165     return 0;
 166 }
 167
 168 ///////////////////////////////////////
 169 //
 170 // Set the application .ini file name
 171 //
 172
 173 STDMETHODIMP_(void) cWindowsApplication::cWinAppOperations::SetProfileName(const char *)
 174 {
 175     CriticalMsg("Unimplemented call");
 176 }
 177
 178 ///////////////////////////////////////
 179 //
 180 // Get the application .ini file name
 181 //
 182
 183 STDMETHODIMP_(const char *) cWindowsApplication::cWinAppOperations::GetProfileName()
 184 {
 185     CriticalMsg("Unimplemented call");
 186     return 0;
 187 }
 188
 189 ///////////////////////////////////////
 190 //
 191 // Set the default background color of application's dialogs
 192 //
 193
 194 STDMETHODIMP_(void) cWindowsApplication::cWinAppOperations::SetDialogBkColor(COLORREF clrCtlBk, COLORREF clrCtlText)
 195 {
 196     CriticalMsg("Unimplemented call");
 197 }
 198
 199 ///////////////////////////////////////
 200 //
 201 // Message pumping
 202 //
 203
 204 eWinPumpResult cWindowsApplication::cWinAppOperations::DispatchOneMessage(MSG * pMsg, unsigned nFilterMin, unsigned nFilterMax)
 205 {
 206     const int fGetResult = GetMessage(pMsg, NULL, nFilterMin, nFilterMax);
 207
 208     AssertMsg(fGetResult >= 0, "Error calling GetMessage()");
 209     DebugMsgTrue(retVal == 0, "Recevied WM_QUIT");
 210
 211     if (fGetResult && !PreTranslateMessage(pMsg))
 212     {
 213         TranslateMessage(pMsg);
 214         DispatchMessage(pMsg);
 215     }
 216     return (fGetResult > 0) ? kPumpedOk : kPumpedQuit;
 217 }
 218
 219 STDMETHODIMP_(eWinPumpResult) cWindowsApplication::cWinAppOperations::PumpEvents(int fPumpKind, eWinPumpDuration fDuration)
 220 {
 221     // If we're not in the midst of exiting...
 222     if (!(m_fFlags & kReceivedQuit))
 223     {
 224         MSG msg;
 225         unsigned nFilterMin;
 226         unsigned nFilterMax;
 227
 228         // If want to pump until quit, must choose kPumpAll...
 229         AssertMsg(fDuration != kPumpUntilQuit || fPumpKind == kPumpAll, "PumpEvents() parameters too dangerous");
 230
 231         // First pick filtering based on kind of pump desired...
 232         switch (fPumpKind)
 233         {
 234             case kPumpAll:
 235                 nFilterMin = 0;
 236                 nFilterMax = 0;
 237                 break;
 238
 239             case kPumpKeyboard:
 240                 nFilterMin = WM_KEYFIRST;
 241                 nFilterMax = WM_KEYLAST;
 242                 break;
 243
 244             case kPumpMouse:
 245                 nFilterMin = WM_MOUSEFIRST;
 246                 nFilterMax = WM_MOUSELAST;
 247                 break;
 248
 249             case kPumpPaint:
 250                 nFilterMin = WM_PAINT;
 251                 nFilterMax = WM_PAINT;
 252                 break;
 253
 254             default:
 255                 CriticalMsg2("Don't know how to handle requested pump kind in PumpEvents(%x, %d)", fPumpKind, fDuration);
 256         }
 257
 258         // Now start pumping according to desired duration...
 259         eWinPumpResult retVal;
 260
 261         switch (fDuration)
 262         {
 263             case kPumpOne:
 264                 if (PeekMessage(&msg, NULL, nFilterMin, nFilterMax, PM_NOREMOVE))
 265                     retVal = DispatchOneMessage(&msg, nFilterMin, nFilterMax);
 266                 else
 267                     retVal = kPumpedNothing;
 268
 269                 break;
 270
 271             case kPumpUntilEmpty:
 272                 retVal = kPumpedNothing;
 273                 while (PeekMessage(&msg, NULL, nFilterMin, nFilterMax, PM_NOREMOVE))
 274                     retVal = DispatchOneMessage(&msg, nFilterMin, nFilterMax);
 275
 276                 break;
 277
 278             case kPumpUntilQuit:
 279                 while (DispatchOneMessage(&msg, nFilterMin, nFilterMax) == kPumpedOk)
 280                     ;
 281                 retVal = kPumpedQuit;
 282
 283             default:
 284                 CriticalMsg2("Don't know how to handle requested pump duration in PumpEvents(%x, %d)", fPumpKind, fDuration);
 285         }
 286
 287         // If we received quit, set flag to shut down all subsequent PumpMessage() calls
 288         if (retVal == kPumpedQuit)
 289             m_fFlags |= kReceivedQuit;
 290         return retVal;
 291     }
 292     return kPumpedPastQuit;
 293 }
 294
 295 ///////////////////////////////////////
 296 //
 297 // Give clients a chance to handle our message
 298 //
 299
 300 int cWindowsApplication::cWinAppOperations::PreTranslateMessage(MSG * pMsg)
 301 {
 302     CONNECTION_POINT_ITERATE()
 303     {
 304         if (pSink->PreTranslateMessage(pMsg))
 305             return TRUE;
 306     }
 307     return FALSE;
 308 }
 309
 310 ///////////////////////////////////////
 311 //
 312 // Show a modal dialog box
 313 //
 314
 315 STDMETHODIMP cWindowsApplication::cWinAppOperations::ModalDialogBox(LPCTSTR lpTemplate, DLGPROC lpDialogFunc)
 316 {
 317     CriticalMsg("Unimplemented call");
 318     return 0;
 319 }
 320
 321 ///////////////////////////////////////////////////////////////////////////////
 322 //
 323 // CLASS: cWindowsApplication::cApplicationOperations
 324 //
 325
 326 //
 327 // Pre-fab COM implementations
 328 //
 329 IMPLEMENT_DELEGATION(cWindowsApplication::cApplicationOperations);
 330 IMPLEMENT_CONNECTION_POINT(cWindowsApplication::cApplicationOperations, IAppAdviseSink);
 331
 332 ///////////////////////////////////////
 333
 334 STDMETHODIMP cWindowsApplication::cApplicationOperations::QueryQuit()
 335 {
 336     CONNECTION_POINT_ITERATE()
 337     {
 338         if (pSink->OnQueryQuit() != S_OK)
 339         {
 340             return S_FALSE;
 341         }
 342     }
 343
 344     Quit();
 345
 346     return S_OK; // This will never execute
 347 }
 348
 349 ///////////////////////////////////////
 350
 351 STDMETHODIMP_(void) cWindowsApplication::cApplicationOperations::Quit()
 352 {
 353     CONNECTION_POINT_ITERATE()
 354     {
 355         pSink->OnQuit();
 356     }
 357     exit(0); // This may never execute
 358 }
 359
 360 ///////////////////////////////////////
 361
 362 STDMETHODIMP_(void) cWindowsApplication::cApplicationOperations::Abort(const char * pszReason)
 363 {
 364     CriticalMsg("Unimplemented call");
 365 }
 366
 367 ///////////////////////////////////////
 368
 369 STDMETHODIMP_(void) cWindowsApplication::cApplicationOperations::SetCaption(const char *)
 370 {
 371     CriticalMsg("Unimplemented call");
 372 }
 373
 374 ///////////////////////////////////////
 375
 376 STDMETHODIMP_(const char *) cWindowsApplication::cApplicationOperations::GetCaption()
 377 {
 378     return m_pWindowsApplication->m_NameStr;
 379 }
 380
 381 ///////////////////////////////////////
 382
 383 STDMETHODIMP_(void) cWindowsApplication::cApplicationOperations::SetDefaultFilePath(const char *)
 384 {
 385     CriticalMsg("Unimplemented call");
 386 }
 387
 388 ///////////////////////////////////////
 389
 390 STDMETHODIMP_(const char *) cWindowsApplication::cApplicationOperations::GetDefaultFilePath()
 391 {
 392     CriticalMsg("Unimplemented call");
 393     return 0;
 394 }
 395
 396 ///////////////////////////////////////
 397
 398 STDMETHODIMP_(const char *) cWindowsApplication::cApplicationOperations::GetFullName()
 399 {
 400     CriticalMsg("Unimplemented call");
 401     return 0;
 402 }
 403
 404 ///////////////////////////////////////
 405
 406 STDMETHODIMP_(const char *) cWindowsApplication::cApplicationOperations::GetPath()
 407 {
 408     CriticalMsg("Unimplemented call");
 409     return 0;
 410 }
 411
 412 ///////////////////////////////////////
 413
 414 STDMETHODIMP_(int) cWindowsApplication::cApplicationOperations::MessageBox(const char * pszMessage, const char * pszCaption, int fFlags)
 415 {
 416     CriticalMsg("Unimplemented call");
 417     return 0;
 418 }
 419
 420 ///////////////////////////////////////
 421
 422 STDMETHODIMP_(int) cWindowsApplication::cApplicationOperations::CriticalMessageBox(const char * pszMessage, const char * pszCaption, int errorCode)
 423 {
 424     CriticalMsg("Unimplemented call");
 425     return 0;
 426 }
 427
 428 ///////////////////////////////////////
 429
 430 STDMETHODIMP_(void) cWindowsApplication::cApplicationOperations::AppCommand(unsigned nCmdId)
 431 {
 432     CONNECTION_POINT_ITERATE()
 433     {
 434         if (pSink->GetVersion() >= kVerAppAdvise_CommandSupport)
 435         {
 436             pSink->OnCommand(nCmdId);
 437         }
 438     }
 439 }
 440
 441 ///////////////////////////////////////////////////////////////////////////////
 442
 443 #endif /* _WIN32 */
 444