src/mac/carbon/uma.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/mac/carbon/uma.cpp
// Purpose:     UMA support
// Author:      Stefan Csomor
// Modified by:
// Created:     04/01/98
// RCS-ID:      $Id$
// Copyright:   (c) Stefan Csomor
// Licence:     The wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#include "wx/wxprec.h"

#include "wx/mac/uma.h"

#if wxUSE_GUI

#include "wx/toplevel.h"
#include "wx/dc.h"

#include "wx/mac/uma.h"

static SInt32 sUMASystemVersion = 0 ;

long UMAGetSystemVersion()
{
    if ( sUMASystemVersion == 0 )
    {
        verify_noerr(Gestalt(gestaltSystemVersion, &sUMASystemVersion));
    }
    return sUMASystemVersion ;
}

void UMAInitToolbox( UInt16 WXUNUSED(inMoreMastersCalls),
                     bool WXUNUSED(isEmbedded) )
{
#if 0 // ndef __LP64__
    {
        FontFamilyID fontId ;
        Str255 fontName ;
        SInt16 fontSize ;
        Style fontStyle ;

        GetThemeFont(kThemeSmallSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
        GetFNum( fontName, &fontId );

        TXNMacOSPreferredFontDescription fontDescriptions[] =
        {
            { fontId , (fontSize << 16) , kTXNDefaultFontStyle, kTXNSystemDefaultEncoding }
        } ;
        int noOfFontDescriptions = sizeof( fontDescriptions ) / sizeof(TXNMacOSPreferredFontDescription) ;

        OptionBits options = 0 ;

        TXNInitTextension( fontDescriptions,  noOfFontDescriptions, options );
    }
#endif
}

// menu manager

#if wxMAC_USE_COCOA == 0

MenuRef UMANewMenu( SInt16 id , const wxString& title , wxFontEncoding encoding )
{
    wxString str = wxStripMenuCodes( title ) ;
    MenuRef menu ;

    CreateNewMenu( id , 0 , &menu ) ;
    SetMenuTitleWithCFString( menu , wxCFStringRef(str , encoding ) ) ;

    return menu ;
}

void UMASetMenuTitle( MenuRef menu , const wxString& title , wxFontEncoding encoding )
{
    wxString str = wxStripMenuCodes( title ) ;

    SetMenuTitleWithCFString( menu , wxCFStringRef(str , encoding) ) ;
}

void UMASetMenuItemText( MenuRef menu,  MenuItemIndex item, const wxString& title, wxFontEncoding encoding )
{
    // we don't strip the accels here anymore, must be done before
    wxString str = title ;

    SetMenuItemTextWithCFString( menu , item , wxCFStringRef(str , encoding) ) ;
}

void UMAEnableMenuItem( MenuRef inMenu , MenuItemIndex inItem , bool enable)
{
    if ( enable )
        EnableMenuItem( inMenu , inItem ) ;
    else
        DisableMenuItem( inMenu , inItem ) ;
}

void UMAAppendSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , SInt16 id )
{
    AppendMenuItemTextWithCFString( menu,
                                CFSTR("A"), 0, 0,NULL);
    UMASetMenuItemText( menu, (SInt16) ::CountMenuItems(menu), title , encoding );
    SetMenuItemHierarchicalID( menu , CountMenuItems( menu ) , id ) ;
}

void UMAInsertSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , SInt16 id  )
{
    InsertMenuItemTextWithCFString( menu,
                CFSTR("A"), item, 0, 0);

    UMASetMenuItemText( menu, item+1, title , encoding );
    SetMenuItemHierarchicalID( menu , item+1 , id ) ;
}

void UMASetMenuItemShortcut( MenuRef menu , MenuItemIndex item , wxAcceleratorEntry *entry )
{
    if ( !entry )
        return ;

    UInt8 modifiers = 0 ;
    SInt16 key = entry->GetKeyCode() ;
    if ( key )
    {
        bool explicitCommandKey = (entry->GetFlags() & wxACCEL_CTRL);

        if (entry->GetFlags() & wxACCEL_ALT)
            modifiers |= kMenuOptionModifier ;

        if (entry->GetFlags() & wxACCEL_SHIFT)
            modifiers |= kMenuShiftModifier ;

        SInt16 glyph = 0 ;
        SInt16 macKey = key ;
        if ( key >= WXK_F1 && key <= WXK_F15 )
        {
            if ( !explicitCommandKey )
                modifiers |= kMenuNoCommandModifier ;

            // for some reasons this must be 0 right now
            // everything else leads to just the first function key item
            // to be selected. Thanks to Ryan Wilcox for finding out.
            macKey = 0 ;
            glyph = kMenuF1Glyph + ( key - WXK_F1 ) ;
            if ( key >= WXK_F13 )
                glyph += 12 ;
        }
        else
        {
            switch ( key )
            {
                case WXK_BACK :
                    macKey = kBackspaceCharCode ;
                    glyph = kMenuDeleteLeftGlyph ;
                    break ;

                case WXK_TAB :
                    macKey = kTabCharCode ;
                    glyph = kMenuTabRightGlyph ;
                    break ;

                case kEnterCharCode :
                    macKey = kEnterCharCode ;
                    glyph = kMenuEnterGlyph ;
                    break ;

                case WXK_RETURN :
                    macKey = kReturnCharCode ;
                    glyph = kMenuReturnGlyph ;
                    break ;

                case WXK_ESCAPE :
                    macKey = kEscapeCharCode ;
                    glyph = kMenuEscapeGlyph ;
                    break ;

                case WXK_SPACE :
                    macKey = ' ' ;
                    glyph = kMenuSpaceGlyph ;
                    break ;

                case WXK_DELETE :
                    macKey = kDeleteCharCode ;
                    glyph = kMenuDeleteRightGlyph ;
                    break ;

                case WXK_CLEAR :
                    macKey = kClearCharCode ;
                    glyph = kMenuClearGlyph ;
                    break ;

                case WXK_PAGEUP :
                    macKey = kPageUpCharCode ;
                    glyph = kMenuPageUpGlyph ;
                    break ;

                case WXK_PAGEDOWN :
                    macKey = kPageDownCharCode ;
                    glyph = kMenuPageDownGlyph ;
                    break ;

                case WXK_LEFT :
                    macKey = kLeftArrowCharCode ;
                    glyph = kMenuLeftArrowGlyph ;
                    break ;

                case WXK_UP :
                    macKey = kUpArrowCharCode ;
                    glyph = kMenuUpArrowGlyph ;
                    break ;

                case WXK_RIGHT :
                    macKey = kRightArrowCharCode ;
                    glyph = kMenuRightArrowGlyph ;
                    break ;

                case WXK_DOWN :
                    macKey = kDownArrowCharCode ;
                    glyph = kMenuDownArrowGlyph ;
                    break ;

                case WXK_HOME :
                    macKey = kHomeCharCode ;
                    glyph = kMenuNorthwestArrowGlyph ;
                    break ;

                case WXK_END :
                    macKey = kEndCharCode ;
                    glyph = kMenuSoutheastArrowGlyph ;
                    break ;
                default :
                    macKey = toupper( key ) ;
                    break ;
            }

            // we now allow non command key shortcuts
            // remove in case this gives problems
            if ( !explicitCommandKey )
                modifiers |= kMenuNoCommandModifier ;
        }

        // 1d and 1e have special meaning to SetItemCmd, so
        // do not use for these character codes.
        if (key != WXK_UP && key != WXK_RIGHT && key != WXK_DOWN && key != WXK_LEFT)
            SetItemCmd( menu, item , macKey );

        SetMenuItemModifiers( menu, item , modifiers ) ;

        if ( glyph )
            SetMenuItemKeyGlyph( menu, item , glyph ) ;
    }
}

void UMAAppendMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , wxAcceleratorEntry *entry )
{
    AppendMenuItemTextWithCFString( menu,
                                CFSTR("A"), 0, 0,NULL);
    // don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
    ChangeMenuItemAttributes( menu , ::CountMenuItems(menu), kMenuItemAttrIgnoreMeta , 0 ) ;
    UMASetMenuItemText(menu, (SInt16) ::CountMenuItems(menu), title , encoding );
    UMASetMenuItemShortcut( menu , (SInt16) ::CountMenuItems(menu), entry ) ;
}

void UMAInsertMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , wxAcceleratorEntry *entry )
{
    InsertMenuItemTextWithCFString( menu,
                CFSTR("A"), item, 0, 0);

    // don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
    ChangeMenuItemAttributes( menu , item+1, kMenuItemAttrIgnoreMeta , 0 ) ;
    UMASetMenuItemText(menu, item+1 , title , encoding );
    UMASetMenuItemShortcut( menu , item+1 , entry ) ;
}

#endif

#if wxMAC_USE_COCOA == 0

static OSStatus UMAGetHelpMenu(
                               MenuRef *        outHelpMenu,
                               MenuItemIndex *  outFirstCustomItemIndex,
                               bool             allowHelpMenuCreation);

static OSStatus UMAGetHelpMenu(
                               MenuRef *        outHelpMenu,
                               MenuItemIndex *  outFirstCustomItemIndex,
                               bool             allowHelpMenuCreation)
{
    static bool s_createdHelpMenu = false ;

    if ( !s_createdHelpMenu && !allowHelpMenuCreation )
    {
        return paramErr ;
    }

    OSStatus status = HMGetHelpMenu( outHelpMenu , outFirstCustomItemIndex ) ;
    s_createdHelpMenu = ( status == noErr ) ;
    return status ;
}

OSStatus UMAGetHelpMenu(
                        MenuRef *        outHelpMenu,
                        MenuItemIndex *  outFirstCustomItemIndex)
{
    return UMAGetHelpMenu( outHelpMenu , outFirstCustomItemIndex , true );
}

OSStatus UMAGetHelpMenuDontCreate(
                                  MenuRef *        outHelpMenu,
                                  MenuItemIndex *  outFirstCustomItemIndex)
{
    return UMAGetHelpMenu( outHelpMenu , outFirstCustomItemIndex , false );
}

#endif

#endif  // wxUSE_GUI
Commit	Line	Data
	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	#include "wx/mac/uma.h"
	15
	16	#if wxUSE_GUI
	17
	18	#include "wx/toplevel.h"
	19	#include "wx/dc.h"
	20
	21	#include "wx/mac/uma.h"
	22
	23	static SInt32 sUMASystemVersion = 0 ;
	24
	25	long UMAGetSystemVersion()
	26	{
	27	if ( sUMASystemVersion == 0 )
	28	{
	29	verify_noerr(Gestalt(gestaltSystemVersion, &sUMASystemVersion));
	30	}
	31	return sUMASystemVersion ;
	32	}
	33
	34	void UMAInitToolbox( UInt16 WXUNUSED(inMoreMastersCalls),
	35	bool WXUNUSED(isEmbedded) )
	36	{
	37	#if 0 // ndef __LP64__
	38	{
	39	FontFamilyID fontId ;
	40	Str255 fontName ;
	41	SInt16 fontSize ;
	42	Style fontStyle ;
	43
	44	GetThemeFont(kThemeSmallSystemFont , GetApplicationScript() , fontName , &fontSize , &fontStyle ) ;
	45	GetFNum( fontName, &fontId );
	46
	47	TXNMacOSPreferredFontDescription fontDescriptions[] =
	48	{
	49	{ fontId , (fontSize << 16) , kTXNDefaultFontStyle, kTXNSystemDefaultEncoding }
	50	} ;
	51	int noOfFontDescriptions = sizeof( fontDescriptions ) / sizeof(TXNMacOSPreferredFontDescription) ;
	52
	53	OptionBits options = 0 ;
	54
	55	TXNInitTextension( fontDescriptions, noOfFontDescriptions, options );
	56	}
	57	#endif
	58	}
	59
	60	// menu manager
	61
	62	#if wxMAC_USE_COCOA == 0
	63
	64	MenuRef UMANewMenu( SInt16 id , const wxString& title , wxFontEncoding encoding )
	65	{
	66	wxString str = wxStripMenuCodes( title ) ;
	67	MenuRef menu ;
	68
	69	CreateNewMenu( id , 0 , &menu ) ;
	70	SetMenuTitleWithCFString( menu , wxCFStringRef(str , encoding ) ) ;
	71
	72	return menu ;
	73	}
	74
	75	void UMASetMenuTitle( MenuRef menu , const wxString& title , wxFontEncoding encoding )
	76	{
	77	wxString str = wxStripMenuCodes( title ) ;
	78
	79	SetMenuTitleWithCFString( menu , wxCFStringRef(str , encoding) ) ;
	80	}
	81
	82	void UMASetMenuItemText( MenuRef menu, MenuItemIndex item, const wxString& title, wxFontEncoding encoding )
	83	{
	84	// we don't strip the accels here anymore, must be done before
	85	wxString str = title ;
	86
	87	SetMenuItemTextWithCFString( menu , item , wxCFStringRef(str , encoding) ) ;
	88	}
	89
	90	void UMAEnableMenuItem( MenuRef inMenu , MenuItemIndex inItem , bool enable)
	91	{
	92	if ( enable )
	93	EnableMenuItem( inMenu , inItem ) ;
	94	else
	95	DisableMenuItem( inMenu , inItem ) ;
	96	}
	97
	98	void UMAAppendSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , SInt16 id )
	99	{
	100	AppendMenuItemTextWithCFString( menu,
	101	CFSTR("A"), 0, 0,NULL);
	102	UMASetMenuItemText( menu, (SInt16) ::CountMenuItems(menu), title , encoding );
	103	SetMenuItemHierarchicalID( menu , CountMenuItems( menu ) , id ) ;
	104	}
	105
	106	void UMAInsertSubMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , SInt16 id )
	107	{
	108	InsertMenuItemTextWithCFString( menu,
	109	CFSTR("A"), item, 0, 0);
	110
	111	UMASetMenuItemText( menu, item+1, title , encoding );
	112	SetMenuItemHierarchicalID( menu , item+1 , id ) ;
	113	}
	114
	115	void UMASetMenuItemShortcut( MenuRef menu , MenuItemIndex item , wxAcceleratorEntry *entry )
	116	{
	117	if ( !entry )
	118	return ;
	119
	120	UInt8 modifiers = 0 ;
	121	SInt16 key = entry->GetKeyCode() ;
	122	if ( key )
	123	{
	124	bool explicitCommandKey = (entry->GetFlags() & wxACCEL_CTRL);
	125
	126	if (entry->GetFlags() & wxACCEL_ALT)
	127	modifiers \|= kMenuOptionModifier ;
	128
	129	if (entry->GetFlags() & wxACCEL_SHIFT)
	130	modifiers \|= kMenuShiftModifier ;
	131
	132	SInt16 glyph = 0 ;
	133	SInt16 macKey = key ;
	134	if ( key >= WXK_F1 && key <= WXK_F15 )
	135	{
	136	if ( !explicitCommandKey )
	137	modifiers \|= kMenuNoCommandModifier ;
	138
	139	// for some reasons this must be 0 right now
	140	// everything else leads to just the first function key item
	141	// to be selected. Thanks to Ryan Wilcox for finding out.
	142	macKey = 0 ;
	143	glyph = kMenuF1Glyph + ( key - WXK_F1 ) ;
	144	if ( key >= WXK_F13 )
	145	glyph += 12 ;
	146	}
	147	else
	148	{
	149	switch ( key )
	150	{
	151	case WXK_BACK :
	152	macKey = kBackspaceCharCode ;
	153	glyph = kMenuDeleteLeftGlyph ;
	154	break ;
	155
	156	case WXK_TAB :
	157	macKey = kTabCharCode ;
	158	glyph = kMenuTabRightGlyph ;
	159	break ;
	160
	161	case kEnterCharCode :
	162	macKey = kEnterCharCode ;
	163	glyph = kMenuEnterGlyph ;
	164	break ;
	165
	166	case WXK_RETURN :
	167	macKey = kReturnCharCode ;
	168	glyph = kMenuReturnGlyph ;
	169	break ;
	170
	171	case WXK_ESCAPE :
	172	macKey = kEscapeCharCode ;
	173	glyph = kMenuEscapeGlyph ;
	174	break ;
	175
	176	case WXK_SPACE :
	177	macKey = ' ' ;
	178	glyph = kMenuSpaceGlyph ;
	179	break ;
	180
	181	case WXK_DELETE :
	182	macKey = kDeleteCharCode ;
	183	glyph = kMenuDeleteRightGlyph ;
	184	break ;
	185
	186	case WXK_CLEAR :
	187	macKey = kClearCharCode ;
	188	glyph = kMenuClearGlyph ;
	189	break ;
	190
	191	case WXK_PAGEUP :
	192	macKey = kPageUpCharCode ;
	193	glyph = kMenuPageUpGlyph ;
	194	break ;
	195
	196	case WXK_PAGEDOWN :
	197	macKey = kPageDownCharCode ;
	198	glyph = kMenuPageDownGlyph ;
	199	break ;
	200
	201	case WXK_LEFT :
	202	macKey = kLeftArrowCharCode ;
	203	glyph = kMenuLeftArrowGlyph ;
	204	break ;
	205
	206	case WXK_UP :
	207	macKey = kUpArrowCharCode ;
	208	glyph = kMenuUpArrowGlyph ;
	209	break ;
	210
	211	case WXK_RIGHT :
	212	macKey = kRightArrowCharCode ;
	213	glyph = kMenuRightArrowGlyph ;
	214	break ;
	215
	216	case WXK_DOWN :
	217	macKey = kDownArrowCharCode ;
	218	glyph = kMenuDownArrowGlyph ;
	219	break ;
	220
	221	case WXK_HOME :
	222	macKey = kHomeCharCode ;
	223	glyph = kMenuNorthwestArrowGlyph ;
	224	break ;
	225
	226	case WXK_END :
	227	macKey = kEndCharCode ;
	228	glyph = kMenuSoutheastArrowGlyph ;
	229	break ;
	230	default :
	231	macKey = toupper( key ) ;
	232	break ;
	233	}
	234
	235	// we now allow non command key shortcuts
	236	// remove in case this gives problems
	237	if ( !explicitCommandKey )
	238	modifiers \|= kMenuNoCommandModifier ;
	239	}
	240
	241	// 1d and 1e have special meaning to SetItemCmd, so
	242	// do not use for these character codes.
	243	if (key != WXK_UP && key != WXK_RIGHT && key != WXK_DOWN && key != WXK_LEFT)
	244	SetItemCmd( menu, item , macKey );
	245
	246	SetMenuItemModifiers( menu, item , modifiers ) ;
	247
	248	if ( glyph )
	249	SetMenuItemKeyGlyph( menu, item , glyph ) ;
	250	}
	251	}
	252
	253	void UMAAppendMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , wxAcceleratorEntry *entry )
	254	{
	255	AppendMenuItemTextWithCFString( menu,
	256	CFSTR("A"), 0, 0,NULL);
	257	// don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
	258	ChangeMenuItemAttributes( menu , ::CountMenuItems(menu), kMenuItemAttrIgnoreMeta , 0 ) ;
	259	UMASetMenuItemText(menu, (SInt16) ::CountMenuItems(menu), title , encoding );
	260	UMASetMenuItemShortcut( menu , (SInt16) ::CountMenuItems(menu), entry ) ;
	261	}
	262
	263	void UMAInsertMenuItem( MenuRef menu , const wxString& title, wxFontEncoding encoding , MenuItemIndex item , wxAcceleratorEntry *entry )
	264	{
	265	InsertMenuItemTextWithCFString( menu,
	266	CFSTR("A"), item, 0, 0);
	267
	268	// don't attempt to interpret metacharacters like a '-' at the beginning (would become a separator otherwise)
	269	ChangeMenuItemAttributes( menu , item+1, kMenuItemAttrIgnoreMeta , 0 ) ;
	270	UMASetMenuItemText(menu, item+1 , title , encoding );
	271	UMASetMenuItemShortcut( menu , item+1 , entry ) ;
	272	}
	273
	274	#endif
	275
	276	#if wxMAC_USE_COCOA == 0
	277
	278	static OSStatus UMAGetHelpMenu(
	279	MenuRef * outHelpMenu,
	280	MenuItemIndex * outFirstCustomItemIndex,
	281	bool allowHelpMenuCreation);
	282
	283	static OSStatus UMAGetHelpMenu(
	284	MenuRef * outHelpMenu,
	285	MenuItemIndex * outFirstCustomItemIndex,
	286	bool allowHelpMenuCreation)
	287	{
	288	static bool s_createdHelpMenu = false ;
	289
	290	if ( !s_createdHelpMenu && !allowHelpMenuCreation )
	291	{
	292	return paramErr ;
	293	}
	294
	295	OSStatus status = HMGetHelpMenu( outHelpMenu , outFirstCustomItemIndex ) ;
	296	s_createdHelpMenu = ( status == noErr ) ;
	297	return status ;
	298	}
	299
	300	OSStatus UMAGetHelpMenu(
	301	MenuRef * outHelpMenu,
	302	MenuItemIndex * outFirstCustomItemIndex)
	303	{
	304	return UMAGetHelpMenu( outHelpMenu , outFirstCustomItemIndex , true );
	305	}
	306
	307	OSStatus UMAGetHelpMenuDontCreate(
	308	MenuRef * outHelpMenu,
	309	MenuItemIndex * outFirstCustomItemIndex)
	310	{
	311	return UMAGetHelpMenu( outHelpMenu , outFirstCustomItemIndex , false );
	312	}
	313
	314	#endif
	315
	316	#endif // wxUSE_GUI