// headers
// ----------------------------------------------------------------------------
-#ifdef __GNUG__
- #pragma implementation "fontenum.h"
+// for compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#include "wx/fontenum.h"
+
+#ifndef WX_PRECOMP
+ #include "wx/dynarray.h"
+ #include "wx/string.h"
+ #include "wx/app.h"
+ #include "wx/utils.h"
#endif
-#include "wx/defs.h"
-#include "wx/dynarray.h"
-#include "wx/string.h"
-#include "wx/utils.h"
+#include "wx/regex.h"
+#include "wx/fontmap.h"
+#include "wx/fontutil.h"
+#include "wx/encinfo.h"
-#include "wx/fontenum.h"
+// ----------------------------------------------------------------------------
+// Pango
+// ----------------------------------------------------------------------------
+
+#if wxUSE_PANGO
+
+#include "pango/pango.h"
+
+#ifdef __WXGTK20__
+#include "gtk/gtk.h"
+extern GtkWidget *wxGetRootWindow();
+#endif // __WXGTK20__
+
+extern "C" int wxCMPFUNC_CONV
+wxCompareFamilies (const void *a, const void *b)
+{
+ const char *a_name = pango_font_family_get_name (*(PangoFontFamily **)a);
+ const char *b_name = pango_font_family_get_name (*(PangoFontFamily **)b);
+
+ return g_utf8_collate (a_name, b_name);
+}
+
+// I admit I don't yet understand encodings with Pango
+bool wxFontEnumerator::EnumerateFacenames(wxFontEncoding encoding,
+ bool fixedWidthOnly)
+{
+#if defined(__WXGTK20__) || !defined(HAVE_PANGO_FONT_FAMILY_IS_MONOSPACE)
+ if ( fixedWidthOnly
+#if defined(__WXGTK24__)
+ && (gtk_check_version(2,4,0) != NULL)
+#endif
+ )
+{
+ OnFacename( wxT("monospace") );
+ }
+ else
+#endif // __WXGTK20__ || !HAVE_PANGO_FONT_FAMILY_IS_MONOSPACE
+ {
+ PangoFontFamily **families = NULL;
+ gint n_families = 0;
+ pango_context_list_families (
+#ifdef __WXGTK20__
+ gtk_widget_get_pango_context( wxGetRootWindow() ),
+#else
+ wxTheApp->GetPangoContext(),
+#endif
+ &families, &n_families );
+ qsort (families, n_families, sizeof (PangoFontFamily *), wxCompareFamilies);
+
+ for (int i=0; i<n_families; i++)
+ {
+#if defined(__WXGTK24__) || defined(HAVE_PANGO_FONT_FAMILY_IS_MONOSPACE)
+ if (!fixedWidthOnly || (
+#ifdef __WXGTK24__
+ !gtk_check_version(2,4,0) &&
+#endif
+ pango_font_family_is_monospace(families[i])
+ ) )
+#endif
+ {
+ const gchar *name = pango_font_family_get_name(families[i]);
+ OnFacename(wxString(name, wxConvUTF8));
+ }
+ }
+ g_free(families);
+ }
+ return true;
+}
+
+bool wxFontEnumerator::EnumerateEncodings(const wxString& family)
+{
+ return false;
+}
+
+
+#else
+ // Pango
+
+#ifdef __VMS__ // Xlib.h for VMS is not (yet) compatible with C++
+ // The resulting warnings are switched off here
+#pragma message disable nosimpint
+#endif
#include <X11/Xlib.h>
+#ifdef __VMS__
+#pragma message enable nosimpint
+#endif
// ----------------------------------------------------------------------------
// private functions
// ----------------------------------------------------------------------------
-// create the list of all fonts with the given spacing
-static char **CreateFontList(wxChar spacing, int *nFonts);
+// create the list of all fonts with the given spacing and encoding
+static char **CreateFontList(wxChar spacing, wxFontEncoding encoding,
+ int *nFonts);
// extract all font families from the given font list and call our
-// OnFontFamily() for each of them
+// OnFacename() for each of them
static bool ProcessFamiliesFromFontList(wxFontEnumerator *This,
char **fonts,
int nFonts);
// helpers
// ----------------------------------------------------------------------------
-static char **CreateFontList(wxChar spacing, int *nFonts)
+#if !wxUSE_NANOX
+static char **CreateFontList(wxChar spacing,
+ wxFontEncoding encoding,
+ int *nFonts)
{
+ wxNativeEncodingInfo info;
+ wxGetNativeFontEncoding(encoding, &info);
+
+#if wxUSE_FONTMAP
+ if ( !wxTestFontEncoding(info) )
+ {
+ // ask font mapper for a replacement
+ (void)wxFontMapper::Get()->GetAltForEncoding(encoding, &info);
+ }
+#endif // wxUSE_FONTMAP
+
wxString pattern;
- pattern.Printf(wxT("-*-*-*-*-*-*-*-*-*-*-%c-*-*-*"), spacing);
+ pattern.Printf(wxT("-*-*-*-*-*-*-*-*-*-*-%c-*-%s-%s"),
+ spacing,
+ info.xregistry.c_str(),
+ info.xencoding.c_str());
// get the list of all fonts
return XListFonts((Display *)wxGetDisplay(), pattern.mb_str(), 32767, nFonts);
char **fonts,
int nFonts)
{
+#if wxUSE_REGEX
+ wxRegEx re(wxT("^(-[^-]*){14}$"), wxRE_NOSUB);
+#endif // wxUSE_REGEX
+
// extract the list of (unique) font families
wxSortedArrayString families;
for ( int n = 0; n < nFonts; n++ )
{
char *font = fonts[n];
+#if wxUSE_REGEX
+ if ( !re.Matches(font) )
+#else // !wxUSE_REGEX
if ( !wxString(font).Matches(wxT("-*-*-*-*-*-*-*-*-*-*-*-*-*-*")) )
+#endif // wxUSE_REGEX/!wxUSE_REGEX
{
// it's not a full font name (probably an alias)
continue;
}
-
+
+ // coverity[returned_null]
char *dash = strchr(font + 1, '-');
char *family = dash + 1;
dash = strchr(family, '-');
if ( families.Index(fam) == wxNOT_FOUND )
{
- if ( !This->OnFontFamily(fam) )
+ if ( !This->OnFacename(fam) )
{
// stop enumerating
- return FALSE;
+ return false;
}
families.Add(fam);
//else: already seen
}
- return TRUE;
+ return true;
}
+#endif
+ // wxUSE_NANOX
// ----------------------------------------------------------------------------
// wxFontEnumerator
// ----------------------------------------------------------------------------
-bool wxFontEnumerator::EnumerateFamilies(bool fixedWidthOnly)
+bool wxFontEnumerator::EnumerateFacenames(wxFontEncoding encoding,
+ bool fixedWidthOnly)
{
+#if wxUSE_NANOX
+ return false;
+#else
int nFonts;
char **fonts;
if ( fixedWidthOnly )
{
- bool cont = TRUE;
- fonts = CreateFontList(wxT('m'), &nFonts);
+ bool cont = true;
+ fonts = CreateFontList(wxT('m'), encoding, &nFonts);
if ( fonts )
{
cont = ProcessFamiliesFromFontList(this, fonts, nFonts);
if ( !cont )
{
- return TRUE;
+ return true;
}
- fonts = CreateFontList(wxT('c'), &nFonts);
+ fonts = CreateFontList(wxT('c'), encoding, &nFonts);
if ( !fonts )
{
- return TRUE;
+ return true;
}
}
else
{
- fonts = CreateFontList(wxT('*'), &nFonts);
+ fonts = CreateFontList(wxT('*'), encoding, &nFonts);
if ( !fonts )
{
- wxFAIL_MSG(wxT("No fonts at all on this system?"));
+ // it's ok if there are no fonts in given encoding - but it's not
+ // ok if there are no fonts at all
+ wxASSERT_MSG(encoding != wxFONTENCODING_SYSTEM,
+ wxT("No fonts at all on this system?"));
- return FALSE;
+ return false;
}
}
(void)ProcessFamiliesFromFontList(this, fonts, nFonts);
XFreeFontNames(fonts);
-
- return TRUE;
+ return true;
+#endif
+ // wxUSE_NANOX
}
bool wxFontEnumerator::EnumerateEncodings(const wxString& family)
{
+#if wxUSE_NANOX
+ return false;
+#else
wxString pattern;
pattern.Printf(wxT("-*-%s-*-*-*-*-*-*-*-*-*-*-*-*"),
- family.IsEmpty() ? wxT("*") : family.c_str());
+ family.empty() ? wxT("*") : family.c_str());
// get the list of all fonts
int nFonts;
if ( !fonts )
{
// unknown family?
- return FALSE;
+ return false;
}
// extract the list of (unique) encodings
dash = strchr(familyFont, '-');
*dash = '\0'; // !NULL because Matches() above succeeded
- if ( !family.IsEmpty() && (family != familyFont) )
+ if ( !family.empty() && (family != familyFont) )
{
// family doesn't match
continue;
XFreeFontNames(fonts);
- return TRUE;
+ return true;
+#endif
+ // wxUSE_NANOX
}
+
+#endif // !wxUSE_PANGO