+
+#if wxMAC_USE_EXPERIMENTAL_FONTDIALOG
+
+IMPLEMENT_DYNAMIC_CLASS(wxFontDialog, wxDialog)
+
+#include "wx/mac/private.h"
+
+// ---------------------------------------------------------------------------
+// wxFontDialog
+// ---------------------------------------------------------------------------
+
+static const EventTypeSpec eventList[] =
+{
+ { kEventClassFont, kEventFontSelection } ,
+} ;
+
+
+pascal OSStatus wxMacCarbonFontPanelHandler(EventHandlerCallRef nextHandler, EventRef event, void *userData)
+{
+ OSStatus result = eventNotHandledErr ;
+ wxFontDialog *fontdialog = (wxFontDialog*) userData ;
+ wxFontData& fontdata= fontdialog->GetFontData() ;
+
+ wxMacCarbonEvent cEvent( event );
+ switch(cEvent.GetKind())
+ {
+ case kEventFontSelection :
+ {
+ ATSUFontID fontId = 0 ;
+ if ( cEvent.GetParameter<ATSUFontID>(kEventParamATSUFontID, &fontId) == noErr )
+ {
+ FMFontStyle fontStyle = cEvent.GetParameter<FMFontStyle>(kEventParamFMFontStyle);
+ FMFontSize fontSize = cEvent.GetParameter<FMFontSize>(kEventParamFMFontSize);
+
+ CFStringRef cfName = NULL;
+#if 1
+ FMFontFamily fontFamily = cEvent.GetParameter<FMFontFamily>(kEventParamFMFontFamily);
+ ATSFontFamilyRef atsfontfamilyref = FMGetATSFontFamilyRefFromFontFamily( fontFamily ) ;
+ OSStatus err = ATSFontFamilyGetName( atsfontfamilyref , kATSOptionFlagsDefault , &cfName ) ;
+ wxASSERT_MSG( err == noErr , wxT("ATSFontFamilyGetName failed") );
+#else
+ // we don't use the ATSU naming anymore
+ ByteCount actualLength = 0;
+ char *c = NULL;
+ OSStatus err = ATSUFindFontName(fontId , kFontFamilyName, kFontUnicodePlatform, kFontNoScriptCode,
+ kFontNoLanguageCode , 0 , NULL , &actualLength , NULL );
+ if ( err == noErr)
+ {
+ actualLength += 1 ;
+ char *c = (char*)malloc( actualLength );
+ err = ATSUFindFontName(fontId, kFontFamilyName, kFontUnicodePlatform, kFontNoScriptCode,
+ kFontNoLanguageCode, actualLength, c , NULL, NULL);
+ cfName = CFStringCreateWithCharacters(NULL, (UniChar*) c, (actualLength-1) >> 1);
+ }
+ else
+ {
+ err = ATSUFindFontName(fontId , kFontFamilyName, kFontNoPlatformCode, kFontNoScriptCode,
+ kFontNoLanguageCode , 0 , NULL , &actualLength , NULL );
+ if ( err == noErr )
+ {
+ actualLength += 1 ;
+ c = (char*)malloc(actualLength);
+ err = ATSUFindFontName(fontId, kFontFamilyName, kFontNoPlatformCode, kFontNoScriptCode,
+ kFontNoLanguageCode, actualLength, c , NULL, NULL);
+ c[actualLength-1] = 0;
+ cfName = CFStringCreateWithCString(NULL, c, kCFStringEncodingMacRoman );
+ }
+ }
+ if ( c!=NULL )
+ free(c);
+#endif
+
+ if ( cfName!=NULL )
+ {
+ fontdata.m_chosenFont.SetFaceName(wxMacCFStringHolder(cfName).AsString(wxLocale::GetSystemEncoding()));
+ fontdata.m_chosenFont.SetPointSize(fontSize);
+ fontdata.m_chosenFont.SetStyle(fontStyle & italic ? wxFONTSTYLE_ITALIC : wxFONTSTYLE_NORMAL);
+ fontdata.m_chosenFont.SetUnderlined((fontStyle & underline)!=0);
+ fontdata.m_chosenFont.SetWeight(fontStyle & bold ? wxFONTWEIGHT_BOLD : wxFONTWEIGHT_NORMAL);
+ }
+ }
+
+ RGBColor fontColor ;
+ if ( cEvent.GetParameter<RGBColor>(kEventParamFontColor, &fontColor) == noErr )
+ fontdata.m_fontColour.FromRGBColor((WXCOLORREF*) &fontColor);
+ else
+ {
+ CFDictionaryRef dict ;
+ if ( cEvent.GetParameter<CFDictionaryRef>(kEventParamDictionary, &dict) == noErr )
+ {
+ CFDictionaryRef attributesDict ;
+ if ( CFDictionaryGetValueIfPresent(dict, kFontPanelAttributesKey, (const void **)&attributesDict) )
+ {
+ CFDataRef tagsData;
+ CFDataRef sizesData;
+ CFDataRef valuesData;
+ if ( CFDictionaryGetValueIfPresent(attributesDict, kFontPanelAttributeTagsKey, (const void **)&tagsData) &&
+ CFDictionaryGetValueIfPresent(attributesDict, kFontPanelAttributeSizesKey, (const void **)&sizesData) &&
+ CFDictionaryGetValueIfPresent(attributesDict, kFontPanelAttributeValuesKey, (const void **)&valuesData) )
+ {
+ ItemCount count = CFDataGetLength(tagsData)/sizeof(ATSUAttributeTag);
+ ATSUAttributeTag *tagPtr = (ATSUAttributeTag *)CFDataGetBytePtr(tagsData);
+ ByteCount *sizePtr = (ByteCount *)CFDataGetBytePtr(sizesData);
+ UInt32 *bytePtr = (UInt32*)CFDataGetBytePtr(valuesData);
+ ATSUAttributeValuePtr valuesPtr = bytePtr ;
+ for ( ItemCount i = 0 ; i < count ; ++i)
+ {
+ if ( tagPtr[i] == kATSUColorTag && sizePtr[i] == sizeof(RGBColor))
+ {
+ fontdata.m_fontColour.FromRGBColor((WXCOLORREF*) valuesPtr);
+ break ;
+ }
+ bytePtr = (UInt32*)( (UInt8*)bytePtr + sizePtr[i]);
+ }
+ }
+ }
+ }
+ }
+ }
+ break ;
+ } ;
+
+ return result ;
+}
+
+DEFINE_ONE_SHOT_HANDLER_GETTER( wxMacCarbonFontPanelHandler )
+
+wxFontDialog::wxFontDialog()
+{
+}
+
+wxFontDialog::wxFontDialog(wxWindow *parent, const wxFontData& data)
+{
+ Create(parent, data);
+}
+
+wxFontDialog::~wxFontDialog()
+{
+}
+
+bool wxFontDialog::Create(wxWindow *parent, const wxFontData& data)
+{
+ m_fontData = data;
+ return true ;
+}
+
+int wxFontDialog::ShowModal()
+{
+ OSStatus err ;
+ wxFont font = *wxNORMAL_FONT ;
+ if ( m_fontData.m_initialFont.Ok() )
+ {
+ font = m_fontData.m_initialFont ;
+ }
+
+ ATSUStyle style = (ATSUStyle)font.MacGetATSUStyle();
+ err = SetFontInfoForSelection (kFontSelectionATSUIType,1, &style , NULL);
+ // just clicking on ENTER will not send us any font setting event, therefore we have to make sure
+ // that field is already correct
+ m_fontData.m_chosenFont = font ;
+
+ EventHandlerRef handler ;
+
+ err = InstallApplicationEventHandler( GetwxMacCarbonFontPanelHandlerUPP(), GetEventTypeCount(eventList), eventList, this , &handler );
+
+ if ( !FPIsFontPanelVisible() )
+ FPShowHideFontPanel();
+
+ int retval = RunMixedFontDialog(this);
+
+ ::RemoveEventHandler(handler);
+
+ return retval ;
+}
+
+#else
projects / wxWidgets.git / blobdiff