src/mac/carbon/app.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        app.cpp
   3 // Purpose:     wxApp
   4 // Author:      Stefan Csomor
   5 // Modified by:
   6 // Created:     1998-01-01
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Stefan Csomor
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
  13 #pragma implementation "app.h"
  14 #endif
  15
  16 #include "wx/wxprec.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 #include "wx/docview.h"
  40 #include "wx/filename.h"
  41
  42 #include <string.h>
  43
  44 // mac
  45
  46 #ifndef __DARWIN__
  47   #if __option(profile)
  48     #include <profiler.h>
  49   #endif
  50 #endif
  51
  52 // #include "apprsrc.h"
  53
  54 #include "wx/mac/uma.h"
  55 #include "wx/mac/macnotfy.h"
  56
  57 #ifdef __DARWIN__
  58 #  include <CoreServices/CoreServices.h>
  59 #  if defined(WXMAKINGDLL_CORE)
  60 #    include <mach-o/dyld.h>
  61 #  endif
  62 #else
  63 #  include <Sound.h>
  64 #  include <Threads.h>
  65 #  include <ToolUtils.h>
  66 #  include <DiskInit.h>
  67 #  include <Devices.h>
  68 #endif
  69
  70 extern wxList wxPendingDelete;
  71
  72 // set wxMAC_USE_RAEL to 1 if RunApplicationEventLoop should be used
  73 // if 0 the lower level CarbonEventLoop will be used
  74 // on the long run RAEL should replace the low level event loop
  75 // we will have to clean up event handling to make sure we don't
  76 // miss handling of things like pending events etc
  77 // perhaps we will also have to pipe events through an ueber-event-handler
  78 // to make sure we have one place to do all these house-keeping functions
  79
  80 #define wxMAC_USE_RAEL 0
  81
  82 #if wxUSE_THREADS
  83 extern size_t g_numberOfThreads;
  84 #endif // wxUSE_THREADS
  85
  86 // statics for implementation
  87
  88 static bool s_inYield = FALSE;
  89
  90 static bool s_inReceiveEvent = FALSE ;
  91 static EventTime sleepTime = kEventDurationNoWait ;
  92
  93 IMPLEMENT_DYNAMIC_CLASS(wxApp, wxEvtHandler)
  94 BEGIN_EVENT_TABLE(wxApp, wxEvtHandler)
  95     EVT_IDLE(wxApp::OnIdle)
  96     EVT_END_SESSION(wxApp::OnEndSession)
  97     EVT_QUERY_END_SESSION(wxApp::OnQueryEndSession)
  98 END_EVENT_TABLE()
  99
 100
 101 const short    kMacMinHeap = (29 * 1024) ;
 102 // platform specific static variables
 103
 104 const short kwxMacMenuBarResource = 1 ;
 105 const short kwxMacAppleMenuId = 1 ;
 106
 107 WXHRGN    wxApp::s_macCursorRgn = NULL;
 108 wxWindow* wxApp::s_captureWindow = NULL ;
 109 int       wxApp::s_lastMouseDown = 0 ;
 110 long      wxApp::sm_lastMessageTime = 0;
 111 long      wxApp::s_lastModifiers = 0 ;
 112
 113
 114 bool      wxApp::s_macSupportPCMenuShortcuts = true ;
 115 long      wxApp::s_macAboutMenuItemId = wxID_ABOUT ;
 116 long      wxApp::s_macPreferencesMenuItemId = wxID_PREFERENCES ;
 117 long      wxApp::s_macExitMenuItemId = wxID_EXIT ;
 118 wxString  wxApp::s_macHelpMenuTitleName = wxT("&Help") ;
 119
 120 // Normally we're not a plugin
 121 bool      wxApp::sm_isEmbedded = false;
 122 //----------------------------------------------------------------------
 123 // Core Apple Event Support
 124 //----------------------------------------------------------------------
 125
 126 pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 127 pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 128 pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 129 pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 130 pascal OSErr AEHandleRApp( const AppleEvent *event , AppleEvent *reply , long refcon ) ;
 131
 132 pascal OSErr AEHandleODoc( const AppleEvent *event , AppleEvent *reply , long WXUNUSED(refcon) )
 133 {
 134     return wxTheApp->MacHandleAEODoc( (AppleEvent*) event , reply) ;
 135 }
 136
 137 pascal OSErr AEHandleOApp( const AppleEvent *event , AppleEvent *reply , long WXUNUSED(refcon) )
 138 {
 139     return wxTheApp->MacHandleAEOApp( (AppleEvent*) event , reply ) ;
 140 }
 141
 142 pascal OSErr AEHandlePDoc( const AppleEvent *event , AppleEvent *reply , long WXUNUSED(refcon) )
 143 {
 144     return wxTheApp->MacHandleAEPDoc( (AppleEvent*) event , reply ) ;
 145 }
 146
 147 pascal OSErr AEHandleQuit( const AppleEvent *event , AppleEvent *reply , long WXUNUSED(refcon) )
 148 {
 149     return wxTheApp->MacHandleAEQuit( (AppleEvent*) event , reply) ;
 150 }
 151
 152 pascal OSErr AEHandleRApp( const AppleEvent *event , AppleEvent *reply , long WXUNUSED(refcon) )
 153 {
 154     return wxTheApp->MacHandleAERApp( (AppleEvent*) event , reply) ;
 155 }
 156
 157 // AEODoc Calls MacOpenFile on each of the files passed
 158
 159 short wxApp::MacHandleAEODoc(const WXEVENTREF event, WXEVENTREF WXUNUSED(reply))
 160 {
 161     AEDescList docList;
 162     AEKeyword keywd;
 163     DescType returnedType;
 164     Size actualSize;
 165     long itemsInList;
 166     OSErr err;
 167     short i;
 168     err = AEGetParamDesc((AppleEvent *)event, keyDirectObject, typeAEList,&docList);
 169     if (err != noErr)
 170         return err;
 171
 172     err = AECountItems(&docList, &itemsInList);
 173     if (err != noErr)
 174         return err;
 175
 176     ProcessSerialNumber PSN ;
 177     PSN.highLongOfPSN = 0 ;
 178     PSN.lowLongOfPSN = kCurrentProcess ;
 179     SetFrontProcess( &PSN ) ;
 180
 181     for (i = 1; i <= itemsInList; i++)
 182     {
 183         wxString fName ;
 184
 185         FSRef theRef ;
 186         AEGetNthPtr(&docList, i, typeFSRef, &keywd, &returnedType,
 187         (Ptr) & theRef, sizeof(theRef), &actualSize);
 188         fName = wxMacFSRefToPath( &theRef ) ;
 189
 190         MacOpenFile(fName);
 191     }
 192     return noErr;
 193 }
 194
 195 // AEPDoc Calls MacPrintFile on each of the files passed
 196
 197 short wxApp::MacHandleAEPDoc(const WXEVENTREF event , WXEVENTREF WXUNUSED(reply))
 198 {
 199     AEDescList docList;
 200     AEKeyword keywd;
 201     DescType returnedType;
 202     Size actualSize;
 203     long itemsInList;
 204     OSErr err;
 205     short i;
 206     err = AEGetParamDesc((AppleEvent *)event, keyDirectObject, typeAEList,&docList);
 207     if (err != noErr)
 208         return err;
 209
 210     err = AECountItems(&docList, &itemsInList);
 211     if (err != noErr)
 212         return err;
 213
 214     ProcessSerialNumber PSN ;
 215     PSN.highLongOfPSN = 0 ;
 216     PSN.lowLongOfPSN = kCurrentProcess ;
 217     SetFrontProcess( &PSN ) ;
 218
 219     for (i = 1; i <= itemsInList; i++) {
 220         wxString fName ;
 221
 222         FSRef theRef ;
 223         AEGetNthPtr(&docList, i, typeFSRef, &keywd, &returnedType,
 224         (Ptr) & theRef, sizeof(theRef), &actualSize);
 225         fName = wxMacFSRefToPath( &theRef ) ;
 226
 227         MacPrintFile(fName);
 228     }
 229     return noErr;
 230 }
 231
 232 // AEOApp calls MacNewFile
 233
 234 short wxApp::MacHandleAEOApp(const WXEVENTREF WXUNUSED(event) , WXEVENTREF WXUNUSED(reply))
 235 {
 236     MacNewFile() ;
 237     return noErr ;
 238 }
 239
 240 // AEQuit attempts to quit the application
 241
 242 short wxApp::MacHandleAEQuit(const WXEVENTREF WXUNUSED(event) , WXEVENTREF WXUNUSED(reply))
 243 {
 244     wxWindow* win = GetTopWindow() ;
 245     if ( win )
 246     {
 247         wxCommandEvent exitEvent(wxEVT_COMMAND_MENU_SELECTED, s_macExitMenuItemId);
 248         if (!win->ProcessEvent(exitEvent))
 249             win->Close(TRUE ) ;
 250     }
 251     else
 252     {
 253         ExitMainLoop() ;
 254     }
 255     return noErr ;
 256 }
 257
 258 // AEROApp calls MacReopenApp
 259
 260 short wxApp::MacHandleAERApp(const WXEVENTREF WXUNUSED(event) , WXEVENTREF WXUNUSED(reply))
 261 {
 262     MacReopenApp() ;
 263     return noErr ;
 264 }
 265
 266
 267
 268 //----------------------------------------------------------------------
 269 // Support Routines linking the Mac...File Calls to the Document Manager
 270 //----------------------------------------------------------------------
 271
 272 void wxApp::MacOpenFile(const wxString & fileName )
 273 {
 274 #if wxUSE_DOC_VIEW_ARCHITECTURE
 275     wxDocManager* dm = wxDocManager::GetDocumentManager() ;
 276     if ( dm )
 277         dm->CreateDocument(fileName , wxDOC_SILENT ) ;
 278 #endif
 279 }
 280
 281
 282 void wxApp::MacPrintFile(const wxString & fileName )
 283 {
 284 #if wxUSE_DOC_VIEW_ARCHITECTURE
 285
 286 #if wxUSE_PRINTING_ARCHITECTURE
 287     wxDocManager* dm = wxDocManager::GetDocumentManager() ;
 288     if ( dm )
 289     {
 290         wxDocument *doc = dm->CreateDocument(fileName , wxDOC_SILENT ) ;
 291         if ( doc )
 292         {
 293             wxView* view = doc->GetFirstView() ;
 294             if( view )
 295             {
 296                 wxPrintout *printout = view->OnCreatePrintout();
 297                 if (printout)
 298                 {
 299                     wxPrinter printer;
 300                     printer.Print(view->GetFrame(), printout, TRUE);
 301                     delete printout;
 302                 }
 303             }
 304             if (doc->Close())
 305             {
 306                 doc->DeleteAllViews();
 307                 dm->RemoveDocument(doc) ;
 308             }
 309         }
 310     }
 311 #endif //print
 312
 313 #endif //docview
 314 }
 315
 316
 317
 318 void wxApp::MacNewFile()
 319 {
 320 }
 321
 322 void wxApp::MacReopenApp()
 323 {
 324     // HIG says :
 325     // if there is no open window -> create a new one
 326     // if all windows are hidden -> show the first
 327     // if some windows are not hidden -> do nothing
 328
 329     wxWindowList::compatibility_iterator node = wxTopLevelWindows.GetFirst();
 330     if ( node == NULL )
 331     {
 332         MacNewFile() ;
 333     }
 334     else
 335     {
 336         wxTopLevelWindow* firstIconized = NULL ;
 337         while (node)
 338         {
 339             wxTopLevelWindow* win = (wxTopLevelWindow*) node->GetData();
 340             if ( win->IsIconized() == false )
 341             {
 342                 firstIconized = NULL ;
 343                 break ;
 344             }
 345             else
 346             {
 347                 if ( firstIconized == NULL )
 348                     firstIconized = win ;
 349             }
 350             node = node->GetNext();
 351         }
 352         if ( firstIconized )
 353             firstIconized->Iconize( false ) ;
 354     }
 355 }
 356
 357 //----------------------------------------------------------------------
 358 // Carbon Event Handler
 359 //----------------------------------------------------------------------
 360
 361 static const EventTypeSpec eventList[] =
 362 {
 363     { kEventClassCommand, kEventProcessCommand } ,
 364     { kEventClassCommand, kEventCommandUpdateStatus } ,
 365
 366     { kEventClassMenu, kEventMenuOpening },
 367     { kEventClassMenu, kEventMenuClosed },
 368     { kEventClassMenu, kEventMenuTargetItem },
 369
 370     { kEventClassApplication , kEventAppActivated } ,
 371     { kEventClassApplication , kEventAppDeactivated } ,
 372     // handling the quit event is not recommended by apple
 373     // rather using the quit apple event - which we do
 374
 375     { kEventClassAppleEvent , kEventAppleEvent } ,
 376
 377     { kEventClassMouse , kEventMouseDown } ,
 378     { kEventClassMouse , kEventMouseMoved } ,
 379     { kEventClassMouse , kEventMouseUp } ,
 380     { kEventClassMouse , kEventMouseDragged } ,
 381     { 'WXMC' , 'WXMC' }
 382 } ;
 383
 384 static pascal OSStatus
 385 wxMacAppMenuEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
 386 {
 387     wxMacCarbonEvent cEvent( event ) ;
 388     MenuRef menuRef = cEvent.GetParameter<MenuRef>(kEventParamDirectObject) ;
 389     wxMenu* menu = wxFindMenuFromMacMenu( menuRef ) ;
 390
 391     if ( menu )
 392     {
 393         wxEventType type=0;
 394         MenuCommand cmd=0;
 395         switch (GetEventKind(event))
 396         {
 397             case kEventMenuOpening:
 398                 type = wxEVT_MENU_OPEN;
 399                 break;
 400             case kEventMenuClosed:
 401                 type = wxEVT_MENU_CLOSE;
 402                 break;
 403             case kEventMenuTargetItem:
 404                 cmd = cEvent.GetParameter<MenuCommand>(kEventParamMenuCommand,typeMenuCommand) ;
 405                 if (cmd != 0)
 406                     type = wxEVT_MENU_HIGHLIGHT;
 407                 break;
 408             default:
 409                 wxFAIL_MSG(wxT("Unexpected menu event kind"));
 410                 break;
 411         }
 412
 413         if ( type )
 414         {
 415             wxMenuEvent wxevent(type, cmd, menu);
 416             wxevent.SetEventObject(menu);
 417
 418             wxEvtHandler* handler = menu->GetEventHandler();
 419             if (handler && handler->ProcessEvent(wxevent))
 420             {
 421                 // handled
 422             }
 423             else
 424             {
 425                 wxWindow *win = menu->GetInvokingWindow();
 426                 if (win)
 427                     win->GetEventHandler()->ProcessEvent(wxevent);
 428                 }
 429             }
 430     }
 431
 432     return eventNotHandledErr;
 433 }
 434
 435 static pascal OSStatus wxMacAppCommandEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
 436 {
 437     OSStatus result = eventNotHandledErr ;
 438
 439     HICommand command ;
 440
 441     wxMacCarbonEvent cEvent( event ) ;
 442     cEvent.GetParameter<HICommand>(kEventParamDirectObject,typeHICommand,&command) ;
 443
 444     wxMenuItem* item = NULL ;
 445     MenuCommand id = command.commandID ;
 446     // for items we don't really control
 447     if ( id == kHICommandPreferences )
 448     {
 449         id = wxApp::s_macPreferencesMenuItemId ;
 450
 451         wxMenuBar* mbar = wxMenuBar::MacGetInstalledMenuBar() ;
 452         if ( mbar )
 453         {
 454             wxMenu* menu = NULL ;
 455             item = mbar->FindItem( id , &menu ) ;
 456         }
 457     }
 458     else if ( id != 0 && command.menu.menuRef != 0 && command.menu.menuItemIndex != 0 )
 459     {
 460         GetMenuItemRefCon( command.menu.menuRef , command.menu.menuItemIndex , (UInt32*) &item ) ;
 461     }
 462
 463     if ( item )
 464     {
 465        switch( cEvent.GetKind() )
 466        {
 467            case kEventProcessCommand :
 468            {
 469                 if (item->IsCheckable())
 470                 {
 471                     item->Check( !item->IsChecked() ) ;
 472                 }
 473
 474                 item->GetMenu()->SendEvent( id , item->IsCheckable() ? item->IsChecked() : -1 ) ;
 475                 result = noErr ;
 476             }
 477             break ;
 478         case kEventCommandUpdateStatus:
 479             // eventually trigger an updateui round
 480             result = noErr ;
 481             break ;
 482         default :
 483             break ;
 484         }
 485     }
 486     return result ;
 487 }
 488
 489 static pascal OSStatus wxMacAppApplicationEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
 490 {
 491     OSStatus result = eventNotHandledErr ;
 492     switch ( GetEventKind( event ) )
 493     {
 494         case kEventAppActivated :
 495             {
 496                 if ( wxTheApp )
 497                     wxTheApp->SetActive( true , NULL ) ;
 498                 result = noErr ;
 499             }
 500             break ;
 501         case kEventAppDeactivated :
 502             {
 503                 if ( wxTheApp )
 504                     wxTheApp->SetActive( false , NULL ) ;
 505                 result = noErr ;
 506             }
 507             break ;
 508         default :
 509             break ;
 510     }
 511     return result ;
 512 }
 513
 514 pascal OSStatus wxMacAppEventHandler( EventHandlerCallRef handler , EventRef event , void *data )
 515 {
 516     EventRef formerEvent = (EventRef) wxTheApp->MacGetCurrentEvent() ;
 517     EventHandlerCallRef formerEventHandlerCallRef = (EventHandlerCallRef) wxTheApp->MacGetCurrentEventHandlerCallRef() ;
 518     wxTheApp->MacSetCurrentEvent( event , handler ) ;
 519
 520     OSStatus result = eventNotHandledErr ;
 521     switch( GetEventClass( event ) )
 522     {
 523         case kEventClassCommand :
 524             result = wxMacAppCommandEventHandler( handler , event , data ) ;
 525             break ;
 526         case kEventClassApplication :
 527             result = wxMacAppApplicationEventHandler( handler , event , data ) ;
 528             break ;
 529         case kEventClassMenu :
 530             result = wxMacAppMenuEventHandler( handler , event , data ) ;
 531             break ;
 532         case kEventClassMouse :
 533             {
 534                 wxMacCarbonEvent cEvent( event ) ;
 535
 536                 WindowRef window ;
 537                 Point screenMouseLocation = cEvent.GetParameter<Point>(kEventParamMouseLocation) ;
 538                 ::FindWindow(screenMouseLocation, &window);
 539                 // only send this event in case it had not already been sent to a tlw, as we get
 540                 // double events otherwise (in case event.skip) was called
 541                 if ( window == NULL )
 542                     result = wxMacTopLevelMouseEventHandler( handler , event , NULL ) ;
 543             }
 544             break ;
 545         case kEventClassAppleEvent :
 546             {
 547                 EventRecord rec ;
 548                 wxMacConvertEventToRecord( event , &rec ) ;
 549                 result = AEProcessAppleEvent( &rec ) ;
 550             }
 551             break ;
 552         default :
 553             break ;
 554     }
 555
 556     wxTheApp->MacSetCurrentEvent( formerEvent, formerEventHandlerCallRef ) ;
 557
 558     return result ;
 559 }
 560
 561 DEFINE_ONE_SHOT_HANDLER_GETTER( wxMacAppEventHandler )
 562
 563 #if defined(WXMAKINGDLL_CORE) && !defined(__DARWIN__)
 564 // we know it's there ;-)
 565 WXIMPORT char std::__throws_bad_alloc ;
 566 #endif
 567
 568 #if __WXDEBUG__
 569
 570 pascal static void wxMacAssertOutputHandler(OSType componentSignature, UInt32 options,
 571     const char *assertionString, const char *exceptionLabelString,
 572     const char *errorString, const char *fileName, long lineNumber, void *value, ConstStr255Param outputMsg)
 573 {
 574     // flow into assert handling
 575     wxString fileNameStr ;
 576     wxString assertionStr ;
 577     wxString exceptionStr ;
 578     wxString errorStr ;
 579 #if wxUSE_UNICODE
 580     fileNameStr = wxString(fileName, wxConvLocal);
 581     assertionStr = wxString(assertionString, wxConvLocal);
 582     exceptionStr = wxString((exceptionLabelString!=0) ? exceptionLabelString : "", wxConvLocal) ;
 583     errorStr = wxString((errorString!=0) ? errorString : "", wxConvLocal) ;
 584 #else
 585     fileNameStr = fileName;
 586     assertionStr = assertionString;
 587     exceptionStr = (exceptionLabelString!=0) ? exceptionLabelString : "" ;
 588     errorStr = (errorString!=0) ? errorString : "" ;
 589 #endif
 590
 591 #if 1
 592     // flow into log
 593     wxLogDebug( wxT("AssertMacros: %s %s %s file: %s, line: %ld (value %p)\n"),
 594         assertionStr.c_str() ,
 595         exceptionStr.c_str() ,
 596         errorStr.c_str(),
 597         fileNameStr.c_str(), lineNumber ,
 598         value ) ;
 599 #else
 600
 601     wxOnAssert(fileNameStr, lineNumber , assertionStr ,
 602         wxString::Format( wxT("%s %s value (%p)") ,exceptionStr, errorStr , value ) ) ;
 603 #endif
 604 }
 605
 606 #endif //__WXDEBUG__
 607
 608 #ifdef __WXMAC_OSX__
 609 extern "C" {
 610    /* m_macEventPosted run loop source callback: */
 611    void macPostedEventCallback(void *unused);
 612 }
 613
 614 void macPostedEventCallback(void *unused) {
 615     wxTheApp->ProcessPendingEvents(); }
 616 #endif
 617
 618 bool wxApp::Initialize(int& argc, wxChar **argv)
 619 {
 620     // Mac-specific
 621
 622 #if __WXDEBUG__
 623     InstallDebugAssertOutputHandler ( NewDebugAssertOutputHandlerUPP( wxMacAssertOutputHandler ) );
 624 #endif
 625     UMAInitToolbox( 4, sm_isEmbedded ) ;
 626     SetEventMask( everyEvent ) ;
 627     UMAShowWatchCursor() ;
 628
 629 #ifndef __DARWIN__
 630 #  if __option(profile)
 631     ProfilerInit( collectDetailed, bestTimeBase , 40000 , 50 ) ;
 632 #  endif
 633 #endif
 634
 635 #ifndef __DARWIN__
 636     // now avoid exceptions thrown for new (bad_alloc)
 637     // FIXME CS for some changes outside wxMac does not compile anymore
 638 #if 0
 639     std::__throws_bad_alloc = 0 ;
 640 #endif
 641
 642 #endif
 643
 644     s_macCursorRgn = ::NewRgn() ;
 645
 646     // Mac OS X passes a process serial number command line argument when
 647     // the application is launched from the Finder. This argument must be
 648     // removed from the command line arguments before being handled by the
 649     // application (otherwise applications would need to handle it)
 650     if ( argc > 1 )
 651     {
 652         static const wxChar *ARG_PSN = _T("-psn_");
 653         if ( wxStrncmp(argv[1], ARG_PSN, wxStrlen(ARG_PSN)) == 0 )
 654         {
 655             // remove this argument
 656             --argc;
 657             memmove(argv + 1, argv + 2, argc * sizeof(char *));
 658         }
 659     }
 660
 661     if ( !wxAppBase::Initialize(argc, argv) )
 662         return false;
 663
 664 #if wxUSE_INTL
 665     wxFont::SetDefaultEncoding(wxLocale::GetSystemEncoding());
 666 #endif
 667
 668 #if TARGET_API_MAC_OSX
 669     // these might be the startup dirs, set them to the 'usual' dir containing the app bundle
 670     wxString startupCwd = wxGetCwd() ;
 671     if ( startupCwd == wxT("/") || startupCwd.Right(15) == wxT("/Contents/MacOS") )
 672     {
 673         CFURLRef url = CFBundleCopyBundleURL(CFBundleGetMainBundle() ) ;
 674         CFURLRef urlParent = CFURLCreateCopyDeletingLastPathComponent( kCFAllocatorDefault , url ) ;
 675         CFRelease( url ) ;
 676         CFStringRef path = CFURLCopyFileSystemPath ( urlParent , kCFURLPOSIXPathStyle ) ;
 677         CFRelease( urlParent ) ;
 678         wxString cwd = wxMacCFStringHolder(path).AsString(wxLocale::GetSystemEncoding());
 679         wxSetWorkingDirectory( cwd ) ;
 680     }
 681 #endif
 682
 683     wxMacCreateNotifierTable() ;
 684
 685 #ifdef __WXMAC_OSX__
 686     /* connect posted events to common-mode run loop so that wxPostEvent events
 687        are handled even while we're in the menu or on a scrollbar */
 688     CFRunLoopSourceContext event_posted_context = {0};
 689     event_posted_context.perform = macPostedEventCallback;
 690     m_macEventPosted = CFRunLoopSourceCreate(NULL,0,&event_posted_context);
 691     CFRunLoopAddSource(CFRunLoopGetCurrent(), m_macEventPosted, kCFRunLoopCommonModes);
 692 #endif
 693
 694     UMAShowArrowCursor() ;
 695
 696     return true;
 697 }
 698
 699 bool wxApp::OnInitGui()
 700 {
 701     if( !wxAppBase::OnInitGui() )
 702         return false ;
 703
 704     InstallStandardEventHandler( GetApplicationEventTarget() ) ;
 705
 706     if (!sm_isEmbedded)
 707     {
 708         InstallApplicationEventHandler(
 709             GetwxMacAppEventHandlerUPP(),
 710             GetEventTypeCount(eventList), eventList, wxTheApp, (EventHandlerRef *)&(wxTheApp->m_macEventHandler));
 711     }
 712
 713     if (!sm_isEmbedded)
 714     {
 715         AEInstallEventHandler( kCoreEventClass , kAEOpenDocuments ,
 716                                NewAEEventHandlerUPP(AEHandleODoc) ,
 717                                0 , FALSE ) ;
 718         AEInstallEventHandler( kCoreEventClass , kAEOpenApplication ,
 719                                NewAEEventHandlerUPP(AEHandleOApp) ,
 720                                0 , FALSE ) ;
 721         AEInstallEventHandler( kCoreEventClass , kAEPrintDocuments ,
 722                                NewAEEventHandlerUPP(AEHandlePDoc) ,
 723                                0 , FALSE ) ;
 724         AEInstallEventHandler( kCoreEventClass , kAEReopenApplication ,
 725                                NewAEEventHandlerUPP(AEHandleRApp) ,
 726                                0 , FALSE ) ;
 727         AEInstallEventHandler( kCoreEventClass , kAEQuitApplication ,
 728                                NewAEEventHandlerUPP(AEHandleQuit) ,
 729                                0 , FALSE ) ;
 730     }
 731
 732     return TRUE ;
 733 }
 734
 735 void wxApp::CleanUp()
 736 {
 737 #if wxUSE_TOOLTIPS
 738     wxToolTip::RemoveToolTips() ;
 739 #endif
 740
 741 #ifdef __WXMAC_OSX__
 742     if (m_macEventPosted)
 743     {
 744         CFRelease(m_macEventPosted);
 745     }
 746     m_macEventPosted = NULL;
 747 #endif
 748
 749     // One last chance for pending objects to be cleaned up
 750     wxTheApp->DeletePendingObjects();
 751
 752     wxMacDestroyNotifierTable() ;
 753
 754 #ifndef __DARWIN__
 755 #  if __option(profile)
 756     ProfilerDump( (StringPtr)"\papp.prof" ) ;
 757     ProfilerTerm() ;
 758 #  endif
 759 #endif
 760
 761     UMACleanupToolbox() ;
 762     if (s_macCursorRgn) {
 763         ::DisposeRgn((RgnHandle)s_macCursorRgn);
 764     }
 765
 766     #if 0
 767         TerminateAE() ;
 768     #endif
 769
 770     wxAppBase::CleanUp();
 771 }
 772
 773 //----------------------------------------------------------------------
 774 // misc initialization stuff
 775 //----------------------------------------------------------------------
 776
 777 #if defined(WXMAKINGDLL_CORE) && !defined(__DARWIN__)
 778
 779 // for shared libraries we have to manually get the correct resource
 780 // ref num upon initializing and releasing when terminating, therefore
 781 // the __wxinitialize and __wxterminate must be used
 782
 783 extern "C" {
 784     void __sinit(void);    /*    (generated by linker)    */
 785     pascal OSErr __initialize(const CFragInitBlock *theInitBlock);
 786     pascal void __terminate(void);
 787 }
 788
 789 pascal OSErr __wxinitialize(const CFragInitBlock *theInitBlock)
 790 {
 791     return __initialize( theInitBlock ) ;
 792 }
 793
 794 pascal void __wxterminate(void)
 795 {
 796     __terminate() ;
 797 }
 798
 799 #endif /* WXMAKINGDLL_CORE && !__DARWIN__ */
 800
 801 bool wxMacConvertEventToRecord( EventRef event , EventRecord *rec)
 802 {
 803     bool converted = ConvertEventRefToEventRecord( event,rec) ;
 804     OSStatus err = noErr ;
 805     if ( !converted )
 806     {
 807         switch( GetEventClass( event ) )
 808         {
 809             case kEventClassKeyboard :
 810             {
 811                 converted = true ;
 812                 switch( GetEventKind(event) )
 813                 {
 814                     case kEventRawKeyDown :
 815                         rec->what = keyDown ;
 816                         break ;
 817                     case kEventRawKeyRepeat :
 818                         rec->what = autoKey ;
 819                         break ;
 820                     case kEventRawKeyUp :
 821                         rec->what = keyUp ;
 822                         break ;
 823                     case kEventRawKeyModifiersChanged :
 824                         rec->what = nullEvent ;
 825                         break ;
 826                     default :
 827                         converted = false ;
 828                         break ;
 829                 }
 830                 if ( converted )
 831                 {
 832                     UInt32 keyCode ;
 833                     unsigned char charCode ;
 834                     UInt32 modifiers ;
 835                     GetMouse( &rec->where) ;
 836
 837                     err = GetEventParameter(event, kEventParamKeyModifiers, typeUInt32, NULL, 4, NULL, &modifiers);
 838                     err = GetEventParameter(event, kEventParamKeyCode, typeUInt32, NULL, 4, NULL, &keyCode);
 839                     err = GetEventParameter(event, kEventParamKeyMacCharCodes, typeChar, NULL, 1, NULL, &charCode);
 840                     rec->modifiers = modifiers ;
 841                     rec->message = (keyCode << 8 ) + charCode ;
 842                 }
 843             }
 844             break ;
 845             case kEventClassTextInput :
 846             {
 847                 switch( GetEventKind( event ) )
 848                 {
 849                     case kEventTextInputUnicodeForKeyEvent :
 850                         {
 851                             EventRef rawEvent ;
 852                             err = GetEventParameter( event , kEventParamTextInputSendKeyboardEvent ,typeEventRef,NULL,sizeof(rawEvent),NULL,&rawEvent ) ;
 853                             converted = true ;
 854                             {
 855                                 UInt32 keyCode ;
 856                                 unsigned char charCode ;
 857                                 UInt32 modifiers ;
 858                                 GetMouse( &rec->where) ;
 859                                 rec->what = keyDown ;
 860                                 err = GetEventParameter(rawEvent, kEventParamKeyModifiers, typeUInt32, NULL, 4, NULL, &modifiers);
 861                                 err = GetEventParameter(rawEvent, kEventParamKeyCode, typeUInt32, NULL, 4, NULL, &keyCode);
 862                                 err = GetEventParameter(rawEvent, kEventParamKeyMacCharCodes, typeChar, NULL, 1, NULL, &charCode);
 863                                 rec->modifiers = modifiers ;
 864                                 rec->message = (keyCode << 8 ) + charCode ;
 865                             }
 866                        }
 867                         break ;
 868                     default :
 869                         break ;
 870                 }
 871             }
 872             break ;
 873         }
 874     }
 875
 876     return converted ;
 877 }
 878
 879 wxApp::wxApp()
 880 {
 881     m_printMode = wxPRINT_WINDOWS;
 882
 883     m_macCurrentEvent = NULL ;
 884     m_macCurrentEventHandlerCallRef = NULL ;
 885 #ifdef __WXMAC_OSX__
 886     m_macEventPosted = NULL ;
 887 #endif
 888 }
 889
 890 int wxApp::MainLoop()
 891 {
 892     m_keepGoing = TRUE;
 893 #if wxMAC_USE_RAEL
 894     RunApplicationEventLoop() ;
 895 #else
 896     while (m_keepGoing)
 897     {
 898         MacDoOneEvent() ;
 899     }
 900 #endif
 901     return 0;
 902 }
 903
 904 void wxApp::ExitMainLoop()
 905 {
 906     m_keepGoing = FALSE;
 907 #if wxMAC_USE_RAEL
 908     QuitApplicationEventLoop() ;
 909 #endif
 910 }
 911
 912 // Is a message/event pending?
 913 bool wxApp::Pending()
 914 {
 915     // without the receive event (with pull param = false ) nothing is ever reported
 916     EventRef theEvent;
 917     ReceiveNextEvent (0, NULL, kEventDurationNoWait, false, &theEvent);
 918     return GetNumEventsInQueue( GetMainEventQueue() ) > 0 ;
 919 }
 920
 921 // Dispatch a message.
 922 bool wxApp::Dispatch()
 923 {
 924     MacDoOneEvent() ;
 925
 926     return true;
 927 }
 928
 929 void wxApp::OnIdle(wxIdleEvent& event)
 930 {
 931     wxAppBase::OnIdle(event);
 932
 933     // If they are pending events, we must process them: pending events are
 934     // either events to the threads other than main or events posted with
 935     // wxPostEvent() functions
 936     wxMacProcessNotifierAndPendingEvents();
 937
 938   if(!wxMenuBar::MacGetInstalledMenuBar() && wxMenuBar::MacGetCommonMenuBar())
 939     wxMenuBar::MacGetCommonMenuBar()->MacInstallMenuBar();
 940 }
 941
 942 void wxApp::WakeUpIdle()
 943 {
 944 #ifdef __WXMAC_OSX__
 945     if (m_macEventPosted)
 946     {
 947         CFRunLoopSourceSignal(m_macEventPosted);
 948     }
 949 #endif
 950     wxMacWakeUp() ;
 951 }
 952
 953 void wxApp::Exit()
 954 {
 955     wxApp::CleanUp();
 956     ::ExitToShell() ;
 957 }
 958
 959 void wxApp::OnEndSession(wxCloseEvent& WXUNUSED(event))
 960 {
 961     if (GetTopWindow())
 962         GetTopWindow()->Close(TRUE);
 963 }
 964
 965 // Default behaviour: close the application with prompts. The
 966 // user can veto the close, and therefore the end session.
 967 void wxApp::OnQueryEndSession(wxCloseEvent& event)
 968 {
 969     if (GetTopWindow())
 970     {
 971         if (!GetTopWindow()->Close(!event.CanVeto()))
 972             event.Veto(TRUE);
 973     }
 974 }
 975
 976 extern "C" void wxCYield() ;
 977 void wxCYield()
 978 {
 979     wxYield() ;
 980 }
 981
 982 // Yield to other processes
 983
 984 bool wxApp::Yield(bool onlyIfNeeded)
 985 {
 986     if (s_inYield)
 987     {
 988         if ( !onlyIfNeeded )
 989         {
 990             wxFAIL_MSG( wxT("wxYield called recursively" ) );
 991         }
 992
 993         return FALSE;
 994     }
 995
 996     s_inYield = TRUE;
 997
 998     // by definition yield should handle all non-processed events
 999
1000     EventRef theEvent;
1001
1002     OSStatus status = noErr ;
1003     do
1004     {
1005         s_inReceiveEvent = true ;
1006         status = ReceiveNextEvent(0, NULL,kEventDurationNoWait,true,&theEvent) ;
1007         s_inReceiveEvent = false ;
1008
1009         if ( status == eventLoopTimedOutErr )
1010         {
1011             // make sure next time the event loop will trigger idle events
1012             sleepTime = kEventDurationNoWait ;
1013         }
1014         else if ( status == eventLoopQuitErr )
1015         {
1016             // according to QA1061 this may also occur when a WakeUp Process
1017             // is executed
1018         }
1019         else
1020         {
1021             MacHandleOneEvent( theEvent ) ;
1022             ReleaseEvent(theEvent);
1023         }
1024     } while( status == noErr ) ;
1025
1026     wxMacProcessNotifierAndPendingEvents() ;
1027     s_inYield = FALSE;
1028
1029     return TRUE;
1030 }
1031
1032 void wxApp::MacDoOneEvent()
1033 {
1034     EventRef theEvent;
1035
1036     s_inReceiveEvent = true ;
1037     OSStatus status = ReceiveNextEvent(0, NULL,sleepTime,true,&theEvent) ;
1038     s_inReceiveEvent = false ;
1039     if ( status == eventLoopTimedOutErr )
1040     {
1041         if ( wxTheApp->ProcessIdle() )
1042             sleepTime = kEventDurationNoWait ;
1043         else
1044             sleepTime = kEventDurationSecond;
1045     }
1046     else if ( status == eventLoopQuitErr )
1047     {
1048         // according to QA1061 this may also occur when a WakeUp Process
1049         // is executed
1050     }
1051     else
1052     {
1053         MacHandleOneEvent( theEvent ) ;
1054         ReleaseEvent(theEvent);
1055         sleepTime = kEventDurationNoWait ;
1056     }
1057     // repeaters
1058
1059     DeletePendingObjects() ;
1060     wxMacProcessNotifierAndPendingEvents() ;
1061 }
1062
1063 /*virtual*/ void wxApp::MacHandleUnhandledEvent( WXEVENTREF evr )
1064 {
1065     // Override to process unhandled events as you please
1066 }
1067
1068 void wxApp::MacHandleOneEvent( WXEVENTREF evr )
1069 {
1070     EventTargetRef theTarget;
1071     theTarget = GetEventDispatcherTarget();
1072     m_macCurrentEvent = evr ;
1073     OSStatus status = SendEventToEventTarget ((EventRef) evr , theTarget);
1074     if(status == eventNotHandledErr)
1075     {
1076         MacHandleUnhandledEvent(evr);
1077     }
1078     wxMacProcessNotifierAndPendingEvents() ;
1079 #if wxUSE_THREADS
1080     wxMutexGuiLeaveOrEnter();
1081 #endif // wxUSE_THREADS
1082 }
1083
1084 long wxMacTranslateKey(unsigned char key, unsigned char code) ;
1085 long wxMacTranslateKey(unsigned char key, unsigned char code)
1086 {
1087     long retval = key ;
1088     switch (key)
1089     {
1090         case kHomeCharCode :
1091                  retval = WXK_HOME;
1092           break;
1093         case kEnterCharCode :
1094                  retval = WXK_RETURN;
1095           break;
1096         case kEndCharCode :
1097                  retval = WXK_END;
1098           break;
1099         case kHelpCharCode :
1100                  retval = WXK_HELP;
1101           break;
1102         case kBackspaceCharCode :
1103                  retval = WXK_BACK;
1104           break;
1105         case kTabCharCode :
1106                  retval = WXK_TAB;
1107           break;
1108         case kPageUpCharCode :
1109                  retval = WXK_PAGEUP;
1110           break;
1111         case kPageDownCharCode :
1112                  retval = WXK_PAGEDOWN;
1113           break;
1114         case kReturnCharCode :
1115                  retval = WXK_RETURN;
1116           break;
1117             case kFunctionKeyCharCode :
1118             {
1119                 switch( code )
1120                 {
1121                     case 0x7a :
1122                         retval = WXK_F1 ;
1123                         break;
1124                     case 0x78 :
1125                         retval = WXK_F2 ;
1126                         break;
1127                     case 0x63 :
1128                         retval = WXK_F3 ;
1129                         break;
1130                     case 0x76 :
1131                         retval = WXK_F4 ;
1132                         break;
1133                     case 0x60 :
1134                         retval = WXK_F5 ;
1135                         break;
1136                     case 0x61 :
1137                         retval = WXK_F6 ;
1138                         break;
1139                     case 0x62:
1140                         retval = WXK_F7 ;
1141                         break;
1142                     case 0x64 :
1143                         retval = WXK_F8 ;
1144                         break;
1145                     case 0x65 :
1146                         retval = WXK_F9 ;
1147                         break;
1148                     case 0x6D :
1149                         retval = WXK_F10 ;
1150                         break;
1151                     case 0x67 :
1152                         retval = WXK_F11 ;
1153                         break;
1154                     case 0x6F :
1155                         retval = WXK_F12 ;
1156                         break;
1157                     case 0x69 :
1158                         retval = WXK_F13 ;
1159                         break;
1160                     case 0x6B :
1161                         retval = WXK_F14 ;
1162                         break;
1163                     case 0x71 :
1164                         retval = WXK_F15 ;
1165                         break;
1166                 }
1167             }
1168             break ;
1169             case kEscapeCharCode :
1170                 retval = WXK_ESCAPE ;
1171             break ;
1172             case kLeftArrowCharCode :
1173                 retval = WXK_LEFT ;
1174             break ;
1175             case kRightArrowCharCode :
1176                 retval = WXK_RIGHT ;
1177             break ;
1178             case kUpArrowCharCode :
1179                 retval = WXK_UP ;
1180             break ;
1181             case kDownArrowCharCode :
1182                 retval = WXK_DOWN ;
1183             break ;
1184             case kDeleteCharCode :
1185                 retval = WXK_DELETE ;
1186              default:
1187             break ;
1188      } // end switch
1189
1190     return retval;
1191 }
1192
1193 int wxMacKeyCodeToModifier(wxKeyCode key)
1194 {
1195     switch (key)
1196     {
1197     case WXK_START:
1198     case WXK_MENU:
1199         return cmdKey;
1200
1201     case WXK_SHIFT:
1202         return shiftKey;
1203
1204     case WXK_CAPITAL:
1205         return alphaLock;
1206
1207     case WXK_ALT:
1208         return optionKey;
1209
1210     case WXK_CONTROL:
1211         return controlKey;
1212
1213     default:
1214         return 0;
1215     }
1216 }
1217
1218 #ifndef __DARWIN__
1219 bool wxGetKeyState(wxKeyCode key) //virtual key code if < 10.2.x, else see below
1220 {
1221     wxASSERT_MSG(key != WXK_LBUTTON && key != WXK_RBUTTON && key !=
1222         WXK_MBUTTON, wxT("can't use wxGetKeyState() for mouse buttons"));
1223
1224 //if OS X > 10.2 (i.e. 10.2.x)
1225 //a known apple bug prevents the system from determining led
1226 //states with GetKeys... can only determine caps lock led
1227    return !!(GetCurrentKeyModifiers() & wxMacKeyCodeToModifier(key));
1228 //else
1229 //  KeyMapByteArray keymap;
1230 //  GetKeys((BigEndianLong*)keymap);
1231 //  return !!(BitTst(keymap, (sizeof(KeyMapByteArray)*8) - iKey));
1232 }
1233 #endif
1234
1235
1236 bool wxApp::MacSendKeyDownEvent( wxWindow* focus , long keymessage , long modifiers , long when , short wherex , short wherey , wxChar uniChar  )
1237 {
1238     if ( !focus )
1239         return false ;
1240
1241     short keycode ;
1242     short keychar ;
1243     keychar = short(keymessage & charCodeMask);
1244     keycode = short(keymessage & keyCodeMask) >> 8 ;
1245
1246     if ( modifiers & ( controlKey|shiftKey|optionKey ) )
1247     {
1248         // control interferes with some built-in keys like pgdown, return etc. therefore we remove the controlKey modifier
1249         // and look at the character after
1250         UInt32 state = 0;
1251         UInt32 keyInfo = KeyTranslate((Ptr)GetScriptManagerVariable(smKCHRCache), ( modifiers & (~(controlKey|shiftKey|optionKey))) | keycode, &state);
1252         keychar = short(keyInfo & charCodeMask);
1253     }
1254     long keyval = wxMacTranslateKey(keychar, keycode) ;
1255     long realkeyval = keyval ;
1256     if ( keyval == keychar )
1257     {
1258         // we are not on a special character combo -> pass the real os event-value to EVT_CHAR, but not to EVT_KEY (make upper first)
1259         realkeyval = short(keymessage & charCodeMask) ;
1260         keyval = wxToupper( keyval ) ;
1261     }
1262
1263     // Check for NUMPAD keys
1264     if (keyval >= '0' && keyval <= '9' && keycode >= 82 && keycode <= 92)
1265     {
1266         keyval = keyval - '0' + WXK_NUMPAD0;
1267     }
1268     else if (keycode >= 67 && keycode <= 81)
1269     {
1270         switch (keycode)
1271         {
1272         case 76 :
1273             keyval = WXK_NUMPAD_ENTER;
1274             break;
1275         case 81:
1276             keyval = WXK_NUMPAD_EQUAL;
1277             break;
1278         case 67:
1279             keyval = WXK_NUMPAD_MULTIPLY;
1280             break;
1281         case 75:
1282             keyval = WXK_NUMPAD_DIVIDE;
1283             break;
1284         case 78:
1285             keyval = WXK_NUMPAD_SUBTRACT;
1286             break;
1287         case 69:
1288             keyval = WXK_NUMPAD_ADD;
1289             break;
1290         case 65:
1291             keyval = WXK_NUMPAD_DECIMAL;
1292             break;
1293         } // end switch
1294     }
1295
1296     wxKeyEvent event(wxEVT_KEY_DOWN);
1297     bool handled = false ;
1298     event.m_shiftDown = modifiers & shiftKey;
1299     event.m_controlDown = modifiers & controlKey;
1300     event.m_altDown = modifiers & optionKey;
1301     event.m_metaDown = modifiers & cmdKey;
1302     event.m_keyCode = keyval ;
1303 #if wxUSE_UNICODE
1304     event.m_uniChar = uniChar ;
1305 #endif
1306     event.m_rawCode = keymessage;
1307     event.m_rawFlags = modifiers;
1308     event.m_x = wherex;
1309     event.m_y = wherey;
1310     event.SetTimestamp(when);
1311     event.SetEventObject(focus);
1312     handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1313     if ( handled && event.GetSkipped() )
1314         handled = false ;
1315     if ( !handled )
1316     {
1317 #if wxUSE_ACCEL
1318         if (!handled)
1319         {
1320             wxWindow *ancestor = focus;
1321             while (ancestor)
1322             {
1323                 int command = ancestor->GetAcceleratorTable()->GetCommand( event );
1324                 if (command != -1)
1325                 {
1326                     wxCommandEvent command_event( wxEVT_COMMAND_MENU_SELECTED, command );
1327                     handled = ancestor->GetEventHandler()->ProcessEvent( command_event );
1328                     break;
1329                 }
1330                 if (ancestor->IsTopLevel())
1331                     break;
1332                 ancestor = ancestor->GetParent();
1333             }
1334         }
1335 #endif // wxUSE_ACCEL
1336     }
1337     if (!handled)
1338     {
1339         wxTopLevelWindowMac *tlw = focus->MacGetTopLevelWindow() ;
1340
1341         if (tlw)
1342         {
1343             event.Skip( FALSE ) ;
1344             event.SetEventType( wxEVT_CHAR_HOOK );
1345             // raw value again
1346             event.m_keyCode = realkeyval ;
1347
1348             handled = tlw->GetEventHandler()->ProcessEvent( event );
1349             if ( handled && event.GetSkipped() )
1350                 handled = false ;
1351         }
1352     }
1353
1354     if ( !handled )
1355     {
1356         event.Skip( FALSE ) ;
1357         event.SetEventType( wxEVT_CHAR ) ;
1358         // raw value again
1359         event.m_keyCode = realkeyval ;
1360
1361         handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1362         if ( handled && event.GetSkipped() )
1363             handled = false ;
1364     }
1365     if ( !handled && (keyval == WXK_TAB) )
1366     {
1367         wxWindow* iter = focus->GetParent() ;
1368         while( iter && !handled )
1369         {
1370             if ( iter->HasFlag( wxTAB_TRAVERSAL ) )
1371             {
1372                 wxNavigationKeyEvent new_event;
1373                 new_event.SetEventObject( focus );
1374                 new_event.SetDirection( !event.ShiftDown() );
1375                 /* CTRL-TAB changes the (parent) window, i.e. switch notebook page */
1376                 new_event.SetWindowChange( event.ControlDown() );
1377                 new_event.SetCurrentFocus( focus );
1378                 handled = focus->GetParent()->GetEventHandler()->ProcessEvent( new_event );
1379                 if ( handled && new_event.GetSkipped() )
1380                     handled = false ;
1381             }
1382             iter = iter->GetParent() ;
1383         }
1384     }
1385     // backdoor handler for default return and command escape
1386     if ( !handled && (!focus->IsKindOf(CLASSINFO(wxControl) ) || !focus->MacCanFocus() ) )
1387     {
1388           // if window is not having a focus still testing for default enter or cancel
1389           // TODO add the UMA version for ActiveNonFloatingWindow
1390           wxWindow* focus = wxFindWinFromMacWindow( FrontWindow() ) ;
1391           if ( focus )
1392           {
1393             if ( keyval == WXK_RETURN )
1394             {
1395                  wxButton *def = wxDynamicCast(focus->GetDefaultItem(),
1396                                                        wxButton);
1397                  if ( def && def->IsEnabled() )
1398                  {
1399                      wxCommandEvent event(wxEVT_COMMAND_BUTTON_CLICKED, def->GetId() );
1400                      event.SetEventObject(def);
1401                      def->Command(event);
1402                      return true ;
1403                 }
1404             }
1405             /* generate wxID_CANCEL if command-. or <esc> has been pressed (typically in dialogs) */
1406             else if (keyval == WXK_ESCAPE || (keyval == '.' && modifiers & cmdKey ) )
1407             {
1408                   wxCommandEvent new_event(wxEVT_COMMAND_BUTTON_CLICKED,wxID_CANCEL);
1409                   new_event.SetEventObject( focus );
1410                   handled = focus->GetEventHandler()->ProcessEvent( new_event );
1411             }
1412           }
1413     }
1414     return handled ;
1415 }
1416
1417 bool wxApp::MacSendKeyUpEvent( wxWindow* focus , long keymessage , long modifiers , long when , short wherex , short wherey , wxChar uniChar  )
1418 {
1419     if ( !focus )
1420         return false ;
1421
1422     short keycode ;
1423     short keychar ;
1424     keychar = short(keymessage & charCodeMask);
1425     keycode = short(keymessage & keyCodeMask) >> 8 ;
1426     if ( modifiers & ( controlKey|shiftKey|optionKey ) )
1427     {
1428         // control interferes with some built-in keys like pgdown, return etc. therefore we remove the controlKey modifier
1429         // and look at the character after
1430         UInt32 state = 0;
1431         UInt32 keyInfo = KeyTranslate((Ptr)GetScriptManagerVariable(smKCHRCache), ( modifiers & (~(controlKey|shiftKey|optionKey))) | keycode, &state);
1432         keychar = short(keyInfo & charCodeMask);
1433     }
1434     long keyval = wxMacTranslateKey(keychar, keycode) ;
1435
1436     if ( keyval == keychar )
1437     {
1438         keyval = wxToupper( keyval ) ;
1439     }
1440
1441     // Check for NUMPAD keys
1442     if (keyval >= '0' && keyval <= '9' && keycode >= 82 && keycode <= 92)
1443     {
1444         keyval = keyval - '0' + WXK_NUMPAD0;
1445     }
1446     else if (keycode >= 67 && keycode <= 81)
1447     {
1448         switch (keycode)
1449         {
1450         case 76 :
1451             keyval = WXK_NUMPAD_ENTER;
1452             break;
1453         case 81:
1454             keyval = WXK_NUMPAD_EQUAL;
1455             break;
1456         case 67:
1457             keyval = WXK_NUMPAD_MULTIPLY;
1458             break;
1459         case 75:
1460             keyval = WXK_NUMPAD_DIVIDE;
1461             break;
1462         case 78:
1463             keyval = WXK_NUMPAD_SUBTRACT;
1464             break;
1465         case 69:
1466             keyval = WXK_NUMPAD_ADD;
1467             break;
1468         case 65:
1469             keyval = WXK_NUMPAD_DECIMAL;
1470             break;
1471         } // end switch
1472     }
1473
1474     bool handled = false ;
1475
1476     wxKeyEvent event(wxEVT_KEY_UP);
1477     event.m_shiftDown = modifiers & shiftKey;
1478     event.m_controlDown = modifiers & controlKey;
1479     event.m_altDown = modifiers & optionKey;
1480     event.m_metaDown = modifiers & cmdKey;
1481     event.m_keyCode = keyval ;
1482 #if wxUSE_UNICODE
1483     event.m_uniChar = uniChar ;
1484 #endif
1485
1486     event.m_rawCode = keymessage;
1487     event.m_rawFlags = modifiers;
1488     event.m_x = wherex;
1489     event.m_y = wherey;
1490     event.SetTimestamp(when);
1491     event.SetEventObject(focus);
1492     handled = focus->GetEventHandler()->ProcessEvent( event ) ;
1493
1494     return handled ;
1495 }