+// ----------------------------------------------------------------------------
+// font-related 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
+
+// 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;
+ }
+}
+
+// TODO encoding test logic should be moved to wxLoadQueryNearestFont()
+static wxNativeFont wxLoadQueryFont(int pointSize,
+ int family,
+ int style,
+ int weight,
+ bool WXUNUSED(underlined),
+ const wxString &facename,
+ wxFontEncoding encoding )
+{
+ 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;
+ }
+
+ wxString xregistry, xencoding;
+ if ( encoding == wxFONTENCODING_DEFAULT )
+ {
+ // use the apps default
+ encoding = wxFont::GetDefaultEncoding();
+ }
+
+ bool test = TRUE; // should we test for availability of encoding?
+ 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;
+ xregistry = wxT("iso8859");
+ xencoding.Printf(wxT("%d"), cp);
+ }
+ break;
+
+ case wxFONTENCODING_KOI8:
+ xregistry = wxT("koi8");
+ if ( wxTestFontSpec(wxT("-*-*-*-*-*-*-*-*-*-*-*-*-koi8-1")) )
+ {
+ xencoding = wxT("1");
+
+ // test passed, no need to do it once more
+ test = FALSE;
+ }
+ else
+ {
+ xencoding = wxT("*");
+ }
+ break;
+
+ case wxFONTENCODING_CP1250:
+ case wxFONTENCODING_CP1251:
+ case wxFONTENCODING_CP1252:
+ {
+ int cp = encoding - wxFONTENCODING_CP1250 + 1250;
+ fontSpec.Printf(wxT("-*-*-*-*-*-*-*-*-*-*-*-*-microsoft-cp%d"),
+ cp);
+ if ( wxTestFontSpec(fontSpec) )
+ {
+ xregistry = wxT("microsoft");
+ xencoding.Printf(wxT("cp%d"), cp);
+
+ // test passed, no need to do it once more
+ test = FALSE;
+ }
+ else
+ {
+ // fall back to LatinX
+ xregistry = wxT("iso8859");
+ xencoding.Printf(wxT("%d"), cp - 1249);
+ }
+ }
+ break;
+
+ case wxFONTENCODING_SYSTEM:
+ default:
+ test = FALSE;
+ xregistry =
+ xencoding = wxT("*");
+ }
+
+ if ( test )
+ {
+ fontSpec.Printf(wxT("-*-*-*-*-*-*-*-*-*-*-*-*-%s-%s"),
+ xregistry.c_str(), xencoding.c_str());
+ if ( !wxTestFontSpec(fontSpec) )
+ {
+ // this encoding isn't available - what to do?
+ xregistry =
+ xencoding = wxT("*");
+ }
+ }
+
+ // 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);
+}
+
+wxNativeFont wxLoadQueryNearestFont(int pointSize,
+ int family,
+ int style,
+ int weight,
+ bool underlined,
+ const wxString &facename,
+ wxFontEncoding encoding)
+{
+ wxNativeFont font = wxLoadQueryFont( pointSize, family, style, weight,
+ underlined, facename, encoding );
+
+ 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, encoding );
+ }
+
+ // Search for larger size (approx.)
+ for ( i = pointSize + 10; !font && i <= max_size; i += 10 )
+ {
+ font = wxLoadQueryFont( i, family, style, weight, underlined,
+ facename, encoding );
+ }
+
+ // Try default family
+ if ( !font && family != wxDEFAULT )
+ {
+ font = wxLoadQueryFont( pointSize, wxDEFAULT, style, weight,
+ underlined, facename, encoding );
+ }
+
+ // Bogus font I
+ if ( !font )
+ {
+ font = wxLoadQueryFont(120, wxDEFAULT, wxNORMAL, wxNORMAL,
+ underlined, facename, encoding );
+ }
+
+ // Bogus font II
+ if ( !font )
+ {
+ font = wxLoadQueryFont(120, wxDEFAULT, wxNORMAL, wxNORMAL,
+ underlined, wxEmptyString, encoding );
+ }
+ }
+
+ return font;
+}
+
+#endif // wxUSE_GUI