src/mac/carbon/app.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        app.cpp
   3 // Purpose:     wxApp
   4 // Author:      AUTHOR
   5 // Modified by:
   6 // Created:     ??/??/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) AUTHOR
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "app.h"
  14 #endif
  15
  16 #include "wx/defs.h"
  17
  18 #include "wx/window.h"
  19 #include "wx/frame.h"
  20 #include "wx/button.h"
  21 #include "wx/app.h"
  22 #include "wx/utils.h"
  23 #include "wx/gdicmn.h"
  24 #include "wx/pen.h"
  25 #include "wx/brush.h"
  26 #include "wx/cursor.h"
  27 #include "wx/intl.h"
  28 #include "wx/icon.h"
  29 #include "wx/palette.h"
  30 #include "wx/dc.h"
  31 #include "wx/dialog.h"
  32 #include "wx/msgdlg.h"
  33 #include "wx/log.h"
  34 #include "wx/module.h"
  35 #include "wx/memory.h"
  36 #include "wx/tooltip.h"
  37 #include "wx/textctrl.h"
  38 #include "wx/menu.h"
  39 #if wxUSE_WX_RESOURCES
  40 #  include "wx/resource.h"
  41 #endif
  42
  43 #include <string.h>
  44
  45 // mac
  46
  47 #ifndef __DARWIN__
  48   #if __option(profile)
  49     #include <profiler.h>
  50   #endif
  51 #endif
  52
  53 #include "apprsrc.h"
  54
  55 #include "wx/mac/uma.h"
  56 #include "wx/mac/macnotfy.h"
  57
  58 #ifdef __DARWIN__
  59 #  include <CoreServices/CoreServices.h>
  60 #else
  61 #  include <Sound.h>
  62 #  include <Threads.h>
  63 #  include <ToolUtils.h>
  64 #  include <DiskInit.h>
  65 #  include <Devices.h>
  66 #endif
  67
  68 extern char *wxBuffer;
  69 extern wxList wxPendingDelete;
  70 extern wxList *wxWinMacWindowList;
  71 extern wxList *wxWinMacControlList;
  72
  73 wxApp *wxTheApp = NULL;
  74
  75 #if !USE_SHARED_LIBRARY
  76 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
  77 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
  78     EVT_IDLE(wxApp::OnIdle)
  79         EVT_END_SESSION(wxApp::OnEndSession)
  80         EVT_QUERY_END_SESSION(wxApp::OnQueryEndSession)
  81 END_EVENT_TABLE()
  82 #endif
  83
  84
  85 const short    kMacMinHeap = (29 * 1024) ;
  86 // platform specific static variables
  87
  88 const short kwxMacMenuBarResource = 1 ;
  89 const short kwxMacAppleMenuId = 1 ;
  90
  91 WXHRGN            wxApp::s_macCursorRgn = NULL;
  92 wxWindow*            wxApp::s_captureWindow = NULL ;
  93 int                    wxApp::s_lastMouseDown = 0 ;
  94 long                     wxApp::sm_lastMessageTime = 0;
  95
  96 bool    wxApp::s_macDefaultEncodingIsPC = true ;
  97 bool wxApp::s_macSupportPCMenuShortcuts = true ;
  98 long wxApp::s_macAboutMenuItemId = wxID_ABOUT ;
  99 wxString wxApp::s_macHelpMenuTitleName = "&Help" ;
 100
 101 pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 102 pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 103 pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 104 pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 105
 106
 107 pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long refcon )
 108 {
 109     // GD: UNUSED wxApp* app = (wxApp*) refcon ;
 110     return wxTheApp->MacHandleAEODoc( (AppleEvent*) event , reply) ;
 111 }
 112
 113 pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long refcon )
 114 {
 115     // GD: UNUSED wxApp* app = (wxApp*) refcon ;
 116     return wxTheApp->MacHandleAEOApp( (AppleEvent*) event , reply ) ;
 117 }
 118
 119 pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long refcon )
 120 {
 121     // GD: UNUSED wxApp* app = (wxApp*) refcon ;
 122     return wxTheApp->MacHandleAEPDoc( (AppleEvent*) event , reply ) ;
 123 }
 124
 125 pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long refcon )
 126 {
 127     // GD: UNUSED wxApp* app = (wxApp*) refcon ;
 128     return wxTheApp->MacHandleAEQuit( (AppleEvent*) event , reply) ;
 129 }
 130
 131 short wxApp::MacHandleAEODoc(const WXEVENTREF event , WXEVENTREF reply)
 132 {
 133     SysBeep(40) ;
 134     ProcessSerialNumber PSN ;
 135     PSN.highLongOfPSN = 0 ;
 136     PSN.lowLongOfPSN = kCurrentProcess ;
 137     SetFrontProcess( &PSN ) ;
 138     return noErr ;
 139 }
 140
 141 short wxApp::MacHandleAEPDoc(const WXEVENTREF event , WXEVENTREF reply)
 142 {
 143     return noErr ;
 144 }
 145
 146 short wxApp::MacHandleAEOApp(const WXEVENTREF event , WXEVENTREF reply)
 147 {
 148     return noErr ;
 149 }
 150
 151 short wxApp::MacHandleAEQuit(const WXEVENTREF event , WXEVENTREF reply)
 152 {
 153     wxWindow* win = GetTopWindow() ;
 154     if ( win )
 155     {
 156         win->Close(TRUE ) ;
 157     }
 158     else
 159     {
 160         ExitMainLoop() ;
 161     }
 162     return noErr ;
 163 }
 164
 165 char StringMac[] =  "\x0d\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f"
 166                     "\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f"
 167                     "\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xae\xaf"
 168                     "\xb1\xb4\xb5\xb6\xbb\xbc\xbe\xbf"
 169                     "\xc0\xc1\xc2\xc4\xc7\xc8\xc9\xcb\xcc\xcd\xce\xcf"
 170                     "\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd8\xca\xdb" ;
 171
 172 char StringANSI[] = "\x0a\xC4\xC5\xC7\xC9\xD1\xD6\xDC\xE1\xE0\xE2\xE4\xE3\xE5\xE7\xE9\xE8"
 173                     "\xEA\xEB\xED\xEC\xEE\xEF\xF1\xF3\xF2\xF4\xF6\xF5\xFA\xF9\xFB\xFC"
 174                     "\x86\xBA\xA2\xA3\xA7\x95\xB6\xDF\xAE\xA9\x99\xB4\xA8\xC6\xD8"
 175                     "\xB1\xA5\xB5\xF0\xAA\xBA\xE6\xF8"
 176                     "\xBF\xA1\xAC\x83\xAB\xBB\x85\xC0\xC3\xD5\x8C\x9C"
 177                     "\x96\x97\x93\x94\x91\x92\xF7\xFF\xA0\x80" ;
 178
 179 void wxMacConvertFromPC( const char *from , char *to , int len )
 180 {
 181     char *c ;
 182     if ( from == to )
 183     {
 184         for( int i = 0 ; i < len ; ++ i )
 185         {
 186             c = strchr( StringANSI , *from ) ;
 187             if ( c != NULL )
 188             {
 189                 *to = StringMac[ c - StringANSI] ;
 190             }
 191             ++to ;
 192             ++from ;
 193         }
 194     }
 195     else
 196     {
 197         for( int i = 0 ; i < len ; ++ i )
 198         {
 199             c = strchr( StringANSI , *from ) ;
 200             if ( c != NULL )
 201             {
 202                 *to = StringMac[ c - StringANSI] ;
 203             }
 204             else
 205             {
 206                 *to = *from ;
 207             }
 208             ++to ;
 209             ++from ;
 210         }
 211     }
 212 }
 213
 214 void wxMacConvertToPC( const char *from , char *to , int len )
 215 {
 216     char *c ;
 217     if ( from == to )
 218     {
 219         for( int i = 0 ; i < len ; ++ i )
 220         {
 221             c = strchr( StringMac , *from ) ;
 222             if ( c != NULL )
 223             {
 224                 *to = StringANSI[ c - StringMac] ;
 225             }
 226             ++to ;
 227             ++from ;
 228         }
 229     }
 230     else
 231     {
 232         for( int i = 0 ; i < len ; ++ i )
 233         {
 234             c = strchr( StringMac , *from ) ;
 235             if ( c != NULL )
 236             {
 237                 *to = StringANSI[ c - StringMac] ;
 238             }
 239             else
 240             {
 241                 *to = *from ;
 242             }
 243             ++to ;
 244             ++from ;
 245         }
 246     }
 247 }
 248
 249 void wxMacConvertFromPC( char * p )
 250 {
 251     char *ptr = p ;
 252     int len = strlen ( p ) ;
 253
 254     wxMacConvertFromPC( ptr , ptr , len ) ;
 255 }
 256
 257 void wxMacConvertFromPCForControls( char * p )
 258 {
 259     char *ptr = p ;
 260     int len = strlen ( p ) ;
 261
 262     wxMacConvertFromPC( ptr , ptr , len ) ;
 263     for ( unsigned int i = 0 ; i < strlen ( ptr ) ; i++ )
 264     {
 265         if ( ptr[i] == '&' && ptr[i]+1 != ' ' )
 266         {
 267             memmove( &ptr[i] , &ptr[i+1] , strlen( &ptr[i+1] ) + 1) ;
 268         }
 269     }
 270 }
 271
 272 void wxMacConvertFromPC( unsigned char *p )
 273 {
 274     char *ptr = (char*) p + 1 ;
 275     int len = p[0] ;
 276
 277     wxMacConvertFromPC( ptr , ptr , len ) ;
 278 }
 279
 280 extern char *wxBuffer ;
 281
 282 wxString wxMacMakeMacStringFromPC( const char * p )
 283 {
 284     const char *ptr = p ;
 285     int len = strlen ( p ) ;
 286     char *buf = wxBuffer ;
 287
 288     if ( len >= BUFSIZ + 512 )
 289     {
 290         buf = new char [len+1] ;
 291     }
 292
 293     wxMacConvertFromPC( ptr , buf , len ) ;
 294     buf[len] = 0 ;
 295     wxString result( buf ) ;
 296     if ( buf != wxBuffer )
 297         delete buf ;
 298     return result ;
 299 }
 300
 301
 302 void wxMacConvertToPC( char * p )
 303 {
 304     char *ptr = p ;
 305     int len = strlen ( p ) ;
 306
 307     wxMacConvertToPC( ptr , ptr , len ) ;
 308 }
 309
 310 void wxMacConvertToPC( unsigned char *p )
 311 {
 312     char *ptr = (char*) p + 1 ;
 313     int len = p[0] ;
 314
 315     wxMacConvertToPC( ptr , ptr , len ) ;
 316 }
 317
 318 wxString wxMacMakePCStringFromMac( const char * p )
 319 {
 320     const char *ptr = p ;
 321     int len = strlen ( p ) ;
 322     char *buf = wxBuffer ;
 323
 324     if ( len >= BUFSIZ + 512 )
 325     {
 326         buf = new char [len+1] ;
 327     }
 328
 329     wxMacConvertToPC( ptr , buf , len ) ;
 330     buf[len] = 0 ;
 331
 332     wxString result( buf ) ;
 333     if ( buf != wxBuffer )
 334         delete buf ;
 335     return result ;
 336 }
 337
 338 wxString wxMacMakeStringFromMacString( const char* from , bool mac2pcEncoding )
 339 {
 340     if (mac2pcEncoding)
 341     {
 342       return wxMacMakePCStringFromMac( from ) ;
 343     }
 344     else
 345     {
 346       return wxString( from ) ;
 347     }
 348 }
 349
 350 wxString wxMacMakeStringFromPascal( StringPtr from , bool mac2pcEncoding )
 351 {
 352   // this is safe since a pascal string can never be larger than 256 bytes
 353   char s[256] ;
 354   CopyPascalStringToC( from , s ) ;
 355     if (mac2pcEncoding)
 356     {
 357       return wxMacMakePCStringFromMac( s ) ;
 358     }
 359     else
 360     {
 361       return wxString( s ) ;
 362     }
 363 }
 364
 365 void wxMacStringToPascal( const char * from , StringPtr to , bool pc2macEncoding )
 366 {
 367     if (pc2macEncoding)
 368     {
 369       CopyCStringToPascal( wxMacMakeMacStringFromPC( from ) , to ) ;
 370     }
 371     else
 372     {
 373       CopyCStringToPascal( from , to ) ;
 374     }
 375 }
 376 #ifdef WXMAKINGDLL
 377 #ifndef __DARWIN__
 378 // we know it's there ;-)
 379 WXIMPORT char std::__throws_bad_alloc ;
 380 #endif
 381 #endif
 382
 383 bool wxApp::Initialize()
 384 {
 385   int error = 0 ;
 386
 387   // Mac-specific
 388
 389   UMAInitToolbox( 4 ) ;
 390   SetEventMask( everyEvent ) ;
 391     UMAShowWatchCursor() ;
 392
 393 #if defined(UNIVERSAL_INTERFACES_VERSION) && (UNIVERSAL_INTERFACES_VERSION >= 0x0340)
 394     AEInstallEventHandler( kCoreEventClass , kAEOpenDocuments ,   NewAEEventHandlerUPP(AEHandleODoc) ,
 395                            (long) wxTheApp , FALSE ) ;
 396     AEInstallEventHandler( kCoreEventClass , kAEOpenApplication , NewAEEventHandlerUPP(AEHandleOApp) ,
 397                            (long) wxTheApp , FALSE ) ;
 398     AEInstallEventHandler( kCoreEventClass , kAEPrintDocuments ,  NewAEEventHandlerUPP(AEHandlePDoc) ,
 399                            (long) wxTheApp , FALSE ) ;
 400     AEInstallEventHandler( kCoreEventClass , kAEQuitApplication , NewAEEventHandlerUPP(AEHandleQuit) ,
 401                            (long) wxTheApp , FALSE ) ;
 402 #else
 403     AEInstallEventHandler( kCoreEventClass , kAEOpenDocuments ,   NewAEEventHandlerProc(AEHandleODoc) ,
 404                    (long) wxTheApp , FALSE ) ;
 405     AEInstallEventHandler( kCoreEventClass , kAEOpenApplication , NewAEEventHandlerProc(AEHandleOApp) ,
 406                    (long) wxTheApp , FALSE ) ;
 407     AEInstallEventHandler( kCoreEventClass , kAEPrintDocuments ,  NewAEEventHandlerProc(AEHandlePDoc) ,
 408                    (long) wxTheApp , FALSE ) ;
 409     AEInstallEventHandler( kCoreEventClass , kAEQuitApplication , NewAEEventHandlerProc(AEHandleQuit) ,
 410                    (long) wxTheApp , FALSE ) ;
 411 #endif
 412
 413
 414 #ifndef __DARWIN__
 415   // test the minimal configuration necessary
 416
 417     #if !TARGET_CARBON
 418     long theSystem ;
 419     long theMachine;
 420
 421     if (Gestalt(gestaltMachineType, &theMachine) != noErr)
 422     {
 423         error = kMacSTRWrongMachine;
 424     }
 425     else if (theMachine < gestaltMacPlus)
 426     {
 427         error = kMacSTRWrongMachine;
 428     }
 429     else if (Gestalt(gestaltSystemVersion, &theSystem) != noErr )
 430     {
 431         error = kMacSTROldSystem  ;
 432     }
 433     else if ( theSystem < 0x0860 )
 434     {
 435         error = kMacSTROldSystem  ;
 436     }
 437     else if ((long)GetApplLimit() - (long)ApplicationZone() < kMacMinHeap)
 438     {
 439         error = kMacSTRSmallSize;
 440     }
 441     #endif
 442     /*
 443     else
 444     {
 445         if ( !UMAHasAppearance() )
 446         {
 447             error = kMacSTRNoPre8Yet ;
 448         }
 449     }
 450     */
 451 #endif
 452
 453     // if we encountered any problems so far, give the error code and exit immediately
 454
 455   if ( error )
 456   {
 457         wxStAppResource resload ;
 458         short itemHit;
 459         Str255 message;
 460
 461         GetIndString(message, 128, error);
 462         UMAShowArrowCursor() ;
 463         ParamText("\pFatal Error", message, (ConstStr255Param)"\p", (ConstStr255Param)"\p");
 464         itemHit = Alert(128, nil);
 465       return FALSE ;
 466   }
 467
 468 #ifndef __DARWIN__
 469   #if __option(profile)
 470     ProfilerInit( collectDetailed, bestTimeBase , 20000 , 40 ) ;
 471   #endif
 472 #endif
 473
 474   // now avoid exceptions thrown for new (bad_alloc)
 475
 476 #ifndef __DARWIN__
 477   std::__throws_bad_alloc = FALSE ;
 478 #endif
 479
 480     s_macCursorRgn = ::NewRgn() ;
 481
 482 #ifdef __WXMSW__
 483   wxBuffer = new char[1500];
 484 #else
 485   wxBuffer = new char[BUFSIZ + 512];
 486 #endif
 487
 488   wxClassInfo::InitializeClasses();
 489
 490 #if wxUSE_RESOURCES
 491 //    wxGetResource(wxT("wxWindows"), wxT("OsVersion"), &wxOsVersion);
 492 #endif
 493
 494 #if wxUSE_THREADS
 495     wxPendingEventsLocker = new wxCriticalSection;
 496 #endif
 497   wxTheColourDatabase = new wxColourDatabase(wxKEY_STRING);
 498   wxTheColourDatabase->Initialize();
 499
 500 #ifdef __WXDEBUG__
 501 #if wxUSE_LOG
 502     // flush the logged messages if any and install a 'safer' log target: the
 503     // default one (wxLogGui) can't be used after the resources are freed just
 504     // below and the user suppliedo ne might be even more unsafe (using any
 505     // wxWindows GUI function is unsafe starting from now)
 506     wxLog::DontCreateOnDemand();
 507
 508     // this will flush the old messages if any
 509     delete wxLog::SetActiveTarget(new wxLogStderr);
 510 #endif // wxUSE_LOG
 511 #endif
 512
 513   wxWinMacWindowList = new wxList(wxKEY_INTEGER);
 514   wxWinMacControlList = new wxList(wxKEY_INTEGER);
 515
 516   wxInitializeStockLists();
 517   wxInitializeStockObjects();
 518
 519 #if wxUSE_WX_RESOURCES
 520   wxInitializeResourceSystem();
 521 #endif
 522
 523   wxBitmap::InitStandardHandlers();
 524
 525   wxModule::RegisterModules();
 526   if (!wxModule::InitializeModules()) {
 527      return FALSE;
 528   }
 529
 530   wxMacCreateNotifierTable() ;
 531
 532   UMAShowArrowCursor() ;
 533
 534   return TRUE;
 535 }
 536
 537 void wxApp::CleanUp()
 538 {
 539     wxToolTip::RemoveToolTips() ;
 540 #if wxUSE_LOG
 541     // flush the logged messages if any and install a 'safer' log target: the
 542     // default one (wxLogGui) can't be used after the resources are freed just
 543     // below and the user suppliedo ne might be even more unsafe (using any
 544     // wxWindows GUI function is unsafe starting from now)
 545     wxLog::DontCreateOnDemand();
 546
 547     // this will flush the old messages if any
 548     delete wxLog::SetActiveTarget(new wxLogStderr);
 549 #endif // wxUSE_LOG
 550
 551     // One last chance for pending objects to be cleaned up
 552     wxTheApp->DeletePendingObjects();
 553
 554   wxModule::CleanUpModules();
 555
 556 #if wxUSE_WX_RESOURCES
 557   wxCleanUpResourceSystem();
 558 #endif
 559
 560   wxDeleteStockObjects() ;
 561
 562     // Destroy all GDI lists, etc.
 563     wxDeleteStockLists();
 564
 565   delete wxTheColourDatabase;
 566   wxTheColourDatabase = NULL;
 567
 568   wxBitmap::CleanUpHandlers();
 569
 570   delete[] wxBuffer;
 571   wxBuffer = NULL;
 572
 573   wxMacDestroyNotifierTable() ;
 574   if (wxWinMacWindowList)
 575     delete wxWinMacWindowList ;
 576
 577   if (wxWinMacControlList)
 578     delete wxWinMacControlList ;
 579
 580     delete wxPendingEvents;
 581 #if wxUSE_THREADS
 582     delete wxPendingEventsLocker;
 583     // If we don't do the following, we get an apparent memory leak.
 584     ((wxEvtHandler&) wxDefaultValidator).ClearEventLocker();
 585 #endif
 586
 587   wxClassInfo::CleanUpClasses();
 588
 589 #ifndef __DARWIN__
 590   #if __option(profile)
 591   ProfilerDump( "\papp.prof" ) ;
 592   ProfilerTerm() ;
 593   #endif
 594 #endif
 595
 596   delete wxTheApp;
 597   wxTheApp = NULL;
 598
 599 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
 600     // At this point we want to check if there are any memory
 601     // blocks that aren't part of the wxDebugContext itself,
 602     // as a special case. Then when dumping we need to ignore
 603     // wxDebugContext, too.
 604     if (wxDebugContext::CountObjectsLeft(TRUE) > 0)
 605     {
 606         wxLogDebug(wxT("There were memory leaks."));
 607         wxDebugContext::Dump();
 608         wxDebugContext::PrintStatistics();
 609     }
 610     //  wxDebugContext::SetStream(NULL, NULL);
 611 #endif
 612
 613 #if wxUSE_LOG
 614     // do it as the very last thing because everything else can log messages
 615     delete wxLog::SetActiveTarget(NULL);
 616 #endif // wxUSE_LOG
 617
 618     UMACleanupToolbox() ;
 619     if (s_macCursorRgn)
 620         ::DisposeRgn((RgnHandle)s_macCursorRgn);
 621
 622     #if 0
 623         TerminateAE() ;
 624     #endif
 625 }
 626
 627 //----------------------------------------------------------------------
 628 // wxEntry
 629 //----------------------------------------------------------------------
 630
 631 short gCurrentResource = -1 ;
 632
 633 wxStAppResource::wxStAppResource()
 634 {
 635     m_currentRefNum = CurResFile() ;
 636     if ( gCurrentResource != -1 )
 637     {
 638         UseResFile( gCurrentResource ) ;
 639     }
 640 }
 641
 642 wxStAppResource::~wxStAppResource()
 643 {
 644     if ( m_currentRefNum != -1 )
 645     {
 646         UseResFile( m_currentRefNum ) ;
 647     }
 648 }
 649
 650 #ifdef WXMAKINGDLL
 651
 652 // for shared libraries we have to manually get the correct resource ref num upon
 653 // initializing and releasing when terminating, therefore the __wxinitialize and __wxterminate
 654 // must be used
 655
 656 #ifdef __cplusplus
 657 extern "C" {
 658 #endif
 659
 660 void __sinit(void);     /*      (generated by linker)   */
 661 pascal OSErr __initialize(const CFragInitBlock *theInitBlock);
 662 pascal void __terminate(void);
 663
 664 #ifdef __cplusplus
 665 }
 666 #endif
 667
 668 pascal OSErr __wxinitialize(const CFragInitBlock *theInitBlock)
 669 {
 670    gCurrentResource = -1;
 671
 672    if (theInitBlock->fragLocator.where == kDataForkCFragLocator) {
 673       gCurrentResource =
 674          FSpOpenResFile(theInitBlock->fragLocator.u.onDisk.fileSpec,
 675                               fsRdPerm);
 676    }
 677    return __initialize( theInitBlock ) ;
 678 }
 679
 680 pascal void __wxterminate(void)
 681 {
 682     if (gCurrentResource != -1)
 683       CloseResFile(gCurrentResource);
 684     __terminate() ;
 685 }
 686 #endif
 687
 688 int WXDLLEXPORT wxEntryStart( int argc, char *argv[] )
 689 {
 690     return wxApp::Initialize();
 691 }
 692
 693 int WXDLLEXPORT wxEntryInitGui()
 694 {
 695     return wxTheApp->OnInitGui();
 696 }
 697
 698 void WXDLLEXPORT wxEntryCleanup()
 699 {
 700     wxApp::CleanUp();
 701 }
 702
 703 int wxEntry( int argc, char *argv[] , bool enterLoop )
 704 {
 705     gCurrentResource = CurResFile() ;
 706 #ifdef __MWERKS__
 707 #if (defined(__WXDEBUG__) && wxUSE_MEMORY_TRACING) || wxUSE_DEBUG_CONTEXT
 708     // This seems to be necessary since there are 'rogue'
 709     // objects present at this point (perhaps global objects?)
 710     // Setting a checkpoint will ignore them as far as the
 711     // memory checking facility is concerned.
 712     // Of course you may argue that memory allocated in globals should be
 713     // checked, but this is a reasonable compromise.
 714     wxDebugContext::SetCheckpoint();
 715 #endif
 716 #endif
 717     if (!wxEntryStart(argc, argv)) {
 718         return 0;
 719     }
 720    // create the application object or ensure that one already exists
 721     if (!wxTheApp)
 722     {
 723         // The app may have declared a global application object, but we recommend
 724         // the IMPLEMENT_APP macro is used instead, which sets an initializer
 725         // function for delayed, dynamic app object construction.
 726         wxCHECK_MSG( wxApp::GetInitializerFunction(), 0,
 727                      wxT("No initializer - use IMPLEMENT_APP macro.") );
 728
 729         wxTheApp = (wxApp*) (*wxApp::GetInitializerFunction()) ();
 730     }
 731
 732     wxCHECK_MSG( wxTheApp, 0, wxT("You have to define an instance of wxApp!") );
 733
 734 #ifdef __DARWIN__
 735     // Mac OS X passes a process serial number command line argument when
 736     // the application is launched from the Finder. This argument must be
 737     // removed from the command line arguments before being handled by the
 738     // application (otherwise applications would need to handle it)
 739
 740     if (argc > 1) {
 741         char buf[6] = "";
 742         strncpy(buf, argv[1], 5);
 743
 744         if (strcmp(buf, "-psn_") == 0) {
 745             // assume the argument is always the only one and remove it
 746             --argc;
 747         }
 748     }
 749 #else
 750     argc = 0 ; // currently we don't support files as parameters
 751 #endif
 752     // we could try to get the open apple events here to adjust argc and argv better
 753
 754     wxTheApp->argc = argc;
 755     wxTheApp->argv = argv;
 756
 757     // GUI-specific initialization, such as creating an app context.
 758     wxEntryInitGui();
 759
 760     // Here frames insert themselves automatically
 761     // into wxTopLevelWindows by getting created
 762     // in OnInit().
 763
 764     int retValue = 0;
 765
 766     if ( wxTheApp->OnInit() )
 767     {
 768         if ( enterLoop )
 769         {
 770             retValue = wxTheApp->OnRun();
 771         }
 772         else
 773             // We want to initialize, but not run or exit immediately.
 774             return 1;
 775     }
 776     //else: app initialization failed, so we skipped OnRun()
 777
 778     wxWindow *topWindow = wxTheApp->GetTopWindow();
 779     if ( topWindow )
 780     {
 781         // Forcibly delete the window.
 782         if ( topWindow->IsKindOf(CLASSINFO(wxFrame)) ||
 783                 topWindow->IsKindOf(CLASSINFO(wxDialog)) )
 784         {
 785             topWindow->Close(TRUE);
 786             wxTheApp->DeletePendingObjects();
 787         }
 788         else
 789         {
 790             delete topWindow;
 791             wxTheApp->SetTopWindow(NULL);
 792         }
 793     }
 794
 795     wxTheApp->OnExit();
 796
 797     wxEntryCleanup();
 798
 799     return retValue;
 800 }
 801
 802 // Static member initialization
 803 wxAppInitializerFunction wxAppBase::m_appInitFn = (wxAppInitializerFunction) NULL;
 804
 805 wxApp::wxApp()
 806 {
 807   m_topWindow = NULL;
 808   wxTheApp = this;
 809
 810 #if WXWIN_COMPATIBILITY_2_2
 811   m_wantDebugOutput = TRUE;
 812 #endif
 813
 814   argc = 0;
 815   argv = NULL;
 816
 817   m_printMode = wxPRINT_WINDOWS;
 818   m_exitOnFrameDelete = TRUE;
 819   m_auto3D = TRUE;
 820 }
 821
 822 bool wxApp::Initialized()
 823 {
 824   if (GetTopWindow())
 825     return TRUE;
 826   else
 827     return FALSE;
 828 }
 829
 830 int wxApp::MainLoop()
 831 {
 832   m_keepGoing = TRUE;
 833
 834   while (m_keepGoing)
 835   {
 836         MacDoOneEvent() ;
 837   }
 838
 839   return 0;
 840 }
 841
 842 // Returns TRUE if more time is needed.
 843 bool wxApp::ProcessIdle()
 844 {
 845     wxIdleEvent event;
 846     event.SetEventObject(this);
 847     ProcessEvent(event);
 848
 849     return event.MoreRequested();
 850 }
 851
 852 void wxApp::ExitMainLoop()
 853 {
 854   m_keepGoing = FALSE;
 855 }
 856
 857 // Is a message/event pending?
 858 bool wxApp::Pending()
 859 {
 860     EventRecord event ;
 861
 862   return EventAvail( everyEvent , &event ) ;
 863 }
 864
 865 // Dispatch a message.
 866 void wxApp::Dispatch()
 867 {
 868     MacDoOneEvent() ;
 869 }
 870
 871 void wxApp::OnIdle(wxIdleEvent& event)
 872 {
 873    static bool s_inOnIdle = FALSE;
 874
 875     // Avoid recursion (via ProcessEvent default case)
 876     if ( s_inOnIdle )
 877         return;
 878
 879
 880   s_inOnIdle = TRUE;
 881
 882   // 'Garbage' collection of windows deleted with Close().
 883   DeletePendingObjects();
 884
 885   // flush the logged messages if any
 886   wxLog *pLog = wxLog::GetActiveTarget();
 887   if ( pLog != NULL && pLog->HasPendingMessages() )
 888     pLog->Flush();
 889
 890   // Send OnIdle events to all windows
 891   bool needMore = SendIdleEvents();
 892
 893   if (needMore)
 894     event.RequestMore(TRUE);
 895
 896     // If they are pending events, we must process them: pending events are
 897     // either events to the threads other than main or events posted with
 898     // wxPostEvent() functions
 899     wxMacProcessNotifierAndPendingEvents();
 900
 901   s_inOnIdle = FALSE;
 902 }
 903
 904 void wxWakeUpIdle()
 905 {
 906     wxMacWakeUp() ;
 907 }
 908
 909 // Send idle event to all top-level windows
 910 bool wxApp::SendIdleEvents()
 911 {
 912     bool needMore = FALSE;
 913     wxNode* node = wxTopLevelWindows.First();
 914     while (node)
 915     {
 916         wxWindow* win = (wxWindow*) node->Data();
 917         if (SendIdleEvents(win))
 918             needMore = TRUE;
 919
 920         node = node->Next();
 921     }
 922     return needMore;
 923 }
 924
 925 // Send idle event to window and all subwindows
 926 bool wxApp::SendIdleEvents(wxWindow* win)
 927 {
 928     bool needMore = FALSE;
 929
 930     wxIdleEvent event;
 931     event.SetEventObject(win);
 932     win->ProcessEvent(event);
 933
 934     if (event.MoreRequested())
 935         needMore = TRUE;
 936
 937     wxNode* node = win->GetChildren().First();
 938     while (node)
 939     {
 940         wxWindow* win = (wxWindow*) node->Data();
 941         if (SendIdleEvents(win))
 942             needMore = TRUE;
 943
 944         node = node->Next();
 945     }
 946     return needMore ;
 947 }
 948
 949 void wxApp::DeletePendingObjects()
 950 {
 951   wxNode *node = wxPendingDelete.First();
 952   while (node)
 953   {
 954     wxObject *obj = (wxObject *)node->Data();
 955
 956     delete obj;
 957
 958     if (wxPendingDelete.Member(obj))
 959       delete node;
 960
 961     // Deleting one object may have deleted other pending
 962     // objects, so start from beginning of list again.
 963     node = wxPendingDelete.First();
 964   }
 965 }
 966
 967 void wxExit()
 968 {
 969     wxLogError(_("Fatal error: exiting"));
 970
 971     wxApp::CleanUp();
 972     ::ExitToShell() ;
 973 }
 974
 975 void wxApp::OnEndSession(wxCloseEvent& WXUNUSED(event))
 976 {
 977     if (GetTopWindow())
 978         GetTopWindow()->Close(TRUE);
 979 }
 980
 981 // Default behaviour: close the application with prompts. The
 982 // user can veto the close, and therefore the end session.
 983 void wxApp::OnQueryEndSession(wxCloseEvent& event)
 984 {
 985     if (GetTopWindow())
 986     {
 987         if (!GetTopWindow()->Close(!event.CanVeto()))
 988             event.Veto(TRUE);
 989     }
 990 }
 991
 992 extern "C" void wxCYield() ;
 993 void wxCYield()
 994 {
 995     wxYield() ;
 996 }
 997
 998 // Yield to other processes
 999
1000 bool wxApp::Yield(bool onlyIfNeeded)
1001 {
1002     static bool s_inYield = FALSE;
1003
1004     if (s_inYield)
1005     {
1006         if ( !onlyIfNeeded )
1007         {
1008             wxFAIL_MSG( wxT("wxYield called recursively" ) );
1009         }
1010
1011         return FALSE;
1012     }
1013
1014     s_inYield = TRUE;
1015
1016 #if wxUSE_THREADS
1017     YieldToAnyThread() ;
1018 #endif
1019     EventRecord event ;
1020
1021     long sleepTime = 1 ; //::GetCaretTime();
1022
1023     while ( !wxTheApp->IsExiting() && WaitNextEvent(everyEvent, &event,sleepTime, (RgnHandle) wxApp::s_macCursorRgn))
1024     {
1025         wxTheApp->MacHandleOneEvent( &event );
1026         if ( event.what != kHighLevelEvent )
1027             SetRectRgn( (RgnHandle) wxApp::s_macCursorRgn , event.where.h , event.where.v ,  event.where.h + 1 , event.where.v + 1 ) ;
1028     }
1029
1030     wxMacProcessNotifierAndPendingEvents() ;
1031
1032     s_inYield = FALSE;
1033
1034     return TRUE;
1035 }
1036
1037 // platform specifics
1038
1039 void wxApp::MacSuspend( bool convertClipboard )
1040 {
1041     // we have to deactive the top level windows manually
1042
1043     wxNode* node = wxTopLevelWindows.First();
1044     while (node)
1045     {
1046         wxTopLevelWindow* win = (wxTopLevelWindow*) node->Data();
1047         win->MacActivate( MacGetCurrentEvent() , false ) ;
1048
1049         node = node->Next();
1050     }
1051
1052      s_lastMouseDown = 0 ;
1053      if( convertClipboard )
1054      {
1055          MacConvertPrivateToPublicScrap() ;
1056      }
1057
1058      ::HideFloatingWindows() ;
1059 }
1060
1061 void wxApp::MacResume( bool convertClipboard )
1062 {
1063         s_lastMouseDown = 0 ;
1064         if( convertClipboard )
1065         {
1066             MacConvertPublicToPrivateScrap() ;
1067         }
1068
1069         ::ShowFloatingWindows() ;
1070 }
1071
1072 void wxApp::MacConvertPrivateToPublicScrap()
1073 {
1074 }
1075
1076 void wxApp::MacConvertPublicToPrivateScrap()
1077 {
1078 }
1079
1080 void wxApp::MacDoOneEvent()
1081 {
1082   EventRecord event ;
1083
1084     long sleepTime = 1; // GetCaretTime() / 4 ;
1085
1086     if (WaitNextEvent(everyEvent, &event, sleepTime, (RgnHandle) s_macCursorRgn))
1087     {
1088         MacHandleOneEvent( &event );
1089     }
1090     else
1091     {
1092         // idlers
1093         WindowPtr window = ::FrontWindow() ;
1094         if ( window )
1095             ::IdleControls( window ) ;
1096
1097         wxTheApp->ProcessIdle() ;
1098     }
1099     if ( event.what != kHighLevelEvent )
1100         SetRectRgn( (RgnHandle) s_macCursorRgn , event.where.h , event.where.v ,  event.where.h + 1 , event.where.v + 1 ) ;
1101
1102     // repeaters
1103
1104     DeletePendingObjects() ;
1105     wxMacProcessNotifierAndPendingEvents() ;
1106 }
1107
1108 void wxApp::MacHandleOneEvent( WXEVENTREF evr )
1109 {
1110     EventRecord* ev = (EventRecord*) evr ;
1111     m_macCurrentEvent = ev ;
1112
1113     wxApp::sm_lastMessageTime = ev->when ;
1114
1115     switch (ev->what)
1116     {
1117         case mouseDown:
1118             MacHandleMouseDownEvent( ev ) ;
1119             if ( ev->modifiers & controlKey )
1120                 s_lastMouseDown = 2;
1121             else
1122                 s_lastMouseDown = 1;
1123             break;
1124         case mouseUp:
1125             if ( s_lastMouseDown == 2 )
1126             {
1127                 ev->modifiers |= controlKey ;
1128             }
1129             else
1130             {
1131                 ev->modifiers &= ~controlKey ;
1132             }
1133             MacHandleMouseUpEvent( ev ) ;
1134             s_lastMouseDown = 0;
1135             break;
1136         case activateEvt:
1137             MacHandleActivateEvent( ev ) ;
1138             break;
1139         case updateEvt:
1140             MacHandleUpdateEvent( ev ) ;
1141             break;
1142         case keyDown:
1143         case autoKey:
1144             MacHandleKeyDownEvent( ev ) ;
1145             break;
1146         case keyUp:
1147             MacHandleKeyUpEvent( ev ) ;
1148             break;
1149         case diskEvt:
1150             MacHandleDiskEvent( ev ) ;
1151             break;
1152         case osEvt:
1153             MacHandleOSEvent( ev ) ;
1154             break;
1155         case kHighLevelEvent:
1156             MacHandleHighLevelEvent( ev ) ;
1157             break;
1158         default:
1159             break;
1160     }
1161     wxMacProcessNotifierAndPendingEvents() ;
1162 }
1163
1164 void wxApp::MacHandleHighLevelEvent( WXEVENTREF evr )
1165 {
1166     EventRecord* ev = (EventRecord*) evr ;
1167     ::AEProcessAppleEvent( ev ) ;
1168 }
1169
1170 bool s_macIsInModalLoop = false ;
1171
1172 void wxApp::MacHandleMouseDownEvent( WXEVENTREF evr )
1173 {
1174     EventRecord* ev = (EventRecord*) evr ;
1175     wxToolTip::RemoveToolTips() ;
1176
1177     WindowRef window;
1178     WindowRef frontWindow = ::FrontNonFloatingWindow() ;
1179     WindowAttributes frontWindowAttributes = NULL ;
1180     if ( frontWindow )
1181         ::GetWindowAttributes( frontWindow , &frontWindowAttributes ) ;
1182
1183     short windowPart = ::FindWindow(ev->where, &window);
1184     wxTopLevelWindowMac* win = wxFindWinFromMacWindow( window ) ;
1185     if ( wxPendingDelete.Member(win) )
1186         return ;
1187
1188     BitMap screenBits;
1189     GetQDGlobalsScreenBits( &screenBits );
1190
1191     switch (windowPart)
1192     {
1193         case inMenuBar :
1194             if ( s_macIsInModalLoop )
1195             {
1196                 SysBeep ( 30 ) ;
1197             }
1198             else
1199             {
1200                 UInt32 menuresult = MenuSelect(ev->where) ;
1201                 MacHandleMenuSelect( HiWord( menuresult ) , LoWord( menuresult ) );
1202                 s_lastMouseDown = 0;
1203             }
1204             break ;
1205 #if !TARGET_CARBON
1206         case inSysWindow :
1207             SystemClick( ev , window ) ;
1208             s_lastMouseDown = 0;
1209             break ;
1210 #endif
1211         case inDrag :
1212             if ( window != frontWindow && s_macIsInModalLoop && !(ev->modifiers & cmdKey ) )
1213             {
1214                 SysBeep ( 30 ) ;
1215             }
1216             else
1217             {
1218                 DragWindow(window, ev->where, &screenBits.bounds);
1219                 if (win)
1220                 {
1221                     GrafPtr port ;
1222                     GetPort( &port ) ;
1223                     Point pt = { 0, 0 } ;
1224                     SetPortWindowPort(window) ;
1225                     LocalToGlobal( &pt ) ;
1226                     SetPort( port ) ;
1227                         win->SetSize( pt.h , pt.v , -1 ,
1228                             -1 , wxSIZE_USE_EXISTING);
1229                 }
1230                 s_lastMouseDown = 0;
1231             }
1232             break ;
1233         case inGoAway:
1234             if (TrackGoAway(window, ev->where))
1235             {
1236                 if ( win )
1237                     win->Close() ;
1238             }
1239             s_lastMouseDown = 0;
1240             break;
1241         case inGrow:
1242           {
1243                 int growResult = GrowWindow(window , ev->where, &screenBits.bounds);
1244                 if (growResult != 0)
1245                 {
1246                     int newWidth = LoWord(growResult);
1247                     int newHeight = HiWord(growResult);
1248                     int oldWidth, oldHeight;
1249
1250
1251                     if (win)
1252                     {
1253                         win->GetSize(&oldWidth, &oldHeight);
1254                         if (newWidth == 0)
1255                             newWidth = oldWidth;
1256                         if (newHeight == 0)
1257                             newHeight = oldHeight;
1258                         win->SetSize( -1, -1, newWidth, newHeight, wxSIZE_USE_EXISTING);
1259                     }
1260                 }
1261                 s_lastMouseDown = 0;
1262           }
1263             break;
1264         case inZoomIn:
1265         case inZoomOut:
1266                 if (TrackBox(window, ev->where, windowPart))
1267                 {
1268                     // TODO setup size event
1269                     ZoomWindow( window , windowPart , false ) ;
1270                     if (win)
1271                     {
1272                         Rect tempRect ;
1273
1274                         GetWindowPortBounds(window, &tempRect ) ;
1275                         win->SetSize( -1, -1, tempRect.right-tempRect.left ,
1276                             tempRect.bottom-tempRect.top, wxSIZE_USE_EXISTING);
1277                     }
1278                 }
1279             s_lastMouseDown = 0;
1280             break;
1281         case inCollapseBox :
1282                 // TODO setup size event
1283             s_lastMouseDown = 0;
1284             break ;
1285
1286         case inContent :
1287                 {
1288                     GrafPtr port ;
1289                     GetPort( &port ) ;
1290                     SetPortWindowPort(window) ;
1291                     SetPort( port ) ;
1292                 }
1293                 if ( window != frontWindow && wxTheApp->s_captureWindow == NULL )
1294                 {
1295                     if ( s_macIsInModalLoop )
1296                     {
1297                         SysBeep ( 30 ) ;
1298                     }
1299                     else if ( UMAIsWindowFloating( window ) )
1300                     {
1301                         if ( win )
1302                             win->MacMouseDown( ev , windowPart ) ;
1303                     }
1304                     else
1305                     {
1306                         if ( win )
1307                             win->MacMouseDown( ev , windowPart ) ;
1308                         ::SelectWindow( window ) ;
1309                     }
1310                 }
1311                 else
1312                 {
1313                     if ( win )
1314                         win->MacMouseDown( ev , windowPart ) ;
1315                 }
1316             break ;
1317
1318         default:
1319             break;
1320     }
1321 }
1322
1323 void wxApp::MacHandleMouseUpEvent( WXEVENTREF evr )
1324 {
1325     EventRecord* ev = (EventRecord*) evr ;
1326     WindowRef window;
1327
1328     short windowPart = inNoWindow ;
1329         if ( wxTheApp->s_captureWindow )
1330         {
1331                 window = (WindowRef) s_captureWindow->MacGetRootWindow() ;
1332                 windowPart = inContent ;
1333         }
1334         else
1335         {
1336                 windowPart = ::FindWindow(ev->where, &window) ;
1337         }
1338
1339     switch (windowPart)
1340     {
1341         case inMenuBar :
1342             break ;
1343         case inSysWindow :
1344             break ;
1345         default:
1346             {
1347                 wxTopLevelWindowMac* win = wxFindWinFromMacWindow( window ) ;
1348                 if ( win )
1349                     win->MacMouseUp( ev , windowPart ) ;
1350             }
1351             break;
1352     }
1353 }
1354
1355 long wxMacTranslateKey(unsigned char key, unsigned char code) ;
1356 long wxMacTranslateKey(unsigned char key, unsigned char code)
1357 {
1358     long retval = key ;
1359     switch (key)
1360     {
1361         case 0x01 :
1362                  retval = WXK_HOME;
1363           break;
1364         case 0x03 :
1365                  retval = WXK_RETURN;
1366           break;
1367         case 0x04 :
1368                  retval = WXK_END;
1369           break;
1370         case 0x05 :
1371                  retval = WXK_HELP;
1372           break;
1373         case 0x08 :
1374                  retval = WXK_BACK;
1375           break;
1376         case 0x09 :
1377                  retval = WXK_TAB;
1378           break;
1379         case 0x0b :
1380                  retval = WXK_PAGEUP;
1381           break;
1382         case 0x0c :
1383                  retval = WXK_PAGEDOWN;
1384           break;
1385         case 0x0d :
1386                  retval = WXK_RETURN;
1387           break;
1388             case 0x10 :
1389             {
1390                 switch( code )
1391                 {
1392                     case 0x7a :
1393                         retval = WXK_F1 ;
1394                         break;
1395                     case 0x78 :
1396                         retval = WXK_F2 ;
1397                         break;
1398                     case 0x63 :
1399                         retval = WXK_F3 ;
1400                         break;
1401                     case 0x76 :
1402                         retval = WXK_F4 ;
1403                         break;
1404                     case 0x60 :
1405                         retval = WXK_F5 ;
1406                         break;
1407                     case 0x61 :
1408                         retval = WXK_F6 ;
1409                         break;
1410                     case 0x62:
1411                         retval = WXK_F7 ;
1412                         break;
1413                     case 0x64 :
1414                         retval = WXK_F8 ;
1415                         break;
1416                     case 0x65 :
1417                         retval = WXK_F9 ;
1418                         break;
1419                     case 0x6D :
1420                         retval = WXK_F10 ;
1421                         break;
1422                     case 0x67 :
1423                         retval = WXK_F11 ;
1424                         break;
1425                     case 0x6F :
1426                         retval = WXK_F12 ;
1427                         break;
1428                     case 0x69 :
1429                         retval = WXK_F13 ;
1430                         break;
1431                     case 0x6B :
1432                         retval = WXK_F14 ;
1433                         break;
1434                     case 0x71 :
1435                         retval = WXK_F15 ;
1436                         break;
1437                 }
1438             }
1439             break ;
1440             case 0x1b :
1441                 retval = WXK_ESCAPE ;
1442             break ;
1443             case 0x1c :
1444                 retval = WXK_LEFT ;
1445             break ;
1446             case 0x1d :
1447                 retval = WXK_RIGHT ;
1448             break ;
1449             case 0x1e :
1450                 retval = WXK_UP ;
1451             break ;
1452             case 0x1f :
1453                 retval = WXK_DOWN ;
1454             break ;
1455             case 0x7F :
1456                 retval = WXK_DELETE ;
1457              default:
1458             break ;
1459      } // end switch
1460
1461     return retval;
1462 }
1463
1464 void wxApp::MacHandleKeyDownEvent( WXEVENTREF evr )
1465 {
1466     EventRecord* ev = (EventRecord*) evr ;
1467     wxToolTip::RemoveToolTips() ;
1468
1469     UInt32 menuresult = UMAMenuEvent(ev) ;
1470     if ( HiWord( menuresult ) )
1471     {
1472         if ( !s_macIsInModalLoop )
1473         MacHandleMenuSelect( HiWord( menuresult ) , LoWord( menuresult ) ) ;
1474     }
1475     else
1476     {
1477         short keycode ;
1478         short keychar ;
1479         keychar = short(ev->message & charCodeMask);
1480         keycode = short(ev->message & keyCodeMask) >> 8 ;
1481         long keyval = wxMacTranslateKey(keychar, keycode) ;
1482         bool handled = false ;
1483         wxWindow* focus = wxWindow::FindFocus() ;
1484         if ( focus )
1485         {
1486
1487             wxKeyEvent event(wxEVT_KEY_DOWN);
1488             event.m_shiftDown = ev->modifiers & shiftKey;
1489             event.m_controlDown = ev->modifiers & controlKey;
1490             event.m_altDown = ev->modifiers & optionKey;
1491             event.m_metaDown = ev->modifiers & cmdKey;
1492             event.m_keyCode = keyval;
1493             event.m_x = ev->where.h;
1494             event.m_y = ev->where.v;
1495             event.m_timeStamp = ev->when;
1496             event.SetEventObject(focus);
1497             handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1498             if ( !handled )
1499             {
1500 #if wxUSE_ACCEL
1501                 if (!handled)
1502                 {
1503                     /*
1504                     wxWindow *ancestor = focus;
1505                     while (ancestor)
1506                     {
1507                         int command = ancestor->GetAcceleratorTable()->GetCommand( event );
1508                         if (command != -1)
1509                         {
1510                             wxCommandEvent command_event( wxEVT_COMMAND_MENU_SELECTED, command );
1511                             handled = ancestor->GetEventHandler()->ProcessEvent( command_event );
1512                             break;
1513                         }
1514                         if (ancestor->m_isFrame)
1515                             break;
1516                         ancestor = ancestor->GetParent();
1517                     }
1518                     */
1519                 }
1520 #endif // wxUSE_ACCEL
1521             }
1522             if (!handled)
1523             {
1524                 wxKeyEvent event(wxEVT_CHAR);
1525                 event.m_shiftDown = ev->modifiers & shiftKey;
1526                 event.m_controlDown = ev->modifiers & controlKey;
1527                 event.m_altDown = ev->modifiers & optionKey;
1528                 event.m_metaDown = ev->modifiers & cmdKey;
1529                 event.m_keyCode = keyval;
1530                 event.m_x = ev->where.h;
1531                 event.m_y = ev->where.v;
1532                 event.m_timeStamp = ev->when;
1533                 event.SetEventObject(focus);
1534                 handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1535             }
1536             if ( !handled &&
1537                  (keyval == WXK_TAB) &&
1538                  (!focus->HasFlag(wxTE_PROCESS_TAB)) &&
1539                  (focus->GetParent()) &&
1540                  (focus->GetParent()->HasFlag( wxTAB_TRAVERSAL)) )
1541             {
1542                 wxNavigationKeyEvent new_event;
1543                 new_event.SetEventObject( focus );
1544                 new_event.SetDirection( !event.ShiftDown() );
1545                 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
1546                 new_event.SetWindowChange( event.ControlDown() );
1547                 new_event.SetCurrentFocus( focus );
1548                 handled = focus->GetEventHandler()->ProcessEvent( new_event );
1549             }
1550         }
1551         if ( !handled )
1552         {
1553             // if window is not having a focus still testing for default enter or cancel
1554             // TODO add the UMA version for ActiveNonFloatingWindow
1555           focus = wxFindWinFromMacWindow( FrontWindow() ) ;
1556           if ( focus )
1557           {
1558             if ( keyval == WXK_RETURN )
1559             {
1560                  wxButton *def = wxDynamicCast(focus->GetDefaultItem(),
1561                                                        wxButton);
1562                  if ( def && def->IsEnabled() )
1563                  {
1564                      wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
1565                      event.SetEventObject(def);
1566                      def->Command(event);
1567                      return ;
1568                 }
1569             }
1570             /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
1571             else if (keyval == WXK_ESCAPE || (keyval == '.' && ev->modifiers & cmdKey ) )
1572             {
1573                   wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
1574                   new_event.SetEventObject( focus );
1575                   handled = focus->GetEventHandler()->ProcessEvent( new_event );
1576             }
1577           }
1578         }
1579     }
1580 }
1581
1582 void wxApp::MacHandleKeyUpEvent( WXEVENTREF evr )
1583 {
1584     EventRecord* ev = (EventRecord*) evr ;
1585     wxToolTip::RemoveToolTips() ;
1586
1587     UInt32 menuresult = UMAMenuEvent(ev) ;
1588     if ( HiWord( menuresult ) )
1589     {
1590     }
1591     else
1592     {
1593         short keycode ;
1594         short keychar ;
1595         keychar = short(ev->message & charCodeMask);
1596         keycode = short(ev->message & keyCodeMask) >> 8 ;
1597
1598         wxWindow* focus = wxWindow::FindFocus() ;
1599         if ( focus )
1600         {
1601             long keyval = wxMacTranslateKey(keychar, keycode) ;
1602
1603             wxKeyEvent event(wxEVT_KEY_UP);
1604             event.m_shiftDown = ev->modifiers & shiftKey;
1605             event.m_controlDown = ev->modifiers & controlKey;
1606             event.m_altDown = ev->modifiers & optionKey;
1607             event.m_metaDown = ev->modifiers & cmdKey;
1608             event.m_keyCode = keyval;
1609             event.m_x = ev->where.h;
1610             event.m_y = ev->where.v;
1611             event.m_timeStamp = ev->when;
1612             event.SetEventObject(focus);
1613             bool handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1614         }
1615     }
1616 }
1617
1618 void wxApp::MacHandleActivateEvent( WXEVENTREF evr )
1619 {
1620     EventRecord* ev = (EventRecord*) evr ;
1621     WindowRef window = (WindowRef) ev->message ;
1622     if ( window )
1623     {
1624         bool activate = (ev->modifiers & activeFlag ) ;
1625         WindowClass wclass ;
1626         ::GetWindowClass ( window , &wclass ) ;
1627         if ( wclass == kFloatingWindowClass )
1628         {
1629             // if it is a floater we activate/deactivate the front non-floating window instead
1630             window = ::FrontNonFloatingWindow() ;
1631         }
1632         wxTopLevelWindowMac* win = wxFindWinFromMacWindow( window ) ;
1633         if ( win )
1634             win->MacActivate( ev , activate ) ;
1635     }
1636 }
1637
1638 void wxApp::MacHandleUpdateEvent( WXEVENTREF evr )
1639 {
1640     EventRecord* ev = (EventRecord*) evr ;
1641     WindowRef window = (WindowRef) ev->message ;
1642     wxTopLevelWindowMac * win = wxFindWinFromMacWindow( window ) ;
1643     if ( win )
1644     {
1645         if ( !wxPendingDelete.Member(win) )
1646             win->MacUpdate( ev->when ) ;
1647     }
1648     else
1649     {
1650         // since there is no way of telling this foreign window to update itself
1651         // we have to invalidate the update region otherwise we keep getting the same
1652         // event over and over again
1653         BeginUpdate( window ) ;
1654         EndUpdate( window ) ;
1655     }
1656 }
1657
1658 void wxApp::MacHandleDiskEvent( WXEVENTREF evr )
1659 {
1660     EventRecord* ev = (EventRecord*) evr ;
1661     if ( HiWord( ev->message ) != noErr )
1662   {
1663  #if !TARGET_CARBON
1664         OSErr err ;
1665         Point point ;
1666          SetPt( &point , 100 , 100 ) ;
1667
1668           err = DIBadMount( point , ev->message ) ;
1669         wxASSERT( err == noErr ) ;
1670 #endif
1671     }
1672 }
1673
1674 void wxApp::MacHandleOSEvent( WXEVENTREF evr )
1675 {
1676     EventRecord* ev = (EventRecord*) evr ;
1677     switch( ( ev->message & osEvtMessageMask ) >> 24 )
1678     {
1679         case suspendResumeMessage :
1680             {
1681                 bool isResuming = ev->message & resumeFlag ;
1682 #if !TARGET_CARBON
1683                 bool convertClipboard = ev->message & convertClipboardFlag ;
1684 #else
1685                 bool convertClipboard = false;
1686 #endif
1687                 bool doesActivate = UMAGetProcessModeDoesActivateOnFGSwitch() ;
1688                 if ( isResuming )
1689                 {
1690                     WindowRef oldFrontWindow = NULL ;
1691                     WindowRef newFrontWindow = NULL ;
1692
1693                     // in case we don't take care of activating ourselves, we have to synchronize
1694                     // our idea of the active window with the process manager's - which it already activated
1695
1696                     if ( !doesActivate )
1697                         oldFrontWindow = ::FrontNonFloatingWindow() ;
1698
1699                     MacResume( convertClipboard ) ;
1700
1701                     newFrontWindow = ::FrontNonFloatingWindow() ;
1702
1703                     if ( oldFrontWindow )
1704                     {
1705                         wxTopLevelWindowMac* win = wxFindWinFromMacWindow( oldFrontWindow ) ;
1706                         if ( win )
1707                             win->MacActivate( ev , false ) ;
1708                     }
1709                     if ( newFrontWindow )
1710                     {
1711                         wxTopLevelWindowMac* win = wxFindWinFromMacWindow( newFrontWindow ) ;
1712                         if ( win )
1713                             win->MacActivate( ev , true ) ;
1714                     }
1715                 }
1716                 else
1717                 {
1718                     MacSuspend( convertClipboard ) ;
1719
1720                     // in case this suspending did close an active window, another one might
1721                     // have surfaced -> lets deactivate that one
1722
1723 /* TODO : find out what to do on systems < 10 , perhaps FrontNonFloatingWindow
1724                     WindowRef newActiveWindow = ::ActiveNonFloatingWindow() ;
1725                     if ( newActiveWindow )
1726                     {
1727                         wxWindow* win = wxFindWinFromMacWindow( newActiveWindow ) ;
1728                         if ( win )
1729                             win->MacActivate( ev , false ) ;
1730                     }
1731 */
1732                 }
1733             }
1734             break ;
1735         case mouseMovedMessage :
1736             {
1737                 WindowRef window;
1738
1739                 wxWindow* currentMouseWindow = NULL ;
1740
1741                 wxWindow::MacGetWindowFromPoint( wxPoint( ev->where.h , ev->where.v ) ,
1742                                                  &currentMouseWindow ) ;
1743                 if ( currentMouseWindow != wxWindow::s_lastMouseWindow )
1744                 {
1745                     wxMouseEvent event ;
1746
1747                     bool isDown = !(ev->modifiers & btnState) ; // 1 is for up
1748                     bool controlDown = ev->modifiers & controlKey ; // for simulating right mouse
1749
1750                     event.m_leftDown = isDown && !controlDown;
1751                     event.m_middleDown = FALSE;
1752                     event.m_rightDown = isDown && controlDown;
1753                     event.m_shiftDown = ev->modifiers & shiftKey;
1754                     event.m_controlDown = ev->modifiers & controlKey;
1755                     event.m_altDown = ev->modifiers & optionKey;
1756                     event.m_metaDown = ev->modifiers & cmdKey;
1757                     event.m_x = ev->where.h;
1758                     event.m_y = ev->where.v;
1759                     event.m_timeStamp = ev->when;
1760                     event.SetEventObject(this);
1761
1762                     if ( wxWindow::s_lastMouseWindow )
1763                     {
1764                         wxMouseEvent eventleave(event);
1765                         eventleave.SetEventType( wxEVT_LEAVE_WINDOW );
1766                         wxWindow::s_lastMouseWindow->ScreenToClient( &eventleave.m_x, &eventleave.m_y );
1767
1768                         wxWindow::s_lastMouseWindow->GetEventHandler()->ProcessEvent(eventleave);
1769                     }
1770                     if ( currentMouseWindow )
1771                     {
1772                         wxMouseEvent evententer(event);
1773                         evententer.SetEventType( wxEVT_ENTER_WINDOW );
1774                         currentMouseWindow->ScreenToClient( &evententer.m_x, &evententer.m_y );
1775
1776                         currentMouseWindow->GetEventHandler()->ProcessEvent(evententer);
1777                     }
1778                     wxWindow::s_lastMouseWindow = currentMouseWindow ;
1779                 }
1780
1781                 short windowPart = ::FindWindow(ev->where, &window);
1782
1783                 switch (windowPart)
1784                 {
1785                     // fixes for setting the cursor back from dominic mazzoni
1786                     case inMenuBar :
1787                         UMAShowArrowCursor();
1788                         break ;
1789                     case inSysWindow :
1790                         UMAShowArrowCursor();
1791                         break ;
1792                     default:
1793                         {
1794                             // if ( s_lastMouseDown == 0 )
1795                             //     ev->modifiers |= btnState ;
1796
1797                             // Calling GetNextEvent with a zero event mask will always
1798                             // pass back a null event. However, it fills the EventRecord
1799                             // with the state of the modifier keys. This is needed since
1800                             // the modifier state returned by WaitForNextEvent often is
1801                             // wrong mouse move events. The attempt above to correct this
1802                             // didn't always work (under OS X at least).
1803
1804                             EventRecord tmp;
1805                             ::GetNextEvent(0, &tmp);
1806                             ev->modifiers = tmp.modifiers;
1807
1808                             wxTopLevelWindowMac* win = wxFindWinFromMacWindow( window ) ;
1809                             if ( win )
1810                                 win->MacMouseMoved( ev , windowPart ) ;
1811                             else
1812                                 UMAShowArrowCursor();
1813
1814                         }
1815                         break;
1816                 }
1817             }
1818             break ;
1819
1820     }
1821 }
1822
1823 void wxApp::MacHandleMenuSelect( int macMenuId , int macMenuItemNum )
1824 {
1825     if (macMenuId == 0)
1826          return; // no menu item selected
1827
1828     if (macMenuId == kwxMacAppleMenuId && macMenuItemNum > 1)
1829     {
1830         #if ! TARGET_CARBON
1831         Str255        deskAccessoryName ;
1832         GrafPtr        savedPort ;
1833
1834         GetMenuItemText(GetMenuHandle(kwxMacAppleMenuId), macMenuItemNum, deskAccessoryName);
1835         GetPort(&savedPort);
1836         OpenDeskAcc(deskAccessoryName);
1837         SetPort(savedPort);
1838         #endif
1839     }
1840     else
1841     {
1842         wxWindow* frontwindow = wxFindWinFromMacWindow( ::FrontWindow() )  ;
1843         if ( frontwindow && wxMenuBar::MacGetInstalledMenuBar() )
1844             wxMenuBar::MacGetInstalledMenuBar()->MacMenuSelect( frontwindow->GetEventHandler() , 0 , macMenuId , macMenuItemNum ) ;
1845     }
1846     HiliteMenu(0);
1847 }
1848
1849 /*
1850 long wxApp::MacTranslateKey(char key, int mods)
1851 {
1852 }
1853
1854 void wxApp::MacAdjustCursor()
1855 {
1856 }
1857
1858 */
1859 /*
1860 void
1861 wxApp::macAdjustCursor()
1862 {
1863   if (ev->what != kHighLevelEvent)
1864   {
1865     wxWindow* theMacWxFrame = wxFrame::MacFindFrameOrDialog(::FrontWindow());
1866     if (theMacWxFrame)
1867     {
1868         if (!theMacWxFrame->MacAdjustCursor(ev->where))
1869         ::SetCursor(&(qd.arrow));
1870       }
1871   }
1872 }
1873 */