+/////////////////////////////////////////////////////////////////////////////
+// Name: unix/fontutil.cpp
+// Purpose: Font helper functions for X11 (GDK/X)
+// Author: Vadim Zeitlin
+// Modified by:
+// Created: 05.11.99
+// RCS-ID: $Id$
+// Copyright: (c) Vadim Zeitlin
+// Licence: wxWindows license
+/////////////////////////////////////////////////////////////////////////////
+
+// ============================================================================
+// declarations
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// headers
+// ----------------------------------------------------------------------------
+
+#ifdef __GNUG__
+ #pragma implementation "fontutil.h"
+#endif
+
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#ifdef __BORLANDC__
+ #pragma hdrstop
+#endif
+
+#ifndef WX_PRECOMP
+#endif // PCH
+
+#include "wx/fontutil.h"
+#include "wx/fontmap.h"
+#include "wx/tokenzr.h"
+
+// ----------------------------------------------------------------------------
+// private functions
+// ----------------------------------------------------------------------------
+
+// define the functions to create and destroy native fonts for this toolkit
+#ifdef __X__
+ static inline wxNativeFont wxLoadFont(const wxString& fontSpec)
+ {
+ return XLoadQueryFont((Display *)wxGetDisplay(), fontSpec);
+ }
+
+ static inline void wxFreeFont(wxNativeFont font)
+ {
+ XFreeFont((Display *)wxGetDisplay(), font);
+ }
+#elif defined(__WXGTK__)
+ #include "gdk/gdk.h"
+
+ static inline wxNativeFont wxLoadFont(const wxString& fontSpec)
+ {
+ return gdk_font_load( wxConvertWX2MB(fontSpec) );
+ }
+
+ static inline void wxFreeFont(wxNativeFont font)
+ {
+ gdk_font_unref(font);
+ }
+#else
+ #error "Unknown GUI toolkit"
+#endif
+
+static bool wxTestFontSpec(const wxString& fontspec);
+
+static wxNativeFont wxLoadQueryFont(int pointSize,
+ int family,
+ int style,
+ int weight,
+ bool underlined,
+ const wxString& facename,
+ const wxString& xregistry,
+ const wxString& xencoding);
+
+// ============================================================================
+// implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// wxNativeEncodingInfo
+// ----------------------------------------------------------------------------
+
+// convert to/from the string representation: format is
+// registry-encoding[-facename]
+bool wxNativeEncodingInfo::FromString(const wxString& s)
+{
+ wxStringTokenizer tokenizer(s, _T("-"));
+
+ xregistry = tokenizer.GetNextToken();
+ if ( !xregistry )
+ return FALSE;
+
+ xencoding = tokenizer.GetNextToken();
+ if ( !xencoding )
+ return FALSE;
+
+ // ok even if empty
+ facename = tokenizer.GetNextToken();
+
+ return TRUE;
+}
+
+wxString wxNativeEncodingInfo::ToString() const
+{
+ wxString s;
+ s << xregistry << _T('-') << xencoding;
+ if ( !!facename )
+ {
+ s << _T('-') << facename;
+ }
+
+ return s;
+}
+
+// ----------------------------------------------------------------------------
+// common functions
+// ----------------------------------------------------------------------------
+
+bool wxGetNativeFontEncoding(wxFontEncoding encoding,
+ wxNativeEncodingInfo *info)
+{
+ wxCHECK_MSG( info, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );
+
+ if ( encoding == wxFONTENCODING_DEFAULT )
+ {
+ encoding = wxFont::GetDefaultEncoding();
+ }
+
+ switch ( encoding )
+ {
+ case wxFONTENCODING_ISO8859_1:
+ case wxFONTENCODING_ISO8859_2:
+ case wxFONTENCODING_ISO8859_3:
+ case wxFONTENCODING_ISO8859_4:
+ case wxFONTENCODING_ISO8859_5:
+ case wxFONTENCODING_ISO8859_6:
+ case wxFONTENCODING_ISO8859_7:
+ case wxFONTENCODING_ISO8859_8:
+ case wxFONTENCODING_ISO8859_9:
+ case wxFONTENCODING_ISO8859_10:
+ case wxFONTENCODING_ISO8859_11:
+ case wxFONTENCODING_ISO8859_13:
+ case wxFONTENCODING_ISO8859_14:
+ case wxFONTENCODING_ISO8859_15:
+ {
+ int cp = encoding - wxFONTENCODING_ISO8859_1 + 1;
+ info->xregistry = wxT("iso8859");
+ info->xencoding.Printf(wxT("%d"), cp);
+ }
+ break;
+
+ case wxFONTENCODING_KOI8:
+ info->xregistry = wxT("koi8");
+
+ // we don't make distinction between koi8-r and koi8-u (so far)
+ info->xencoding = wxT("*");
+ break;
+
+ case wxFONTENCODING_CP1250:
+ case wxFONTENCODING_CP1251:
+ case wxFONTENCODING_CP1252:
+ case wxFONTENCODING_CP1253:
+ case wxFONTENCODING_CP1254:
+ case wxFONTENCODING_CP1255:
+ case wxFONTENCODING_CP1256:
+ case wxFONTENCODING_CP1257:
+ {
+ int cp = encoding - wxFONTENCODING_CP1250 + 1250;
+ info->xregistry = wxT("microsoft");
+ info->xencoding.Printf(wxT("cp%d"), cp);
+ }
+ break;
+
+ case wxFONTENCODING_SYSTEM:
+ info->xregistry =
+ info->xencoding = wxT('*');
+ break;
+
+ default:
+ // don't know how to translate this encoding into X fontspec
+ return FALSE;
+ }
+
+ return TRUE;
+}
+
+bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
+{
+ wxString fontspec;
+ fontspec.Printf(_T("-*-%s-*-*-*-*-*-*-*-*-*-*-%s-%s"),
+ !info.facename ? _T("*") : info.facename.c_str(),
+ info.xregistry.c_str(),
+ info.xencoding.c_str());
+
+ return wxTestFontSpec(fontspec);
+}
+
+// ----------------------------------------------------------------------------
+// X-specific functions
+// ----------------------------------------------------------------------------
+
+wxNativeFont wxLoadQueryNearestFont(int pointSize,
+ int family,
+ int style,
+ int weight,
+ bool underlined,
+ const wxString &facename,
+ wxFontEncoding encoding)
+{
+ // first determine the encoding - if the font doesn't exist at all in this
+ // encoding, it's useless to do all other approximations (i.e. size,
+ // family &c don't matter much)
+ wxNativeEncodingInfo info;
+ if ( !wxGetNativeFontEncoding(encoding, &info) ||
+ !wxTestFontEncoding(info) )
+ {
+ if ( !wxTheFontMapper->GetAltForEncoding(encoding, &info) )
+ {
+ // unspported encoding - replace it with the default
+ //
+ // NB: we can't just return 0 from here because wxGTK code doesn't
+ // check for it (i.e. it supposes that we'll always succeed),
+ // so it would provoke a crash
+ wxGetNativeFontEncoding(wxFONTENCODING_SYSTEM, &info);
+ }
+ }
+ //else: we have the correct xregistry/xencoding in info structure
+
+ wxNativeFont font = wxLoadQueryFont( pointSize, family, style, weight,
+ underlined, facename,
+ info.xregistry, info.xencoding );
+
+ if ( !font )
+ {
+ // search up and down by stepsize 10
+ int max_size = pointSize + 20 * (1 + (pointSize/180));
+ int min_size = pointSize - 20 * (1 + (pointSize/180));
+
+ int i;
+
+ // Search for smaller size (approx.)
+ for ( i = pointSize - 10; !font && i >= 10 && i >= min_size; i -= 10 )
+ {
+ font = wxLoadQueryFont(i, family, style, weight, underlined,
+ facename, info.xregistry, info.xencoding);
+ }
+
+ // Search for larger size (approx.)
+ for ( i = pointSize + 10; !font && i <= max_size; i += 10 )
+ {
+ font = wxLoadQueryFont(i, family, style, weight, underlined,
+ facename, info.xregistry, info.xencoding);
+ }
+
+ // Try default family
+ if ( !font && family != wxDEFAULT )
+ {
+ font = wxLoadQueryFont(pointSize, wxDEFAULT, style, weight,
+ underlined, facename,
+ info.xregistry, info.xencoding );
+ }
+
+ // Bogus font I
+ if ( !font )
+ {
+ font = wxLoadQueryFont(120, wxDEFAULT, wxNORMAL, wxNORMAL,
+ underlined, facename,
+ info.xregistry, info.xencoding);
+ }
+
+ // Bogus font II
+ if ( !font )
+ {
+ font = wxLoadQueryFont(120, wxDEFAULT, wxNORMAL, wxNORMAL,
+ underlined, wxEmptyString,
+ info.xregistry, info.xencoding);
+ }
+ }
+
+ return font;
+}
+
+// ----------------------------------------------------------------------------
+// private functions
+// ----------------------------------------------------------------------------
+
+// returns TRUE if there are any fonts matching this font spec
+static bool wxTestFontSpec(const wxString& fontspec)
+{
+ wxNativeFont test = wxLoadFont(fontspec);
+ if ( test )
+ {
+ wxFreeFont(test);
+
+ return TRUE;
+ }
+ else
+ {
+ return FALSE;
+ }
+}
+
+static wxNativeFont wxLoadQueryFont(int pointSize,
+ int family,
+ int style,
+ int weight,
+ bool WXUNUSED(underlined),
+ const wxString& facename,
+ const wxString& xregistry,
+ const wxString& xencoding)
+{
+ wxString xfamily;
+ switch (family)
+ {
+ case wxDECORATIVE: xfamily = wxT("lucida"); break;
+ case wxROMAN: xfamily = wxT("times"); break;
+ case wxMODERN: xfamily = wxT("courier"); break;
+ case wxSWISS: xfamily = wxT("helvetica"); break;
+ case wxTELETYPE: xfamily = wxT("lucidatypewriter"); break;
+ case wxSCRIPT: xfamily = wxT("utopia"); break;
+ default: xfamily = wxT("*");
+ }
+
+ wxString fontSpec;
+ if (!facename.IsEmpty())
+ {
+ fontSpec.Printf(wxT("-*-%s-*-*-normal-*-*-*-*-*-*-*-*-*"),
+ facename.c_str());
+
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xfamily = facename;
+ }
+ //else: no such family, use default one instead
+ }
+
+ wxString xstyle;
+ switch (style)
+ {
+ case wxITALIC: xstyle = wxT("i"); break;
+ case wxSLANT: xstyle = wxT("o"); break;
+ case wxNORMAL: xstyle = wxT("r"); break;
+ default: xstyle = wxT("*"); break;
+ }
+
+ wxString xweight;
+ switch (weight)
+ {
+ case wxBOLD:
+ {
+ fontSpec.Printf(wxT("-*-%s-bold-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("bold");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-heavy-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("heavy");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-extrabold-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("extrabold");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-demibold-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("demibold");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-black-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("black");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-ultrablack-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("ultrablack");
+ break;
+ }
+ }
+ break;
+ case wxLIGHT:
+ {
+ fontSpec.Printf(wxT("-*-%s-light-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("light");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-thin-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("thin");
+ break;
+ }
+ }
+ break;
+ case wxNORMAL:
+ {
+ fontSpec.Printf(wxT("-*-%s-medium-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("medium");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-normal-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("normal");
+ break;
+ }
+ fontSpec.Printf(wxT("-*-%s-regular-*-*-*-*-*-*-*-*-*-*-*"),
+ xfamily.c_str());
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xweight = wxT("regular");
+ break;
+ }
+ xweight = wxT("*");
+ }
+ break;
+ default: xweight = wxT("*"); break;
+ }
+
+ // construct the X font spec from our data
+ fontSpec.Printf(wxT("-*-%s-%s-%s-normal-*-*-%d-*-*-*-*-%s-%s"),
+ xfamily.c_str(), xweight.c_str(), xstyle.c_str(),
+ pointSize, xregistry.c_str(), xencoding.c_str());
+
+ return wxLoadFont(fontSpec);
+}
+