+
+    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++ )