-struct _GtkFontSelectionDialogPrivate
-{
- GtkWidget *fontsel;
-
- GtkWidget *ok_button;
- GtkWidget *apply_button;
- GtkWidget *cancel_button;
-};
-
-
-/* We don't enable the font and style entries because they don't add
- * much in terms of visible effect and have a weird effect on keynav.
- * the Windows font selector has entries similarly positioned but they
- * act in conjunction with the associated lists to form a single focus
- * location.
- */
-#undef INCLUDE_FONT_ENTRIES
-
-/* This is the default text shown in the preview entry, though the user
- can set it. Remember that some fonts only have capital letters. */
-#define PREVIEW_TEXT N_("abcdefghijk ABCDEFGHIJK")
-
-#define DEFAULT_FONT_NAME "Sans 10"
-#define MAX_FONT_SIZE 999
-
-/* This is the initial fixed height and the top padding of the preview entry */
-#define PREVIEW_HEIGHT 84
-#define PREVIEW_TOP_PADDING 6
-
-/* These are the sizes of the font, style & size lists. */
-#define FONT_LIST_HEIGHT 136
-#define FONT_LIST_WIDTH 190
-#define FONT_STYLE_LIST_WIDTH 170
-#define FONT_SIZE_LIST_WIDTH 60
-
-#define ROW_FORMAT_STRING "<span size=\"small\" foreground=\"%s\">%s %s</span>\n<span size=\"x-large\" font_desc=\"%s\">%s</span>"
-
-/* These are what we use as the standard font sizes, for the size list.
- */
-#define FONT_SIZES_LENGTH 14
-static const gint font_sizes[] = {
- 6, 8, 9, 10, 11, 12, 13, 14, 16, 20, 24, 36, 48, 72
-};
-
-enum {
- PROP_0,
- PROP_FONT_NAME,
- PROP_PREVIEW_TEXT
-};
-
-
-enum {
- FAMILY_COLUMN,
- FACE_COLUMN,
- FAMILY_NAME_COLUMN,
- TEXT_COLUMN
-};
-
-static void gtk_font_selection_set_property (GObject *object,
- guint prop_id,
- const GValue *value,
- GParamSpec *pspec);
-static void gtk_font_selection_get_property (GObject *object,
- guint prop_id,
- GValue *value,
- GParamSpec *pspec);
-static void gtk_font_selection_finalize (GObject *object);
-static void gtk_font_selection_screen_changed (GtkWidget *widget,
- GdkScreen *previous_screen);
-static void gtk_font_selection_style_updated (GtkWidget *widget);
-
-static void gtk_font_selection_ref_family (GtkFontSelection *fontsel,
- PangoFontFamily *family);
-static void gtk_font_selection_ref_face (GtkFontSelection *fontsel,
- PangoFontFace *face);
-
-static void gtk_font_selection_bootstrap_fontlist (GtkFontSelection *fontsel);
-
-G_DEFINE_TYPE (GtkFontSelection, gtk_font_selection, GTK_TYPE_VBOX)
-
-static void
-gtk_font_selection_class_init (GtkFontSelectionClass *klass)
-{
- GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
- GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);
-
- gobject_class->finalize = gtk_font_selection_finalize;
- gobject_class->set_property = gtk_font_selection_set_property;
- gobject_class->get_property = gtk_font_selection_get_property;
-
- widget_class->screen_changed = gtk_font_selection_screen_changed;
- widget_class->style_updated = gtk_font_selection_style_updated;
-
- g_object_class_install_property (gobject_class,
- PROP_FONT_NAME,
- g_param_spec_string ("font-name",
- P_("Font name"),
- P_("The string that represents this font"),
- DEFAULT_FONT_NAME,
- GTK_PARAM_READWRITE));
- g_object_class_install_property (gobject_class,
- PROP_PREVIEW_TEXT,
- g_param_spec_string ("preview-text",
- P_("Preview text"),
- P_("The text to display in order to demonstrate the selected font"),
- _(PREVIEW_TEXT),
- GTK_PARAM_READWRITE));
-
- g_type_class_add_private (klass, sizeof (GtkFontSelectionPrivate));
-}
-
-static void
-gtk_font_selection_set_property (GObject *object,
- guint prop_id,
- const GValue *value,
- GParamSpec *pspec)
-{
- GtkFontSelection *fontsel;
-
- fontsel = GTK_FONT_SELECTION (object);
-
- switch (prop_id)
- {
- case PROP_FONT_NAME:
- gtk_font_selection_set_font_name (fontsel, g_value_get_string (value));
- break;
- case PROP_PREVIEW_TEXT:
- gtk_font_selection_set_preview_text (fontsel, g_value_get_string (value));
- break;
- default:
- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
- break;
- }
-}
-
-static void gtk_font_selection_get_property (GObject *object,
- guint prop_id,
- GValue *value,
- GParamSpec *pspec)
-{
- GtkFontSelection *fontsel;
-
- fontsel = GTK_FONT_SELECTION (object);
-
- switch (prop_id)
- {
- case PROP_FONT_NAME:
- g_value_take_string (value, gtk_font_selection_get_font_name (fontsel));
- break;
- case PROP_PREVIEW_TEXT:
- g_value_set_string (value, gtk_font_selection_get_preview_text (fontsel));
- break;
- default:
- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
- break;
- }
-}
-
-void
-deleted_text_cb (GtkEntryBuffer *buffer,
- guint position,
- guint n_chars,
- gpointer user_data)
-{
- GtkFontSelectionPrivate *priv = (GtkFontSelectionPrivate*)user_data;
- GtkWidget *entry = priv->search_entry;
-
- if (gtk_entry_buffer_get_length (buffer) == 0)
- {
- gtk_entry_set_icon_from_stock (GTK_ENTRY (entry),
- GTK_ENTRY_ICON_SECONDARY,
- GTK_STOCK_FIND);
- }
-
- gtk_tree_model_filter_refilter (GTK_TREE_MODEL_FILTER (priv->filter));
-}
-
-void
-inserted_text_cb (GtkEntryBuffer *buffer,
- guint position,
- gchar *chars,
- guint n_chars,
- gpointer user_data)
-{
- GtkFontSelectionPrivate *priv = (GtkFontSelectionPrivate*)user_data;
- GtkWidget *entry = priv->search_entry;
-
- if (g_strcmp0 (gtk_entry_get_icon_stock (GTK_ENTRY (entry), GTK_ENTRY_ICON_SECONDARY),
- GTK_STOCK_CLEAR))
- gtk_entry_set_icon_from_stock (GTK_ENTRY (entry),
- GTK_ENTRY_ICON_SECONDARY,
- GTK_STOCK_CLEAR);
-
-
- gtk_tree_model_filter_refilter (GTK_TREE_MODEL_FILTER (priv->filter));
-}
-
-void
-icon_press_cb (GtkEntry *entry,
- GtkEntryIconPosition pos,
- GdkEvent *event,
- gpointer user_data)
-{
- gtk_entry_buffer_delete_text (gtk_entry_get_buffer (entry), 0, -1);
-}
-
-void
-slider_change_cb (GtkAdjustment *adjustment, gpointer data)
-{
- GtkFontSelectionPrivate *priv = (GtkFontSelectionPrivate*)data;
-
- /* If we set the silder value manually, we ignore this callback */
- if (priv->ignore_slider)
- {
- priv->ignore_slider = FALSE;
- return;
- }
-
- gtk_adjustment_set_value (gtk_spin_button_get_adjustment( GTK_SPIN_BUTTON(priv->size_spin)),
- gtk_adjustment_get_value (adjustment));
-}
-
-void
-spin_change_cb (GtkAdjustment *adjustment, gpointer data)
-{
- PangoFontDescription *desc;
- GtkFontSelectionPrivate *priv = (GtkFontSelectionPrivate*)data;
-
- gdouble size = gtk_adjustment_get_value (adjustment);
-
- GtkAdjustment *slider_adj = gtk_range_get_adjustment (GTK_RANGE (priv->size_slider));
-
- /* We ignore the slider value change callback for both of this set_value call */
- if (size < gtk_adjustment_get_lower (slider_adj))
- {
- priv->ignore_slider = TRUE;
- gtk_adjustment_set_value (slider_adj, gtk_adjustment_get_lower (slider_adj));
- }
- else if (size > gtk_adjustment_get_upper (slider_adj))
- {
- priv->ignore_slider = TRUE;
- gtk_adjustment_set_value (slider_adj, gtk_adjustment_get_upper (slider_adj));
- }
-
- priv->size = ((gint)gtk_adjustment_get_value (adjustment)) * PANGO_SCALE;
-
- desc = pango_context_get_font_description (gtk_widget_get_pango_context (priv->preview));
- pango_font_description_set_size (desc, priv->size);
- gtk_widget_override_font (priv->preview, desc);
-
- gtk_widget_queue_draw (priv->preview);
-}
-
-void
-set_range_marks (GtkWidget* size_slider, gint* sizes, gint length)
-{
- gint i;
-
- gtk_scale_clear_marks (GTK_SCALE (size_slider));
-
- for (i=0; i<length; i++)
- gtk_scale_add_mark (GTK_SCALE (size_slider),
- (gdouble) sizes[i],
- GTK_POS_BOTTOM, NULL);
-}
-
-void
-cursor_changed_cb (GtkTreeView *treeview, gpointer data)
-{
- gchar *family_name;
- PangoFontFamily *family;
- PangoFontFace *face;
- PangoFontDescription *desc;
-
- gint *sizes;
- gint n_sizes;
-
- GtkTreeIter iter;
- GtkTreePath *path = gtk_tree_path_new ();
-
- GtkFontSelection *fontsel = (GtkFontSelection*)data;
-
- gtk_tree_view_get_cursor (treeview, &path, NULL);
-
- if (!path)
- return;
-
- if (!gtk_tree_model_get_iter (GTK_TREE_MODEL (fontsel->priv->model), &iter, path))
- return;
-
- gtk_tree_model_get (GTK_TREE_MODEL (fontsel->priv->model), &iter,
- FACE_COLUMN, &face,
- FAMILY_COLUMN, &family,
- FAMILY_NAME_COLUMN, &family_name,
- -1);
- gtk_tree_path_free (path);
- path = NULL;
-
- if (!face || !family_name || !family)
- {
- g_free (family_name);
- g_object_unref (face);
- g_object_unref (family);
- return;
- }
-
- desc = pango_font_face_describe (face);
- pango_font_description_set_size (desc, fontsel->priv->size);
- gtk_widget_override_font (fontsel->priv->preview, desc);
-
- pango_font_face_list_sizes (face, &sizes, &n_sizes);
- /* It seems not many fonts actually have a sane set of sizes */
- /* set_range_marks (priv->size_slider, sizes, n_sizes); */
-
- gtk_font_selection_ref_family (fontsel, family);
- gtk_font_selection_ref_face (fontsel, face);
-
- /* Free resources */
- g_free (family_name);
- g_object_unref ((gpointer)face);
- pango_font_description_free(desc);
-}