native font dialog implementation for mac os x 10.2+

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@29397 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

include/wx/mac/carbon/fontdlg.h

@@ -1,12 +1,11 @@
 /////////////////////////////////////////////////////////////////////////////
 // Name:        fontdlg.h
-// Purpose:     wxFontDialog class. Use generic version if no
+// Purpose:     wxFontDialog class using fonts window services (10.2+). 
-//              platform-specific implementation.
+// Author:      Ryan Norton
-// Author:      Stefan Csomor
 // Modified by:
-// Created:     1998-01-01
+// Created:     2004-09-25
 // RCS-ID:      $Id$
-// Copyright:   (c) Stefan Csomor
+// Copyright:   (c) Ryan Norton
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
@@ -27,18 +26,24 @@
 class WXDLLEXPORT wxFontDialog: public wxDialog
 {
 DECLARE_DYNAMIC_CLASS(wxFontDialog)
+
 public:
     wxFontDialog();
     wxFontDialog(wxWindow *parent, const wxFontData& data);
+    ~wxFontDialog();
 
     bool Create(wxWindow *parent, const wxFontData& data);
 
     int ShowModal();
     wxFontData& GetFontData() { return m_fontData; }
+    bool IsShown() const;
+    void OnPanelClose();
+    void SetData(wxFontData& data);
 
 protected:
     wxWindow*   m_dialogParent;
     wxFontData  m_fontData;
+    void*		m_pEventHandlerRef;
 };
 
 #endif

src/mac/carbon/fontdlg.cpp

@@ -1,13 +1,12 @@
 /////////////////////////////////////////////////////////////////////////////
 // Name:        fontdlg.cpp
-// Purpose:     wxFontDialog class. NOTE: you can use the generic class
+// Purpose:     wxFontDialog class for carbon 10.2+.
-//              if you wish, instead of implementing this.
+// Author:      Ryan Norton
-// Author:      Stefan Csomor
 // Modified by:
 // Created:     1998-01-01
 // RCS-ID:      $Id$
-// Copyright:   (c) Stefan Csomor
+// Copyright:   (c) Ryan Norton
-// Licence:       wxWindows licence
+// Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
 #ifdef __GNUG__
@@ -21,9 +20,248 @@
 IMPLEMENT_DYNAMIC_CLASS(wxFontDialog, wxDialog)
 #endif
 
-/*
+#include "wx/mac/private.h"
- * wxFontDialog
+
- */
+#if defined( __WXMAC__ ) && TARGET_API_MAC_OSX && ( MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2 )
+
+#include <ATSUnicode.h>
+
+#include "wx/msgdlg.h"
+
+pascal OSStatus wxFontDialogEventHandler(	EventHandlerCallRef inHandlerCallRef,
+									EventRef event, void* pData)
+{
+    wxASSERT(GetEventClass(event) == kEventClassFont && 
+             GetEventKind(event) == kEventFontSelection);
+   
+    OSStatus status = noErr;
+    
+    ATSUFontID fontid;
+    Fixed fontsize;
+    RGBColor fontcolor;
+    FMFontStyle fontstyle;
+        
+    status = GetEventParameter (event, kEventParamFMFontStyle,
+                                    typeFMFontStyle, NULL,
+                                    sizeof (FMFontStyle), 
+                                    NULL, &(fontstyle)); 
+    check_noerr (status); 
+
+    status = GetEventParameter (event, kEventParamATSUFontID,
+                                    typeATSUFontID, NULL,
+                                    sizeof (ATSUFontID), 
+                                    NULL, &(fontid)); 
+    check_noerr (status); 
+
+    status = GetEventParameter (event, kEventParamATSUFontSize,
+                                    typeATSUSize, NULL,
+                                    sizeof (Fixed), 
+                                    NULL, &(fontsize)); 
+
+    check_noerr (status);
+
+    status = GetEventParameter (event, kEventParamFontColor,
+                                    typeRGBColor, NULL,
+                                    sizeof( RGBColor ), NULL, &fontcolor); 
+    check_noerr (status);
+    
+    //TODO:
+    //TODO:	Make a utility function for converting ATSU to WX font (what we're doing :))
+    //TODO:
+        
+    //now do the conversion to the wx font data
+    wxFontData theFontData;
+    wxFont 	   theFont;
+ 
+    //first, the easy part - set the color
+    wxColour theColor;
+    theColor.Set(&(WXCOLORREF&)fontcolor);
+    theFontData.SetColour(theColor);
+    
+    //
+    //now the hard part - convert the atsu font to a wx font
+    //
+    
+    //point size - fixed, but straight conversion, I think
+    theFont.SetPointSize(fontsize >> 16);
+    
+    //font name - first get length, then allocate/copy/deallocate name buffer
+    FontNameCode 		theNameCode;
+    FontPlatformCode	thePlatformCode; 	
+    FontScriptCode		theScriptCode;
+    FontLanguageCode	theLanguageCode;    
+    //the above have types in SFNTTypes.h
+
+    ByteCount 			theActualLength;
+    ATSUGetIndFontName(fontid, 
+                       0, //first font in index array
+                       0, //need to get length first
+                       NULL, //nothin'
+                       &theActualLength,
+                       &theNameCode,
+                       &thePlatformCode,
+                       &theScriptCode,
+                       &theLanguageCode);
+    
+    Ptr szBuffer = new wxChar[theActualLength];
+    ATSUGetIndFontName(fontid, 
+                       0, //first font in index array
+                       theActualLength, 
+                       szBuffer, 
+                       &theActualLength,
+                       &theNameCode,
+                       &thePlatformCode,
+                       &theScriptCode,
+                       &theLanguageCode);
+    
+    //its unicode - convert it to wx's char value and put it in there
+    theFont.SetFaceName(wxConvLocal.cWC2WX((wchar_t*)szBuffer));
+    delete[] szBuffer;
+    
+    //TODOTODO: Get font family - mayby by the script code?
+    theFont.SetFamily(wxDEFAULT);  
+
+    //TODOTODO: Get other styles?  Font weight?
+    theFont.SetStyle(0 +
+                     ((fontstyle & bold) ? wxFONTFLAG_BOLD : 0) +
+                     ((fontstyle & italic) ? wxFONTFLAG_ITALIC : 0) +
+                     ((fontstyle & underline) ? wxFONTFLAG_UNDERLINED : 0)
+                     );
+    theFont.SetWeight((fontstyle & bold) ? wxBOLD : wxNORMAL);   
+    
+    //for debugging
+    //wxPrintf(wxT("FaceName:%s\nSize:%i\n"), theFont.GetFaceName().c_str(), theFont.GetPointSize());
+    
+    //phew!!  We're done - set the chosen font
+    theFontData.SetChosenFont(theFont);
+    ((wxFontDialog*)pData)->SetData(theFontData);
+    
+    return status;
+}
+
+DEFINE_ONE_SHOT_HANDLER_GETTER( wxFontDialogEventHandler );
+
+//---------------------------
+//	Class implementation
+//---------------------------
+
+wxFontDialog::wxFontDialog() :
+    m_dialogParent(NULL), m_pEventHandlerRef(NULL)
+{
+}
+
+wxFontDialog::wxFontDialog(wxWindow *parent, const wxFontData&  data)
+{
+    Create(parent, data);
+}
+
+wxFontDialog::~wxFontDialog()
+{
+    if (m_pEventHandlerRef)
+        ::RemoveEventHandler((EventHandlerRef&)m_pEventHandlerRef);
+}
+
+void wxFontDialog::SetData(wxFontData& fontdata)
+{
+    m_fontData = fontdata;
+}
+
+bool wxFontDialog::Create(wxWindow *parent, const wxFontData& data)
+{
+    m_dialogParent = parent;
+    m_fontData = data;
+
+    //Register the events that will return this dialog
+	EventTypeSpec ftEventList[] = { { kEventClassFont, kEventFontSelection } };
+
+    OSStatus err = noErr;
+  
+//FIXMEFIXME: Why doesn't it recieve events if there's a parent?
+//    if (parent)
+//    {
+//       err = InstallWindowEventHandler(
+//            MAC_WXHWND(parent->GetHandle()),
+//            GetwxFontDialogEventHandlerUPP(),
+//            GetEventTypeCount(ftEventList), ftEventList, 
+//			this, (&(EventHandlerRef&)m_pEventHandlerRef));
+//            
+//    }
+//    else //no parent - send to app
+//    {
+        err = InstallApplicationEventHandler(
+            GetwxFontDialogEventHandlerUPP(),
+            GetEventTypeCount(ftEventList), ftEventList, 
+			this, (&(EventHandlerRef&)m_pEventHandlerRef));
+//	  }
+    		
+    return err == noErr;
+}
+
+bool wxFontDialog::IsShown() const
+{
+    return FPIsFontPanelVisible();
+}
+
+int wxFontDialog::ShowModal()
+{
+    wxASSERT(!FPIsFontPanelVisible());
+    
+    //set up initial font
+    wxFont theInitialFont = m_fontData.GetInitialFont();
+
+    //create ATSU style
+    ATSUStyle theStyle;
+    OSStatus status = ATSUCreateStyle(&theStyle);
+    check_noerr(status);
+
+    //put stuff into the style - we don't need kATSUColorTag    
+    ATSUFontID 				fontid = theInitialFont.MacGetATSUFontID();
+    Fixed					fontsize = theInitialFont.MacGetFontSize() << 16;
+    ATSUAttributeTag    	theTags[2] = { kATSUFontTag, kATSUSizeTag };
+    ByteCount           	theSizes[2] = { sizeof(ATSUFontID), sizeof(Fixed) };
+    ATSUAttributeValuePtr   theValues[2] = { &fontid, 
+                                             &fontsize };
+    
+    //set the stuff for the ATSU style
+    verify_noerr (ATSUSetAttributes (theStyle, 2, theTags, theSizes, theValues) ); 
+    
+    //they set us up the bomb!  Set the initial font of the dialog
+    SetFontInfoForSelection(kFontSelectionATSUIType,
+                            1, 
+                            &theStyle,
+                            (HIObjectRef) 
+                                (m_dialogParent ? 
+                                 GetWindowEventTarget(MAC_WXHWND(m_dialogParent->GetHandle())) :
+                                 GetApplicationEventTarget())
+                            );
+    
+    //dispose of the style
+    status = ATSUDisposeStyle(theStyle);
+    check_noerr(status);
+    
+    //finally, show the font dialog
+    if( (status = FPShowHideFontPanel()) == noErr)
+    {
+        while(FPIsFontPanelVisible()) 
+        {
+            //yeild so we can get events
+            ::wxSafeYield(m_dialogParent, false);
+        }
+    }
+    else
+        return wxID_CANCEL;
+    
+    return wxID_OK;
+}
+
+
+#else
+   //10.2+ only
+   
+   
+//
+//	no native implementation
+//
 
 wxFontDialog::wxFontDialog()
 {
@@ -35,6 +273,11 @@ wxFontDialog::wxFontDialog(wxWindow *parent, const wxFontData&  data)
     Create(parent, data);
 }
 
+void wxFontDialog::SetData(wxFontData& fontdata)
+{
+    m_fontData = fontdata;
+}
+
 bool wxFontDialog::Create(wxWindow *parent, const wxFontData& data)
 {
     m_dialogParent = parent;
@@ -46,9 +289,15 @@ bool wxFontDialog::Create(wxWindow *parent, const wxFontData& data)
     return TRUE;
 }
 
+bool wxFontDialog::IsShown() const
+{
+    return false;
+}
+
 int wxFontDialog::ShowModal()
 {
     // TODO: show (maybe create) the dialog
     return wxID_CANCEL;
 }
 
+#endif // 10.2+