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