[wxWidgets.git] / src / mac / carbon / uma.cpp

#include "wx/defs.h"
#include "wx/dc.h"
#include "wx/mac/uma.h"
#include <MacTextEditor.h>

#ifndef __DARWIN__
  #include <Navigation.h>
#endif

// since we have decided that we only support 8.6 upwards we are
// checking for these minimum requirements in the startup code of
// the application so all wxWindows code can safely assume that appearance 1.1
// windows manager, control manager, navigation services etc. are 
// present

#define wxUSE_MLTE 0

static bool	sUMAHasAppearance = false ;
static long sUMAAppearanceVersion = 0 ;
extern int gAGABackgroundColor ;
bool UMAHasAppearance() { return sUMAHasAppearance ; }
long UMAGetAppearanceVersion() { return sUMAAppearanceVersion ; }

static bool	sUMAHasWindowManager = false ;
static long sUMAWindowManagerAttr = 0 ;

bool UMAHasWindowManager() { return sUMAHasWindowManager ; }
long UMAGetWindowManagerAttr() { return sUMAWindowManagerAttr ; }

void UMACleanupToolbox()
{
	if ( sUMAHasAppearance )
	{
		UnregisterAppearanceClient() ;
	}
	if ( NavServicesAvailable() )
	{
		NavUnload() ;
	}
#if wxUSE_MLTE
	TXNTerminateTextension( ) ;
#endif
}
void UMAInitToolbox( UInt16 inMoreMastersCalls )
{
#if !TARGET_CARBON
	::MaxApplZone();
	for (long i = 1; i <= inMoreMastersCalls; i++)
		::MoreMasters();

	::InitGraf(&qd.thePort);
	::InitFonts();
	::InitMenus();
	::TEInit();
	::InitDialogs(0L);
	::FlushEvents(everyEvent, 0);
	::InitCursor();
	long total,contig;
	PurgeSpace(&total, &contig);
#else
	InitCursor();
#endif

	long theAppearance ;
	if ( Gestalt( gestaltAppearanceAttr, &theAppearance ) == noErr )
	{
		sUMAHasAppearance = true ;
		RegisterAppearanceClient();
		if ( Gestalt( gestaltAppearanceVersion, &theAppearance ) == noErr )
		{
			sUMAAppearanceVersion = theAppearance ;
		}
		else
		{
			sUMAAppearanceVersion = 0x0100 ;
		}
	}
	if ( Gestalt( gestaltWindowMgrAttr, &sUMAWindowManagerAttr ) == noErr )
	{
		sUMAHasWindowManager = sUMAWindowManagerAttr & gestaltWindowMgrPresent ;
	}
		
#ifndef __DARWIN__
#if TARGET_CARBON
// Call currently implicitely done :		InitFloatingWindows() ;
#else
	if ( sUMAHasWindowManager )
		InitFloatingWindows() ;
	else
		InitWindows();
#endif
#endif

	if ( NavServicesAvailable() )
	{
		NavLoad() ;
	}

#if wxUSE_MLTE
  TXNMacOSPreferredFontDescription defaults;
  defaults.fontID = kFontIDGeneva ;
  defaults.pointSize = (10 << 16) ;
  defaults.fontStyle = kTXNDefaultFontStyle;
  defaults.encoding = kTXNSystemDefaultEncoding;
	TXNInitTextension(&defaults,  1, (kTXNAlwaysUseQuickDrawTextMask | kTXNWantMoviesMask | kTXNWantSoundMask | kTXNWantGraphicsMask));
#endif
}

// process manager
long UMAGetProcessMode() 
{
	OSErr err ; 
	ProcessInfoRec processinfo;
	ProcessSerialNumber procno ;
	
	procno.highLongOfPSN = NULL ;
	procno.lowLongOfPSN = kCurrentProcess ;
	processinfo.processInfoLength = sizeof(ProcessInfoRec);
	processinfo.processName = NULL;
	processinfo.processAppSpec = NULL;

	err = ::GetProcessInformation( &procno , &processinfo ) ;
	wxASSERT( err == noErr ) ;
	return processinfo.processMode ;
}

bool UMAGetProcessModeDoesActivateOnFGSwitch() 
{
	return UMAGetProcessMode() & modeDoesActivateOnFGSwitch ;
}

// menu manager

void UMASetMenuTitle( MenuRef menu , StringPtr title )
{
#if !TARGET_CARBON
	long 			size = GetHandleSize( (Handle) menu ) ;
	const long 		headersize = 14 ;
	int				oldlen = (**menu).menuData[0] + 1;
	int				newlen = title[0] + 1 ;
	
	if ( oldlen < newlen )
	{
		// enlarge before adjusting
		SetHandleSize( (Handle) menu , size + (newlen - oldlen ) );
	}

	if ( oldlen != newlen )
		memmove( (char*) (**menu).menuData + newlen , (char*) (**menu).menuData + oldlen , size - headersize - oldlen ) ;

	memcpy( (char*) (**menu).menuData , title ,  newlen ) ;
	if ( oldlen > newlen )
	{
		// shrink after
		SetHandleSize( (Handle) menu , size + (newlen - oldlen ) ) ;
	}
#else
	SetMenuTitle( menu , title ) ;
#endif
}

UInt32 UMAMenuEvent( EventRecord *inEvent )
{
		return MenuEvent( inEvent ) ;
}

void 			UMAEnableMenuItem( MenuRef inMenu , MenuItemIndex inItem ) 
{
	EnableMenuItem( inMenu , inItem ) ;
}

void 			UMADisableMenuItem( MenuRef inMenu , MenuItemIndex inItem ) 
{
	DisableMenuItem( inMenu , inItem ) ;
}

void UMAAppendSubMenuItem( MenuRef menu , StringPtr l , SInt16 id ) 
{
	Str255 label ;
	memcpy( label , l , l[0]+1 ) ;
	// hardcoded adding of the submenu combination for mac

	int theEnd = label[0] + 1; 
	if (theEnd > 251) 
		theEnd = 251; // mac allows only 255 characters
	label[theEnd++] = '/';
	label[theEnd++] = hMenuCmd; 
	label[theEnd++] = '!';
	label[theEnd++] = id ; 
	label[theEnd] = 0x00;
	label[0] = theEnd;
	MacAppendMenu(menu, label);
}

void UMAInsertSubMenuItem( MenuRef menu , StringPtr l , MenuItemIndex item , SInt16 id  ) 
{
	Str255 label ;
	memcpy( label , l , l[0]+1 ) ;
	// hardcoded adding of the submenu combination for mac

	int theEnd = label[0] + 1; 
	if (theEnd > 251) 
		theEnd = 251; // mac allows only 255 characters
	label[theEnd++] = '/';
	label[theEnd++] = hMenuCmd; 
	label[theEnd++] = '!';
	label[theEnd++] = id; 
	label[theEnd] = 0x00;
	label[0] = theEnd;
	MacInsertMenuItem(menu, label , item);
}

void UMAAppendMenuItem( MenuRef menu , StringPtr l , SInt16 key, UInt8 modifiers ) 
{
	Str255 label ;
	memcpy( label , l , l[0]+1 ) ;
	if ( key )
	{
			int pos = label[0] ;
			label[++pos] = '/';
			label[++pos] = toupper( key );
			label[0] = pos ;
	}
	MacAppendMenu( menu , label ) ;
}

void UMAInsertMenuItem( MenuRef menu , StringPtr l , MenuItemIndex item , SInt16 key, UInt8 modifiers ) 
{
	Str255 label ;
	memcpy( label , l , l[0]+1 ) ;
	if ( key )
	{
			int pos = label[0] ;
			label[++pos] = '/';
			label[++pos] = toupper( key );
			label[0] = pos ;
	}
	MacInsertMenuItem( menu , label , item) ;
}

// quickdraw

int gPrOpenCounter = 0 ;

#if TARGET_CARBON && PM_USE_SESSION_APIS
OSStatus UMAPrOpen(PMPrintSession *macPrintSession)
#else
OSStatus UMAPrOpen()
#endif
{
#if !TARGET_CARBON
	OSErr err = noErr ;
	++gPrOpenCounter ;
	if ( gPrOpenCounter == 1 )
	{
		PrOpen() ;
		err = PrError() ;
		wxASSERT( err == noErr ) ;
	}
	return err ;
#else
	OSStatus err = noErr ;
	++gPrOpenCounter ;
	if ( gPrOpenCounter == 1 )
	{
  #if PM_USE_SESSION_APIS
	    err = PMCreateSession(macPrintSession) ;
  #else
	    err = PMBegin() ;
  #endif
		wxASSERT( err == noErr ) ;
	}
	return err ;
#endif
}

#if TARGET_CARBON && PM_USE_SESSION_APIS
OSStatus UMAPrClose(PMPrintSession *macPrintSession)
#else
OSStatus UMAPrClose()
#endif
{
#if !TARGET_CARBON
	OSErr err = noErr ;
	wxASSERT( gPrOpenCounter >= 1 ) ;
	if ( gPrOpenCounter == 1 )
	{
		PrClose() ;
		err = PrError() ;
		wxASSERT( err == noErr ) ;
	}
	--gPrOpenCounter ;
	return err ;
#else
	OSStatus err = noErr ;
	wxASSERT( gPrOpenCounter >= 1 ) ;
	if ( gPrOpenCounter == 1 )
	{
  #if PM_USE_SESSION_APIS
	    err = PMRelease(*macPrintSession) ;
	    *macPrintSession = kPMNoReference;
  #else
	    err = PMEnd() ;
  #endif
	}
	--gPrOpenCounter ;
	return err ;
#endif
}

#if !TARGET_CARBON

pascal QDGlobalsPtr GetQDGlobalsPtr (void) ;
pascal QDGlobalsPtr GetQDGlobalsPtr (void)
{
	return QDGlobalsPtr (* (Ptr*) LMGetCurrentA5 ( ) - 0xCA);
}

#endif

void UMAShowWatchCursor() 
{
	OSErr err = noErr;

	CursHandle watchFob = GetCursor (watchCursor);

	if (!watchFob)
		err = nilHandleErr;
	else
	{
	#if TARGET_CARBON
//		Cursor preservedArrow;
//		GetQDGlobalsArrow (&preservedArrow);
//		SetQDGlobalsArrow (*watchFob);
//		InitCursor ( );
//		SetQDGlobalsArrow (&preservedArrow);
		SetCursor (*watchFob);	
	#else
		SetCursor (*watchFob);	
	#endif
	}
}

void			UMAShowArrowCursor() 
{
#if TARGET_CARBON
	Cursor arrow;
	SetCursor (GetQDGlobalsArrow (&arrow));
#else
	SetCursor (&(qd.arrow));
#endif
}

// window manager

GrafPtr		UMAGetWindowPort( WindowRef inWindowRef ) 
{
	wxASSERT( inWindowRef != NULL ) ;
#if TARGET_CARBON 
	return GetWindowPort( inWindowRef ) ; 
#else
	return (GrafPtr) inWindowRef ;
#endif
}

void		 	UMADisposeWindow( WindowRef inWindowRef ) 
{
	wxASSERT( inWindowRef != NULL ) ;
	DisposeWindow( inWindowRef ) ;
}

void 			UMASetWTitleC( WindowRef inWindowRef , const char *title ) 
{
	Str255	ptitle ;
	strncpy( (char*)ptitle , title , 96 ) ;
	ptitle[96] = 0 ;
#if TARGET_CARBON
	c2pstrcpy( ptitle, (char *)ptitle ) ;
#else
	c2pstr( (char*)ptitle ) ;
#endif
	SetWTitle( inWindowRef , ptitle ) ;
}

void 			UMAGetWTitleC( WindowRef inWindowRef , char *title ) 
{
	GetWTitle( inWindowRef , (unsigned char*)title ) ;
#if TARGET_CARBON
	p2cstrcpy( title, (unsigned char *)title ) ;
#else
	p2cstr( (unsigned char*)title ) ;
#endif
}

// appearance additions

void UMAActivateControl( ControlHandle inControl ) 
{
      if ( !IsControlActive( inControl ) )
      {
        bool visible = IsControlVisible( inControl ) ;
        if ( visible )
          SetControlVisibility( inControl , false , false ) ;
        ::ActivateControl( inControl ) ;
        if ( visible ) {
          SetControlVisibility( inControl , true , false ) ;
          Rect ctrlBounds ;
          InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
        }
       }
}

void UMADrawControl( ControlHandle inControl ) 
{
    WindowRef theWindow = GetControlOwner(inControl) ;
    RgnHandle updateRgn = NewRgn() ;
    GetWindowUpdateRgn( theWindow , updateRgn ) ;
	Point zero = { 0 , 0 } ;
	LocalToGlobal( &zero ) ;
	OffsetRgn( updateRgn , -zero.h , -zero.v ) ;
  ::DrawControlInCurrentPort( inControl ) ;
  InvalWindowRgn( theWindow, updateRgn) ;
	DisposeRgn( updateRgn ) ;

}

void UMAMoveControl( ControlHandle inControl , short x , short y ) 
{
  bool visible = IsControlVisible( inControl ) ;
  if ( visible ) {
    SetControlVisibility( inControl , false , false ) ;
    Rect ctrlBounds ;
    InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
  }
  ::MoveControl( inControl , x , y ) ;
  if ( visible ) {
    SetControlVisibility( inControl , true , false ) ;
    Rect ctrlBounds ;
    InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
  }
}

void UMASizeControl( ControlHandle inControl , short x , short y ) 
{
  bool visible = IsControlVisible( inControl ) ;
  if ( visible ) {
    SetControlVisibility( inControl , false , false ) ;
    Rect ctrlBounds ;
    InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
  } 
  ::SizeControl( inControl , x , y ) ;
  if ( visible ) {
    SetControlVisibility( inControl , true , false ) ;
    Rect ctrlBounds ;
    InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
  }
}

void UMADeactivateControl( ControlHandle inControl ) 
{
   if ( IsControlActive( inControl ) )
   {
     bool visible = IsControlVisible( inControl ) ;
     if ( visible )
       SetControlVisibility( inControl , false , false ) ;
     ::DeactivateControl( inControl ) ;
     if ( visible ) {
       SetControlVisibility( inControl , true , false ) ;
       Rect ctrlBounds ;
       InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
     }
    }
}
// shows the control and adds the region to the update region
void UMAShowControl						(ControlHandle 			inControl)
{
        SetControlVisibility( inControl , true , false ) ;
        Rect ctrlBounds ;
        InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
}

// keyboard focus
OSErr UMASetKeyboardFocus				(WindowPtr 				inWindow,
								 ControlHandle 			inControl,
								 ControlFocusPart 		inPart)
{
	OSErr err = noErr;
	GrafPtr port ;
	GetPort( &port ) ;

	SetPortWindowPort( inWindow ) ;

	SetOrigin( 0 , 0 ) ;
  err = SetKeyboardFocus( inWindow , inControl , inPart ) ;
	SetPort( port ) ;
	return err ;
}


// events
void UMAUpdateControls( WindowPtr inWindow , RgnHandle inRgn ) 
{
  RgnHandle updateRgn = NewRgn() ;
  GetWindowUpdateRgn( inWindow , updateRgn ) ;

	Point zero = { 0 , 0 } ;
	LocalToGlobal( &zero ) ;
	OffsetRgn( updateRgn , -zero.h , -zero.v ) ;

  UpdateControls( inWindow , inRgn ) ;
  InvalWindowRgn( inWindow, updateRgn) ;
	DisposeRgn( updateRgn ) ;

}

bool UMAIsWindowFloating( WindowRef inWindow ) 
{
	WindowClass cl ;
	
	GetWindowClass( inWindow , &cl ) ;
	return cl == kFloatingWindowClass ;
}

bool UMAIsWindowModal( WindowRef inWindow ) 
{
	WindowClass cl ;
	
	GetWindowClass( inWindow , &cl ) ;
	return cl < kFloatingWindowClass ;
}

// others

void UMAHighlightAndActivateWindow( WindowRef inWindowRef , bool inActivate )
{
	if ( inWindowRef )
	{
//		bool isHighlighted = IsWindowHighlited( inWindowRef ) ;
//		if ( inActivate != isHightlited )
		GrafPtr port ;
		GetPort( &port ) ;
		SetPortWindowPort( inWindowRef ) ;
		SetOrigin( 0 , 0 ) ;
		HiliteWindow( inWindowRef , inActivate ) ;
		ControlHandle control = NULL ;
		::GetRootControl( inWindowRef , & control ) ;
		if ( control )
		{
			if ( inActivate )
				UMAActivateControl( control ) ;
			else
				UMADeactivateControl( control ) ;
		}	
		SetPort( port ) ;
	}
}
OSStatus UMADrawThemePlacard( const Rect *inRect , ThemeDrawState inState ) 
{
  return ::DrawThemePlacard( inRect , inState ) ;
}

static OSStatus helpMenuStatus = noErr ;
static MenuRef helpMenuHandle = NULL ;
static MenuItemIndex firstCustomItemIndex = 0 ;

OSStatus UMAGetHelpMenu(
  MenuRef *        outHelpMenu,
  MenuItemIndex *  outFirstCustomItemIndex)
{
#if TARGET_CARBON
  return HMGetHelpMenu( outHelpMenu , outFirstCustomItemIndex ) ;
#else
  if ( helpMenuHandle == NULL )
  {
    helpMenuStatus = HMGetHelpMenuHandle( &helpMenuHandle ) ;
    if ( helpMenuStatus == noErr )
    {
      firstCustomItemIndex = CountMenuItems( helpMenuHandle ) + 1 ;
    }
  }
  if ( outFirstCustomItemIndex )
  {
    *outFirstCustomItemIndex = firstCustomItemIndex ;
  }
  *outHelpMenu = helpMenuHandle ;
  return helpMenuStatus ;
#endif
}
Commit	Line	Data
03e11df5	1	#include "wx/defs.h"
5fde6fcc	2	#include "wx/dc.h"
03e11df5	3	#include "wx/mac/uma.h"
b03e4fcd	4	#include <MacTextEditor.h>
72e7876b	5
f5c6eb5c	6	#ifndef __DARWIN__
03e11df5 GD	7	#include <Navigation.h>
03e11df5 GD	8	#endif
5b781a67	9
72055702 SC	10	// since we have decided that we only support 8.6 upwards we are
	11	// checking for these minimum requirements in the startup code of
	12	// the application so all wxWindows code can safely assume that appearance 1.1
	13	// windows manager, control manager, navigation services etc. are
	14	// present
e7b596fb	15
b03e4fcd SC	16	#define wxUSE_MLTE 0
b03e4fcd SC	17
72e7876b SC	18	static bool sUMAHasAppearance = false ;
	19	static long sUMAAppearanceVersion = 0 ;
	20	extern int gAGABackgroundColor ;
	21	bool UMAHasAppearance() { return sUMAHasAppearance ; }
	22	long UMAGetAppearanceVersion() { return sUMAAppearanceVersion ; }
	23
	24	static bool sUMAHasWindowManager = false ;
	25	static long sUMAWindowManagerAttr = 0 ;
	26
	27	bool UMAHasWindowManager() { return sUMAHasWindowManager ; }
	28	long UMAGetWindowManagerAttr() { return sUMAWindowManagerAttr ; }
72055702	29
5b781a67 SC	30	void UMACleanupToolbox()
5b781a67 SC	31	{
5b781a67 SC	32	if ( sUMAHasAppearance )
	33	{
	34	UnregisterAppearanceClient() ;
	35	}
5b781a67 SC	36	if ( NavServicesAvailable() )
	37	{
	38	NavUnload() ;
	39	}
b03e4fcd SC	40	#if wxUSE_MLTE
	41	TXNTerminateTextension( ) ;
	42	#endif
5b781a67	43	}
72e7876b SC	44	void UMAInitToolbox( UInt16 inMoreMastersCalls )
	45	{
	46	#if !TARGET_CARBON
	47	::MaxApplZone();
	48	for (long i = 1; i <= inMoreMastersCalls; i++)
	49	::MoreMasters();
	50
	51	::InitGraf(&qd.thePort);
	52	::InitFonts();
72e7876b SC	53	::InitMenus();
	54	::TEInit();
	55	::InitDialogs(0L);
	56	::FlushEvents(everyEvent, 0);
	57	::InitCursor();
	58	long total,contig;
	59	PurgeSpace(&total, &contig);
	60	#else
2f1ae414	61	InitCursor();
72e7876b SC	62	#endif
72e7876b SC	63
72e7876b SC	64	long theAppearance ;
	65	if ( Gestalt( gestaltAppearanceAttr, &theAppearance ) == noErr )
	66	{
	67	sUMAHasAppearance = true ;
	68	RegisterAppearanceClient();
	69	if ( Gestalt( gestaltAppearanceVersion, &theAppearance ) == noErr )
	70	{
	71	sUMAAppearanceVersion = theAppearance ;
	72	}
	73	else
	74	{
	75	sUMAAppearanceVersion = 0x0100 ;
	76	}
	77	}
72e7876b SC	78	if ( Gestalt( gestaltWindowMgrAttr, &sUMAWindowManagerAttr ) == noErr )
	79	{
	80	sUMAHasWindowManager = sUMAWindowManagerAttr & gestaltWindowMgrPresent ;
	81	}
5b781a67	82
f5c6eb5c	83	#ifndef __DARWIN__
8e8d3ba8 SC	84	#if TARGET_CARBON
	85	// Call currently implicitely done : InitFloatingWindows() ;
	86	#else
5b781a67 SC	87	if ( sUMAHasWindowManager )
	88	InitFloatingWindows() ;
	89	else
	90	InitWindows();
8e8d3ba8	91	#endif
03e11df5	92	#endif
5b781a67 SC	93
	94	if ( NavServicesAvailable() )
	95	{
	96	NavLoad() ;
	97	}
b03e4fcd SC	98
	99	#if wxUSE_MLTE
	100	TXNMacOSPreferredFontDescription defaults;
	101	defaults.fontID = kFontIDGeneva ;
	102	defaults.pointSize = (10 << 16) ;
	103	defaults.fontStyle = kTXNDefaultFontStyle;
	104	defaults.encoding = kTXNSystemDefaultEncoding;
	105	TXNInitTextension(&defaults, 1, (kTXNAlwaysUseQuickDrawTextMask \| kTXNWantMoviesMask \| kTXNWantSoundMask \| kTXNWantGraphicsMask));
	106	#endif
72e7876b SC	107	}
	108
	109	// process manager
	110	long UMAGetProcessMode()
	111	{
	112	OSErr err ;
	113	ProcessInfoRec processinfo;
	114	ProcessSerialNumber procno ;
	115
	116	procno.highLongOfPSN = NULL ;
	117	procno.lowLongOfPSN = kCurrentProcess ;
	118	processinfo.processInfoLength = sizeof(ProcessInfoRec);
	119	processinfo.processName = NULL;
	120	processinfo.processAppSpec = NULL;
	121
	122	err = ::GetProcessInformation( &procno , &processinfo ) ;
	123	wxASSERT( err == noErr ) ;
	124	return processinfo.processMode ;
	125	}
	126
	127	bool UMAGetProcessModeDoesActivateOnFGSwitch()
	128	{
	129	return UMAGetProcessMode() & modeDoesActivateOnFGSwitch ;
	130	}
	131
	132	// menu manager
	133
2f1ae414	134	void UMASetMenuTitle( MenuRef menu , StringPtr title )
72e7876b SC	135	{
	136	#if !TARGET_CARBON
	137	long size = GetHandleSize( (Handle) menu ) ;
	138	const long headersize = 14 ;
	139	int oldlen = (**menu).menuData[0] + 1;
	140	int newlen = title[0] + 1 ;
	141
	142	if ( oldlen < newlen )
	143	{
	144	// enlarge before adjusting
	145	SetHandleSize( (Handle) menu , size + (newlen - oldlen ) );
	146	}
	147
	148	if ( oldlen != newlen )
	149	memmove( (char) (menu).menuData + newlen , (char) (**menu).menuData + oldlen , size - headersize - oldlen ) ;
	150
	151	memcpy( (char) (*menu).menuData , title , newlen ) ;
	152	if ( oldlen > newlen )
	153	{
	154	// shrink after
	155	SetHandleSize( (Handle) menu , size + (newlen - oldlen ) ) ;
	156	}
	157	#else
	158	SetMenuTitle( menu , title ) ;
	159	#endif
	160	}
	161
	162	UInt32 UMAMenuEvent( EventRecord *inEvent )
	163	{
72e7876b	164	return MenuEvent( inEvent ) ;
72e7876b SC	165	}
	166
	167	void UMAEnableMenuItem( MenuRef inMenu , MenuItemIndex inItem )
	168	{
72e7876b	169	EnableMenuItem( inMenu , inItem ) ;
72e7876b SC	170	}
	171
	172	void UMADisableMenuItem( MenuRef inMenu , MenuItemIndex inItem )
	173	{
72e7876b	174	DisableMenuItem( inMenu , inItem ) ;
72e7876b	175	}
2f1ae414 SC	176
	177	void UMAAppendSubMenuItem( MenuRef menu , StringPtr l , SInt16 id )
	178	{
	179	Str255 label ;
	180	memcpy( label , l , l[0]+1 ) ;
	181	// hardcoded adding of the submenu combination for mac
	182
	183	int theEnd = label[0] + 1;
	184	if (theEnd > 251)
	185	theEnd = 251; // mac allows only 255 characters
	186	label[theEnd++] = '/';
	187	label[theEnd++] = hMenuCmd;
	188	label[theEnd++] = '!';
	189	label[theEnd++] = id ;
	190	label[theEnd] = 0x00;
	191	label[0] = theEnd;
	192	MacAppendMenu(menu, label);
	193	}
	194
	195	void UMAInsertSubMenuItem( MenuRef menu , StringPtr l , MenuItemIndex item , SInt16 id )
	196	{
	197	Str255 label ;
	198	memcpy( label , l , l[0]+1 ) ;
	199	// hardcoded adding of the submenu combination for mac
	200
	201	int theEnd = label[0] + 1;
	202	if (theEnd > 251)
	203	theEnd = 251; // mac allows only 255 characters
	204	label[theEnd++] = '/';
	205	label[theEnd++] = hMenuCmd;
	206	label[theEnd++] = '!';
	207	label[theEnd++] = id;
	208	label[theEnd] = 0x00;
	209	label[0] = theEnd;
	210	MacInsertMenuItem(menu, label , item);
	211	}
	212
	213	void UMAAppendMenuItem( MenuRef menu , StringPtr l , SInt16 key, UInt8 modifiers )
	214	{
	215	Str255 label ;
	216	memcpy( label , l , l[0]+1 ) ;
	217	if ( key )
	218	{
	219	int pos = label[0] ;
	220	label[++pos] = '/';
	221	label[++pos] = toupper( key );
	222	label[0] = pos ;
	223	}
	224	MacAppendMenu( menu , label ) ;
	225	}
	226
	227	void UMAInsertMenuItem( MenuRef menu , StringPtr l , MenuItemIndex item , SInt16 key, UInt8 modifiers )
	228	{
	229	Str255 label ;
	230	memcpy( label , l , l[0]+1 ) ;
	231	if ( key )
	232	{
	233	int pos = label[0] ;
	234	label[++pos] = '/';
	235	label[++pos] = toupper( key );
	236	label[0] = pos ;
	237	}
	238	MacInsertMenuItem( menu , label , item) ;
	239	}
240
72e7876b SC	241	// quickdraw
72e7876b SC	242
2f1ae414 SC	243	int gPrOpenCounter = 0 ;
2f1ae414 SC	244
93f0fe75 GD	245	#if TARGET_CARBON && PM_USE_SESSION_APIS
93f0fe75 GD	246	OSStatus UMAPrOpen(PMPrintSession *macPrintSession)
87df17a1 GD	247	#else
87df17a1 GD	248	OSStatus UMAPrOpen()
a689a4d0	249	#endif
2f1ae414 SC	250	{
	251	#if !TARGET_CARBON
	252	OSErr err = noErr ;
	253	++gPrOpenCounter ;
	254	if ( gPrOpenCounter == 1 )
	255	{
	256	PrOpen() ;
	257	err = PrError() ;
	258	wxASSERT( err == noErr ) ;
	259	}
5b781a67	260	return err ;
2f1ae414	261	#else
5b781a67 SC	262	OSStatus err = noErr ;
	263	++gPrOpenCounter ;
	264	if ( gPrOpenCounter == 1 )
	265	{
a689a4d0	266	#if PM_USE_SESSION_APIS
93f0fe75	267	err = PMCreateSession(macPrintSession) ;
a689a4d0 GD	268	#else
	269	err = PMBegin() ;
	270	#endif
5b781a67 SC	271	wxASSERT( err == noErr ) ;
	272	}
	273	return err ;
2f1ae414 SC	274	#endif
	275	}
	276
93f0fe75 GD	277	#if TARGET_CARBON && PM_USE_SESSION_APIS
93f0fe75 GD	278	OSStatus UMAPrClose(PMPrintSession *macPrintSession)
87df17a1 GD	279	#else
87df17a1 GD	280	OSStatus UMAPrClose()
a689a4d0	281	#endif
2f1ae414 SC	282	{
	283	#if !TARGET_CARBON
	284	OSErr err = noErr ;
	285	wxASSERT( gPrOpenCounter >= 1 ) ;
	286	if ( gPrOpenCounter == 1 )
	287	{
	288	PrClose() ;
	289	err = PrError() ;
	290	wxASSERT( err == noErr ) ;
	291	}
	292	--gPrOpenCounter ;
5b781a67	293	return err ;
2f1ae414	294	#else
5b781a67 SC	295	OSStatus err = noErr ;
	296	wxASSERT( gPrOpenCounter >= 1 ) ;
	297	if ( gPrOpenCounter == 1 )
	298	{
a689a4d0	299	#if PM_USE_SESSION_APIS
93f0fe75 GD	300	err = PMRelease(*macPrintSession) ;
93f0fe75 GD	301	*macPrintSession = kPMNoReference;
a689a4d0 GD	302	#else
	303	err = PMEnd() ;
	304	#endif
5b781a67 SC	305	}
	306	--gPrOpenCounter ;
	307	return err ;
2f1ae414 SC	308	#endif
	309	}
	310
72e7876b SC	311	#if !TARGET_CARBON
72e7876b SC	312
72055702	313	pascal QDGlobalsPtr GetQDGlobalsPtr (void) ;
72e7876b SC	314	pascal QDGlobalsPtr GetQDGlobalsPtr (void)
	315	{
	316	return QDGlobalsPtr (* (Ptr*) LMGetCurrentA5 ( ) - 0xCA);
	317	}
	318
	319	#endif
	320
	321	void UMAShowWatchCursor()
	322	{
	323	OSErr err = noErr;
	324
	325	CursHandle watchFob = GetCursor (watchCursor);
	326
	327	if (!watchFob)
	328	err = nilHandleErr;
	329	else
	330	{
	331	#if TARGET_CARBON
72055702 SC	332	// Cursor preservedArrow;
	333	// GetQDGlobalsArrow (&preservedArrow);
	334	// SetQDGlobalsArrow (*watchFob);
	335	// InitCursor ( );
	336	// SetQDGlobalsArrow (&preservedArrow);
	337	SetCursor (*watchFob);
72e7876b SC	338	#else
	339	SetCursor (*watchFob);
	340	#endif
	341	}
	342	}
	343
	344	void UMAShowArrowCursor()
	345	{
	346	#if TARGET_CARBON
	347	Cursor arrow;
	348	SetCursor (GetQDGlobalsArrow (&arrow));
	349	#else
	350	SetCursor (&(qd.arrow));
	351	#endif
	352	}
	353
	354	// window manager
	355
	356	GrafPtr UMAGetWindowPort( WindowRef inWindowRef )
	357	{
	358	wxASSERT( inWindowRef != NULL ) ;
	359	#if TARGET_CARBON
	360	return GetWindowPort( inWindowRef ) ;
	361	#else
	362	return (GrafPtr) inWindowRef ;
	363	#endif
	364	}
	365
	366	void UMADisposeWindow( WindowRef inWindowRef )
	367	{
	368	wxASSERT( inWindowRef != NULL ) ;
	369	DisposeWindow( inWindowRef ) ;
	370	}
	371
	372	void UMASetWTitleC( WindowRef inWindowRef , const char *title )
	373	{
	374	Str255 ptitle ;
	375	strncpy( (char*)ptitle , title , 96 ) ;
	376	ptitle[96] = 0 ;
03e11df5 GD	377	#if TARGET_CARBON
	378	c2pstrcpy( ptitle, (char *)ptitle ) ;
	379	#else
72e7876b	380	c2pstr( (char*)ptitle ) ;
03e11df5	381	#endif
72e7876b SC	382	SetWTitle( inWindowRef , ptitle ) ;
72e7876b SC	383	}
03e11df5	384
72e7876b SC	385	void UMAGetWTitleC( WindowRef inWindowRef , char *title )
	386	{
	387	GetWTitle( inWindowRef , (unsigned char*)title ) ;
03e11df5 GD	388	#if TARGET_CARBON
	389	p2cstrcpy( title, (unsigned char *)title ) ;
	390	#else
72e7876b	391	p2cstr( (unsigned char*)title ) ;
03e11df5	392	#endif
72e7876b SC	393	}
72e7876b SC	394
72e7876b SC	395	// appearance additions
	396
	397	void UMAActivateControl( ControlHandle inControl )
	398	{
72055702	399	if ( !IsControlActive( inControl ) )
fdaf613a SC	400	{
	401	bool visible = IsControlVisible( inControl ) ;
	402	if ( visible )
	403	SetControlVisibility( inControl , false , false ) ;
3f4902f5	404	::ActivateControl( inControl ) ;
fdaf613a SC	405	if ( visible ) {
fdaf613a SC	406	SetControlVisibility( inControl , true , false ) ;
c36f0244 SC	407	Rect ctrlBounds ;
c36f0244 SC	408	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
fdaf613a SC	409	}
fdaf613a SC	410	}
72e7876b SC	411	}
	412
	413	void UMADrawControl( ControlHandle inControl )
	414	{
3f4902f5 GD	415	WindowRef theWindow = GetControlOwner(inControl) ;
3f4902f5 GD	416	RgnHandle updateRgn = NewRgn() ;
3f4902f5	417	GetWindowUpdateRgn( theWindow , updateRgn ) ;
be57fda6 SC	418	Point zero = { 0 , 0 } ;
	419	LocalToGlobal( &zero ) ;
	420	OffsetRgn( updateRgn , -zero.h , -zero.v ) ;
72055702 SC	421	::DrawControlInCurrentPort( inControl ) ;
72055702 SC	422	InvalWindowRgn( theWindow, updateRgn) ;
be57fda6 SC	423	DisposeRgn( updateRgn ) ;
be57fda6 SC	424
72e7876b SC	425	}
	426
	427	void UMAMoveControl( ControlHandle inControl , short x , short y )
	428	{
72055702 SC	429	bool visible = IsControlVisible( inControl ) ;
	430	if ( visible ) {
	431	SetControlVisibility( inControl , false , false ) ;
	432	Rect ctrlBounds ;
	433	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
	434	}
	435	::MoveControl( inControl , x , y ) ;
	436	if ( visible ) {
	437	SetControlVisibility( inControl , true , false ) ;
	438	Rect ctrlBounds ;
	439	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
	440	}
72e7876b SC	441	}
	442
	443	void UMASizeControl( ControlHandle inControl , short x , short y )
	444	{
72055702 SC	445	bool visible = IsControlVisible( inControl ) ;
	446	if ( visible ) {
	447	SetControlVisibility( inControl , false , false ) ;
	448	Rect ctrlBounds ;
	449	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
b03e4fcd	450	}
72055702 SC	451	::SizeControl( inControl , x , y ) ;
	452	if ( visible ) {
	453	SetControlVisibility( inControl , true , false ) ;
	454	Rect ctrlBounds ;
	455	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
	456	}
72e7876b SC	457	}
	458
	459	void UMADeactivateControl( ControlHandle inControl )
	460	{
72055702	461	if ( IsControlActive( inControl ) )
2f1ae414	462	{
72055702 SC	463	bool visible = IsControlVisible( inControl ) ;
	464	if ( visible )
	465	SetControlVisibility( inControl , false , false ) ;
	466	::DeactivateControl( inControl ) ;
	467	if ( visible ) {
	468	SetControlVisibility( inControl , true , false ) ;
	469	Rect ctrlBounds ;
	470	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
	471	}
3f4902f5	472	}
72e7876b	473	}
fdaf613a	474	// shows the control and adds the region to the update region
3f4902f5	475	void UMAShowControl (ControlHandle inControl)
72e7876b	476	{
fdaf613a	477	SetControlVisibility( inControl , true , false ) ;
c36f0244 SC	478	Rect ctrlBounds ;
c36f0244 SC	479	InvalWindowRect(GetControlOwner(inControl),GetControlBounds(inControl,&ctrlBounds) ) ;
72e7876b SC	480	}
72e7876b SC	481
72e7876b SC	482	// keyboard focus
	483	OSErr UMASetKeyboardFocus (WindowPtr inWindow,
	484	ControlHandle inControl,
	485	ControlFocusPart inPart)
	486	{
2f1ae414 SC	487	OSErr err = noErr;
	488	GrafPtr port ;
	489	GetPort( &port ) ;
72055702 SC	490
	491	SetPortWindowPort( inWindow ) ;
	492
2f1ae414	493	SetOrigin( 0 , 0 ) ;
72055702	494	err = SetKeyboardFocus( inWindow , inControl , inPart ) ;
2f1ae414 SC	495	SetPort( port ) ;
2f1ae414 SC	496	return err ;
72e7876b SC	497	}
	498
	499
	500
	501
	502	// events
72e7876b SC	503	void UMAUpdateControls( WindowPtr inWindow , RgnHandle inRgn )
72e7876b SC	504	{
72055702 SC	505	RgnHandle updateRgn = NewRgn() ;
	506	GetWindowUpdateRgn( inWindow , updateRgn ) ;
	507
be57fda6 SC	508	Point zero = { 0 , 0 } ;
	509	LocalToGlobal( &zero ) ;
	510	OffsetRgn( updateRgn , -zero.h , -zero.v ) ;
72e7876b	511
72055702 SC	512	UpdateControls( inWindow , inRgn ) ;
	513	InvalWindowRgn( inWindow, updateRgn) ;
	514	DisposeRgn( updateRgn ) ;
72e7876b	515
72e7876b SC	516	}
	517
	518	bool UMAIsWindowFloating( WindowRef inWindow )
	519	{
	520	WindowClass cl ;
	521
72055702	522	GetWindowClass( inWindow , &cl ) ;
72e7876b SC	523	return cl == kFloatingWindowClass ;
	524	}
	525
	526	bool UMAIsWindowModal( WindowRef inWindow )
	527	{
	528	WindowClass cl ;
	529
72055702	530	GetWindowClass( inWindow , &cl ) ;
72e7876b SC	531	return cl < kFloatingWindowClass ;
	532	}
	533
	534	// others
	535
	536	void UMAHighlightAndActivateWindow( WindowRef inWindowRef , bool inActivate )
	537	{
	538	if ( inWindowRef )
	539	{
	540	// bool isHighlighted = IsWindowHighlited( inWindowRef ) ;
	541	// if ( inActivate != isHightlited )
c809f3be SC	542	GrafPtr port ;
c809f3be SC	543	GetPort( &port ) ;
72055702	544	SetPortWindowPort( inWindowRef ) ;
c809f3be SC	545	SetOrigin( 0 , 0 ) ;
	546	HiliteWindow( inWindowRef , inActivate ) ;
	547	ControlHandle control = NULL ;
72055702	548	::GetRootControl( inWindowRef , & control ) ;
c809f3be SC	549	if ( control )
	550	{
	551	if ( inActivate )
	552	UMAActivateControl( control ) ;
	553	else
	554	UMADeactivateControl( control ) ;
	555	}
	556	SetPort( port ) ;
72e7876b SC	557	}
72e7876b SC	558	}
2f1ae414 SC	559	OSStatus UMADrawThemePlacard( const Rect *inRect , ThemeDrawState inState )
2f1ae414 SC	560	{
72055702	561	return ::DrawThemePlacard( inRect , inState ) ;
2f1ae414	562	}
72e7876b	563
b03e4fcd SC	564	static OSStatus helpMenuStatus = noErr ;
	565	static MenuRef helpMenuHandle = NULL ;
	566	static MenuItemIndex firstCustomItemIndex = 0 ;
	567
	568	OSStatus UMAGetHelpMenu(
	569	MenuRef * outHelpMenu,
	570	MenuItemIndex * outFirstCustomItemIndex)
	571	{
	572	#if TARGET_CARBON
	573	return HMGetHelpMenu( outHelpMenu , outFirstCustomItemIndex ) ;
	574	#else
	575	if ( helpMenuHandle == NULL )
	576	{
	577	helpMenuStatus = HMGetHelpMenuHandle( &helpMenuHandle ) ;
	578	if ( helpMenuStatus == noErr )
	579	{
	580	firstCustomItemIndex = CountMenuItems( helpMenuHandle ) + 1 ;
	581	}
	582	}
	583	if ( outFirstCustomItemIndex )
	584	{
	585	*outFirstCustomItemIndex = firstCustomItemIndex ;
	586	}
	587	*outHelpMenu = helpMenuHandle ;
	588	return helpMenuStatus ;
	589	#endif
	590	}