src/mac/carbon/uma.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/mac/carbon/uma.cpp
   3 // Purpose:     UMA support
   4 // Author:      Stefan Csomor
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Stefan Csomor
   9 // Licence:     The wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #include "wx/wxprec.h"
  13
  14 #if wxUSE_GUI
  15
  16 #include "wx/toplevel.h"
  17 #include "wx/dc.h"
  18
  19 #ifndef __DARWIN__
  20 #  include <MacTextEditor.h>
  21 #  include <Navigation.h>
  22 #  if defined(TARGET_CARBON)
  23 #    if PM_USE_SESSION_APIS
  24 #      include <PMCore.h>
  25 #    endif
  26 #    include <PMApplication.h>
  27 #  else
  28 #    include <Printing.h>
  29 #  endif
  30 #endif
  31
  32 #ifndef __DARWIN__
  33 #  include <Scrap.h>
  34 #endif
  35
  36 #include "wx/mac/uma.h"
  37
  38 // since we have decided that we only support 8.6 upwards we are
  39 // checking for these minimum requirements in the startup code of
  40 // the application so all wxWidgets code can safely assume that appearance 1.1
  41 // windows manager, control manager, navigation services etc. are
  42 // present
  43
  44 static SInt32 sUMASystemVersion = 0 ;
  45
  46 long UMAGetSystemVersion() { return sUMASystemVersion ; }
  47
  48 void UMACleanupToolbox()
  49 {
  50 }
  51
  52 void UMAInitToolbox( UInt16 inMoreMastersCalls, bool isEmbedded )
  53 {
  54     ::InitCursor();
  55
  56     if ( Gestalt(gestaltSystemVersion, &sUMASystemVersion) != noErr)
  57         sUMASystemVersion = 0x0000 ;
  58
  59 #ifndef __LP64__
  60     {
  61         FontFamilyID fontId ;
  62         Str255 fontName ;
  63         SInt16 fontSize ;
  64         Style fontStyle ;
  65
  66         GetThemeFont(kThemeSmallSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
  67         GetFNum( fontName, &fontId );
  68
  69         TXNMacOSPreferredFontDescription fontDescriptions[] =
  70         {
  71             { fontId , (fontSize << 16) , kTXNDefaultFontStyle, kTXNSystemDefaultEncoding }
  72         } ;
  73         int noOfFontDescriptions = sizeof( fontDescriptions ) / sizeof(TXNMacOSPreferredFontDescription) ;
  74
  75         OptionBits options = 0 ;
  76
  77         if ( UMAGetSystemVersion() < 0x1000 )
  78             options |= kTXNAlwaysUseQuickDrawTextMask ;
  79
  80         TXNInitTextension( fontDescriptions,  noOfFontDescriptions, options );
  81     }
  82 #endif
  83
  84     UMASetSystemIsInitialized( true );
  85 }
  86
  87 // process manager
  88 long UMAGetProcessMode()
  89 {
  90     OSErr err ;
  91     ProcessInfoRec processinfo;
  92     ProcessSerialNumber procno ;
  93
  94     procno.highLongOfPSN = 0 ;
  95     procno.lowLongOfPSN = kCurrentProcess ;
  96     processinfo.processInfoLength = sizeof(ProcessInfoRec);
  97     processinfo.processName = NULL;
  98 #ifndef __LP64__
  99     processinfo.processAppSpec = NULL;
 100 #endif
 101
 102     err = ::GetProcessInformation( &procno , &processinfo ) ;
 103     wxASSERT( err == noErr ) ;
 104
 105     return processinfo.processMode ;
 106 }
 107
 108 bool UMAGetProcessModeDoesActivateOnFGSwitch()
 109 {
 110     return UMAGetProcessMode() & modeDoesActivateOnFGSwitch ;
 111 }
 112
 113 // menu manager
 114
 115 MenuRef UMANewMenu( SInt16 id , const wxString& title , wxFontEncoding encoding )
 116 {
 117     wxString str = wxStripMenuCodes( title ) ;
 118     MenuRef menu ;
 119
 120 #if TARGET_CARBON
 121     CreateNewMenu( id , 0 , &menu ) ;
 122     SetMenuTitleWithCFString( menu , wxMacCFStringHolder(str , encoding ) ) ;
 123 #else
 124     Str255 ptitle ;
 125     wxMacStringToPascal( str , ptitle ) ;
 126     menu = ::NewMenu( id , ptitle ) ;
 127 #endif
 128
 129     return menu ;
 130 }
 131
 132 void UMASetMenuTitle( MenuRef menu , const wxString& title , wxFontEncoding encoding )
 133 {
 134     wxString str = wxStripMenuCodes( title ) ;
 135
 136 #if TARGET_CARBON
 137     SetMenuTitleWithCFString( menu , wxMacCFStringHolder(str , encoding) ) ;
 138
 139 #else
 140     Str255 ptitle ;
 141     wxMacStringToPascal( str , ptitle ) ;
 142     SetMenuTitle( menu , ptitle ) ;
 143 #endif
 144 }
 145
 146 void UMASetMenuItemText( MenuRef menu,  MenuItemIndex item, const wxString& title, wxFontEncoding encoding )
 147 {
 148     // we don't strip the accels here anymore, must be done before
 149     wxString str = title ;
 150
 151 #if TARGET_CARBON
 152     SetMenuItemTextWithCFString( menu , item , wxMacCFStringHolder(str , encoding) ) ;
 153
 154 #else
 155     Str255 ptitle ;
 156     wxMacStringToPascal( str , ptitle ) ;
 157     SetMenuItemText( menu , item , ptitle ) ;
 158 #endif
 159 }
 160
 161 UInt32 UMAMenuEvent( EventRecord *inEvent )
 162 {
 163     return MenuEvent( inEvent ) ;
 164 }
 165
 166 void UMAEnableMenuItem( MenuRef inMenu , MenuItemIndex inItem , bool enable)
 167 {
 168     if ( enable )
 169         EnableMenuItem( inMenu , inItem ) ;
 170     else
 171         DisableMenuItem( inMenu , inItem ) ;
 172 }
 173
 174 void UMAAppendSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , SInt16 id )
 175 {
 176     AppendMenuItemTextWithCFString( menu,
 177                                 CFSTR("A"), 0, 0,NULL);
 178     UMASetMenuItemText( menu, (SInt16) ::CountMenuItems(menu), title , encoding );
 179     SetMenuItemHierarchicalID( menu , CountMenuItems( menu ) , id ) ;
 180 }
 181
 182 void UMAInsertSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , SInt16 id  )
 183 {
 184     InsertMenuItemTextWithCFString( menu,
 185                 CFSTR("A"), item, 0, 0);
 186
 187     UMASetMenuItemText( menu, item+1, title , encoding );
 188     SetMenuItemHierarchicalID( menu , item+1 , id ) ;
 189 }
 190
 191 void UMASetMenuItemShortcut( MenuRef menu , MenuItemIndex item , wxAcceleratorEntry *entry )
 192 {
 193     if ( !entry )
 194         return ;
 195
 196     UInt8 modifiers = 0 ;
 197     SInt16 key = entry->GetKeyCode() ;
 198     if ( key )
 199     {
 200         bool explicitCommandKey = (entry->GetFlags() & wxACCEL_CTRL);
 201
 202         if (entry->GetFlags() & wxACCEL_ALT)
 203             modifiers |= kMenuOptionModifier ;
 204
 205         if (entry->GetFlags() & wxACCEL_SHIFT)
 206             modifiers |= kMenuShiftModifier ;
 207
 208         SInt16 glyph = 0 ;
 209         SInt16 macKey = key ;
 210         if ( key >= WXK_F1 && key <= WXK_F15 )
 211         {
 212             if ( !explicitCommandKey )
 213                 modifiers |= kMenuNoCommandModifier ;
 214
 215             // for some reasons this must be 0 right now
 216             // everything else leads to just the first function key item
 217             // to be selected. Thanks to Ryan Wilcox for finding out.
 218             macKey = 0 ;
 219             glyph = kMenuF1Glyph + ( key - WXK_F1 ) ;
 220             if ( key >= WXK_F13 )
 221                 glyph += 13 ;
 222         }
 223         else
 224         {
 225             switch ( key )
 226             {
 227                 case WXK_BACK :
 228                     macKey = kBackspaceCharCode ;
 229                     glyph = kMenuDeleteLeftGlyph ;
 230                     break ;
 231
 232                 case WXK_TAB :
 233                     macKey = kTabCharCode ;
 234                     glyph = kMenuTabRightGlyph ;
 235                     break ;
 236
 237                 case kEnterCharCode :
 238                     macKey = kEnterCharCode ;
 239                     glyph = kMenuEnterGlyph ;
 240                     break ;
 241
 242                 case WXK_RETURN :
 243                     macKey = kReturnCharCode ;
 244                     glyph = kMenuReturnGlyph ;
 245                     break ;
 246
 247                 case WXK_ESCAPE :
 248                     macKey = kEscapeCharCode ;
 249                     glyph = kMenuEscapeGlyph ;
 250                     break ;
 251
 252                 case WXK_SPACE :
 253                     macKey = ' ' ;
 254                     glyph = kMenuSpaceGlyph ;
 255                     break ;
 256
 257                 case WXK_DELETE :
 258                     macKey = kDeleteCharCode ;
 259                     glyph = kMenuDeleteRightGlyph ;
 260                     break ;
 261
 262                 case WXK_CLEAR :
 263                     macKey = kClearCharCode ;
 264                     glyph = kMenuClearGlyph ;
 265                     break ;
 266
 267                 case WXK_PAGEUP :
 268                     macKey = kPageUpCharCode ;
 269                     glyph = kMenuPageUpGlyph ;
 270                     break ;
 271
 272                 case WXK_PAGEDOWN :
 273                     macKey = kPageDownCharCode ;
 274                     glyph = kMenuPageDownGlyph ;
 275                     break ;
 276
 277                 case WXK_LEFT :
 278                     macKey = kLeftArrowCharCode ;
 279                     glyph = kMenuLeftArrowGlyph ;
 280                     break ;
 281
 282                 case WXK_UP :
 283                     macKey = kUpArrowCharCode ;
 284                     glyph = kMenuUpArrowGlyph ;
 285                     break ;
 286
 287                 case WXK_RIGHT :
 288                     macKey = kRightArrowCharCode ;
 289                     glyph = kMenuRightArrowGlyph ;
 290                     break ;
 291
 292                 case WXK_DOWN :
 293                     macKey = kDownArrowCharCode ;
 294                     glyph = kMenuDownArrowGlyph ;
 295                     break ;
 296
 297                 case WXK_HOME :
 298                     macKey = kHomeCharCode ;
 299                     glyph = kMenuNorthwestArrowGlyph ;
 300                     break ;
 301
 302                 case WXK_END :
 303                     macKey = kEndCharCode ;
 304                     glyph = kMenuSoutheastArrowGlyph ;
 305                     break ;
 306                 default :
 307                     macKey = toupper( key ) ;
 308                     break ;
 309             }
 310
 311             // we now allow non command key shortcuts
 312             // remove in case this gives problems
 313             if ( !explicitCommandKey )
 314                 modifiers |= kMenuNoCommandModifier ;
 315         }
 316
 317         // 1d and 1e have special meaning to SetItemCmd, so
 318         // do not use for these character codes.
 319         if (key != WXK_UP && key != WXK_RIGHT && key != WXK_DOWN && key != WXK_LEFT)
 320             SetItemCmd( menu, item , macKey );
 321
 322         SetMenuItemModifiers( menu, item , modifiers ) ;
 323
 324         if ( glyph )
 325             SetMenuItemKeyGlyph( menu, item , glyph ) ;
 326     }
 327 }
 328
 329 void UMAAppendMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , wxAcceleratorEntry *entry )
 330 {
 331     AppendMenuItemTextWithCFString( menu,
 332                                 CFSTR("A"), 0, 0,NULL);
 333     // don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
 334     ChangeMenuItemAttributes( menu , ::CountMenuItems(menu), kMenuItemAttrIgnoreMeta , 0 ) ;
 335     UMASetMenuItemText(menu, (SInt16) ::CountMenuItems(menu), title , encoding );
 336     UMASetMenuItemShortcut( menu , (SInt16) ::CountMenuItems(menu), entry ) ;
 337 }
 338
 339 void UMAInsertMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , wxAcceleratorEntry *entry )
 340 {
 341     InsertMenuItemTextWithCFString( menu,
 342                 CFSTR("A"), item, 0, 0);
 343
 344     // don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
 345     ChangeMenuItemAttributes( menu , item+1, kMenuItemAttrIgnoreMeta , 0 ) ;
 346     UMASetMenuItemText(menu, item+1 , title , encoding );
 347     UMASetMenuItemShortcut( menu , item+1 , entry ) ;
 348 }
 349
 350 // quickdraw
 351
 352 #if !TARGET_CARBON
 353
 354 int gPrOpenCounter = 0 ;
 355
 356 OSStatus UMAPrOpen()
 357 {
 358     OSErr err = noErr ;
 359
 360     ++gPrOpenCounter ;
 361
 362     if ( gPrOpenCounter == 1 )
 363     {
 364         PrOpen() ;
 365         err = PrError() ;
 366         wxASSERT( err == noErr ) ;
 367     }
 368
 369     return err ;
 370 }
 371
 372 OSStatus UMAPrClose()
 373 {
 374     OSErr err = noErr ;
 375
 376     wxASSERT( gPrOpenCounter >= 1 ) ;
 377
 378     if ( gPrOpenCounter == 1 )
 379     {
 380         PrClose() ;
 381         err = PrError() ;
 382         wxASSERT( err == noErr ) ;
 383     }
 384
 385     --gPrOpenCounter ;
 386
 387     return err ;
 388 }
 389
 390 pascal QDGlobalsPtr GetQDGlobalsPtr() ;
 391 pascal QDGlobalsPtr GetQDGlobalsPtr()
 392 {
 393     return QDGlobalsPtr (* (Ptr*) LMGetCurrentA5 ( ) - 0xCA);
 394 }
 395
 396 #endif
 397
 398 void UMAShowWatchCursor()
 399 {
 400     SetThemeCursor(kThemeWatchCursor);
 401 }
 402
 403 void UMAShowArrowCursor()
 404 {
 405     SetThemeCursor(kThemeArrowCursor);
 406 }
 407
 408 // window manager
 409
 410 GrafPtr UMAGetWindowPort( WindowRef inWindowRef )
 411 {
 412     wxASSERT( inWindowRef != NULL ) ;
 413
 414 #if TARGET_CARBON
 415     return (GrafPtr) GetWindowPort( inWindowRef ) ;
 416 #else
 417     return (GrafPtr) inWindowRef ;
 418 #endif
 419 }
 420
 421 void UMADisposeWindow( WindowRef inWindowRef )
 422 {
 423     wxASSERT( inWindowRef != NULL ) ;
 424
 425     DisposeWindow( inWindowRef ) ;
 426 }
 427
 428 void UMASetWTitle( WindowRef inWindowRef , const wxString& title , wxFontEncoding encoding )
 429 {
 430 #if TARGET_CARBON
 431     SetWindowTitleWithCFString( inWindowRef , wxMacCFStringHolder(title , encoding) ) ;
 432
 433 #else
 434     Str255 ptitle ;
 435     wxMacStringToPascal( title , ptitle ) ;
 436     SetWTitle( inWindowRef , ptitle ) ;
 437 #endif
 438 }
 439
 440 // appearance additions
 441
 442 void UMASetControlTitle( ControlRef inControl , const wxString& title , wxFontEncoding encoding )
 443 {
 444 #if TARGET_CARBON
 445     SetControlTitleWithCFString( inControl , wxMacCFStringHolder(title , encoding) ) ;
 446
 447 #else
 448     Str255 ptitle ;
 449     wxMacStringToPascal( title , ptitle ) ;
 450     SetControlTitle( inControl , ptitle ) ;
 451 #endif
 452 }
 453
 454 void UMAActivateControl( ControlRef inControl )
 455 {
 456 #if TARGET_API_MAC_OSX
 457     ::ActivateControl( inControl ) ;
 458
 459 #else
 460     // we have to add the control after again to the update rgn
 461     // otherwise updates get lost
 462     if ( !IsControlActive( inControl ) )
 463     {
 464         bool visible = IsControlVisible( inControl ) ;
 465         if ( visible )
 466             SetControlVisibility( inControl , false , false ) ;
 467
 468         ::ActivateControl( inControl ) ;
 469
 470         if ( visible )
 471         {
 472             SetControlVisibility( inControl , true , false ) ;
 473
 474             Rect ctrlBounds ;
 475             InvalWindowRect( GetControlOwner(inControl), UMAGetControlBoundsInWindowCoords(inControl, &ctrlBounds) ) ;
 476         }
 477     }
 478 #endif
 479 }
 480
 481 void UMAMoveControl( ControlRef inControl , short x , short y )
 482 {
 483 #if TARGET_API_MAC_OSX
 484     ::MoveControl( inControl , x , y ) ;
 485
 486 #else
 487     bool visible = IsControlVisible( inControl ) ;
 488     if ( visible )
 489     {
 490         SetControlVisibility( inControl , false , false ) ;
 491         Rect ctrlBounds ;
 492         InvalWindowRect( GetControlOwner(inControl), GetControlBounds(inControl, &ctrlBounds) ) ;
 493     }
 494
 495     ::MoveControl( inControl , x , y ) ;
 496
 497     if ( visible )
 498     {
 499         SetControlVisibility( inControl , true , false ) ;
 500         Rect ctrlBounds ;
 501         InvalWindowRect( GetControlOwner(inControl), GetControlBounds(inControl, &ctrlBounds) ) ;
 502     }
 503 #endif
 504 }
 505
 506 void UMASizeControl( ControlRef inControl , short x , short y )
 507 {
 508 #if TARGET_API_MAC_OSX
 509     ::SizeControl( inControl , x , y ) ;
 510
 511 #else
 512     bool visible = IsControlVisible( inControl ) ;
 513     if ( visible )
 514     {
 515         SetControlVisibility( inControl , false , false ) ;
 516         Rect ctrlBounds ;
 517         InvalWindowRect( GetControlOwner(inControl), GetControlBounds(inControl, &ctrlBounds) ) ;
 518     }
 519
 520     ::SizeControl( inControl , x , y ) ;
 521
 522     if ( visible )
 523     {
 524         SetControlVisibility( inControl , true , false ) ;
 525         Rect ctrlBounds ;
 526         InvalWindowRect( GetControlOwner(inControl), GetControlBounds(inControl, &ctrlBounds) ) ;
 527     }
 528 #endif
 529 }
 530
 531 void UMADeactivateControl( ControlRef inControl )
 532 {
 533 #if TARGET_API_MAC_OSX
 534     ::DeactivateControl( inControl ) ;
 535
 536 #else
 537     // we have to add the control after again to the update rgn
 538     // otherwise updates get lost
 539     bool visible = IsControlVisible( inControl ) ;
 540     if ( visible )
 541         SetControlVisibility( inControl , false , false ) ;
 542
 543     ::DeactivateControl( inControl ) ;
 544
 545     if ( visible )
 546     {
 547         SetControlVisibility( inControl , true , false ) ;
 548         Rect ctrlBounds ;
 549         InvalWindowRect( GetControlOwner(inControl), UMAGetControlBoundsInWindowCoords(inControl, &ctrlBounds) ) ;
 550     }
 551 #endif
 552 }
 553
 554 // shows the control and adds the region to the update region
 555 void UMAShowControl( ControlRef inControl )
 556 {
 557     SetControlVisibility( inControl , true , false ) ;
 558     HIViewSetNeedsDisplay( inControl, true );
 559 }
 560
 561 // hides the control and adds the region to the update region
 562 void UMAHideControl( ControlRef inControl )
 563 {
 564     SetControlVisibility( inControl , false , false ) ;
 565     HIViewSetNeedsDisplay( inControl, true );
 566 }
 567
 568 // keyboard focus
 569 OSErr UMASetKeyboardFocus( WindowPtr inWindow,
 570                                  ControlRef inControl,
 571                                  ControlFocusPart inPart )
 572 {
 573     OSErr err = noErr;
 574 #ifndef __LP64__
 575     GrafPtr port ;
 576
 577     GetPort( &port ) ;
 578     SetPortWindowPort( inWindow ) ;
 579 #endif
 580
 581     err = SetKeyboardFocus( inWindow , inControl , inPart ) ;
 582 #ifndef __LP64__
 583     SetPort( port ) ;
 584 #endif
 585
 586     return err ;
 587 }
 588
 589 bool UMAIsWindowFloating( WindowRef inWindow )
 590 {
 591     WindowClass cl ;
 592
 593     GetWindowClass( inWindow , &cl ) ;
 594     return cl == kFloatingWindowClass ;
 595 }
 596
 597 bool UMAIsWindowModal( WindowRef inWindow )
 598 {
 599     WindowClass cl ;
 600
 601     GetWindowClass( inWindow , &cl ) ;
 602     return cl < kFloatingWindowClass ;
 603 }
 604
 605 // others
 606
 607 void UMAHighlightAndActivateWindow( WindowRef inWindowRef , bool inActivate )
 608 {
 609     if ( inWindowRef )
 610     {
 611 //        bool isHighlighted = IsWindowHighlited( inWindowRef ) ;
 612 //        if ( inActivate != isHighlighted )
 613 #ifndef __LP64__
 614         GrafPtr port ;
 615         GetPort( &port ) ;
 616         SetPortWindowPort( inWindowRef ) ;
 617 #endif
 618         HiliteWindow( inWindowRef , inActivate ) ;
 619         ControlRef control = NULL ;
 620         ::GetRootControl( inWindowRef , &control ) ;
 621         if ( control )
 622         {
 623             if ( inActivate )
 624                 UMAActivateControl( control ) ;
 625             else
 626                 UMADeactivateControl( control ) ;
 627         }
 628 #ifndef __LP64__
 629         SetPort( port ) ;
 630 #endif
 631     }
 632 }
 633
 634 OSStatus UMADrawThemePlacard( const Rect *inRect , ThemeDrawState inState )
 635 {
 636 #ifndef __LP64__
 637     return ::DrawThemePlacard( inRect , inState ) ;
 638 #else
 639     return noErr;
 640 #endif
 641 }
 642
 643 #if !TARGET_CARBON
 644 static OSStatus helpMenuStatus = noErr ;
 645 static MenuItemIndex firstCustomItemIndex = 0 ;
 646 #endif
 647
 648 OSStatus UMAGetHelpMenu(
 649     MenuRef *        outHelpMenu,
 650     MenuItemIndex *  outFirstCustomItemIndex)
 651 {
 652 #if TARGET_CARBON
 653     return HMGetHelpMenu( outHelpMenu , outFirstCustomItemIndex ) ;
 654
 655 #else
 656     MenuRef helpMenuHandle ;
 657
 658     helpMenuStatus = HMGetHelpMenuHandle( &helpMenuHandle ) ;
 659     if ( firstCustomItemIndex == 0 && helpMenuStatus == noErr )
 660         firstCustomItemIndex = CountMenuItems( helpMenuHandle ) + 1 ;
 661
 662     if ( outFirstCustomItemIndex )
 663         *outFirstCustomItemIndex = firstCustomItemIndex ;
 664
 665     *outHelpMenu = helpMenuHandle ;
 666
 667     return helpMenuStatus ;
 668 #endif
 669 }
 670
 671 #ifndef __LP64__
 672
 673 wxMacPortStateHelper::wxMacPortStateHelper( GrafPtr newport )
 674 {
 675     m_clip = NULL ;
 676     Setup( newport ) ;
 677 }
 678
 679 wxMacPortStateHelper::wxMacPortStateHelper()
 680 {
 681     m_clip = NULL ;
 682 }
 683
 684 void wxMacPortStateHelper::Setup( GrafPtr newport )
 685 {
 686     GetPort( &m_oldPort ) ;
 687     SetPort( newport ) ;
 688     SetOrigin(0, 0);
 689
 690     wxASSERT_MSG( m_clip == NULL , wxT("Cannot call setup twice") ) ;
 691     m_clip = NewRgn() ;
 692     GetClip( m_clip );
 693     m_textFont = GetPortTextFont( (CGrafPtr) newport );
 694     m_textSize = GetPortTextSize( (CGrafPtr) newport );
 695     m_textStyle = GetPortTextFace( (CGrafPtr) newport );
 696     m_textMode = GetPortTextMode( (CGrafPtr) newport );
 697     GetThemeDrawingState( &m_drawingState ) ;
 698     m_currentPort = newport ;
 699 }
 700
 701 void wxMacPortStateHelper::Clear()
 702 {
 703     if ( m_clip )
 704     {
 705         DisposeRgn( m_clip ) ;
 706         DisposeThemeDrawingState( m_drawingState ) ;
 707         m_clip = NULL ;
 708     }
 709 }
 710
 711 wxMacPortStateHelper::~wxMacPortStateHelper()
 712 {
 713     if ( m_clip )
 714     {
 715         SetPort( m_currentPort ) ;
 716         SetClip( m_clip ) ;
 717         DisposeRgn( m_clip ) ;
 718         TextFont( m_textFont );
 719         TextSize( m_textSize );
 720         TextFace( m_textStyle );
 721         TextMode( m_textMode );
 722         SetThemeDrawingState( m_drawingState , true ) ;
 723         SetPort( m_oldPort ) ;
 724     }
 725 }
 726
 727 #endif
 728
 729 OSStatus UMAPutScrap( Size size , OSType type , void *data )
 730 {
 731     OSStatus err = noErr ;
 732
 733 #if !TARGET_CARBON
 734     err = PutScrap( size , type , data ) ;
 735 #else
 736     ScrapRef    scrap;
 737     err = GetCurrentScrap( &scrap );
 738     if ( err == noErr )
 739         err = PutScrapFlavor( scrap, type , 0, size, data );
 740 #endif
 741
 742     return err ;
 743 }
 744
 745 Rect * UMAGetControlBoundsInWindowCoords( ControlRef theControl, Rect *bounds )
 746 {
 747     GetControlBounds( theControl , bounds ) ;
 748
 749 #if TARGET_API_MAC_OSX
 750     WindowRef tlwref = GetControlOwner( theControl ) ;
 751
 752     wxTopLevelWindowMac* tlwwx = wxFindWinFromMacWindow( tlwref ) ;
 753     if ( tlwwx != NULL )
 754     {
 755         ControlRef rootControl = tlwwx->GetPeer()->GetControlRef() ;
 756         HIPoint hiPoint = CGPointMake( 0 , 0 ) ;
 757         HIViewConvertPoint( &hiPoint , HIViewGetSuperview(theControl) , rootControl ) ;
 758         OffsetRect( bounds , (short) hiPoint.x , (short) hiPoint.y ) ;
 759     }
 760 #endif
 761
 762     return bounds ;
 763 }
 764
 765 #endif  // wxUSE_GUI
 766
 767 #if wxUSE_BASE
 768
 769 static bool sUMASystemInitialized = false ;
 770
 771 bool UMASystemIsInitialized()
 772 {
 773     return sUMASystemInitialized ;
 774 }
 775
 776 void UMASetSystemIsInitialized(bool val)
 777 {
 778     sUMASystemInitialized = val;
 779 }
 780
 781 #endif // wxUSE_BASE