From 6c4a74f67e8c17ed9eb0bc8c1c7df17d9601fbac Mon Sep 17 00:00:00 2001
From: Stefan Csomor <csomor@advancedconcepts.ch>
Date: Sun, 24 Nov 2002 17:05:52 +0000
Subject: [PATCH] added code for always getting back the real font name even
 though only a family was given.

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_4_BRANCH@17963 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---
 src/mac/carbon/font.cpp | 4 ++++
 src/mac/font.cpp        | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/src/mac/carbon/font.cpp b/src/mac/carbon/font.cpp
index eec71c52ee..d1b4798cc4 100644
--- a/src/mac/carbon/font.cpp
+++ b/src/mac/carbon/font.cpp
@@ -89,6 +89,10 @@ void wxFontRefData::MacFindFont()
 				::GetFNum( "\pMonaco" , &m_macFontNum) ;
 				break ;
 		}
+		Str255 name ;
+		GetFontName( m_macFontNum , name ) ;
+		CopyPascalStringToC( name , (char*) name ) ;
+		m_faceName = (char*) name ;
 	}
 	else
 	{
diff --git a/src/mac/font.cpp b/src/mac/font.cpp
index eec71c52ee..d1b4798cc4 100644
--- a/src/mac/font.cpp
+++ b/src/mac/font.cpp
@@ -89,6 +89,10 @@ void wxFontRefData::MacFindFont()
 				::GetFNum( "\pMonaco" , &m_macFontNum) ;
 				break ;
 		}
+		Str255 name ;
+		GetFontName( m_macFontNum , name ) ;
+		CopyPascalStringToC( name , (char*) name ) ;
+		m_faceName = (char*) name ;
 	}
 	else
 	{