-enum {
- PROP_0,
- PROP_FONT_NAME,
- PROP_PREVIEW_TEXT,
- PROP_SHOW_PREVIEW_ENTRY
-};
-
-
-enum {
- FAMILY_COLUMN,
- FACE_COLUMN,
- PREVIEW_TEXT_COLUMN,
- PREVIEW_TITLE_COLUMN
-};
-
-static void gtk_font_chooser_set_property (GObject *object,
- guint prop_id,
- const GValue *value,
- GParamSpec *pspec);
-static void gtk_font_chooser_get_property (GObject *object,
- guint prop_id,
- GValue *value,
- GParamSpec *pspec);
-static void gtk_font_chooser_finalize (GObject *object);
-
-static void gtk_font_chooser_screen_changed (GtkWidget *widget,
- GdkScreen *previous_screen);
-static void gtk_font_chooser_style_updated (GtkWidget *widget);
-
-static void gtk_font_chooser_ref_family (GtkFontChooser *fontchooser,
- PangoFontFamily *family);
-static void gtk_font_chooser_ref_face (GtkFontChooser *fontchooser,
- PangoFontFace *face);
-
-static void gtk_font_chooser_bootstrap_fontlist (GtkFontChooser *fontchooser);
-
-G_DEFINE_TYPE (GtkFontChooser, gtk_font_chooser, GTK_TYPE_VBOX)
-
-static void
-gtk_font_chooser_class_init (GtkFontChooserClass *klass)
-{
- GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
- GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);
-
- widget_class->screen_changed = gtk_font_chooser_screen_changed;
- widget_class->style_updated = gtk_font_chooser_style_updated;
-
- gobject_class->finalize = gtk_font_chooser_finalize;
- gobject_class->set_property = gtk_font_chooser_set_property;
- gobject_class->get_property = gtk_font_chooser_get_property;
-
- 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"),
- pango_language_get_sample_string (NULL),
- GTK_PARAM_READWRITE));
-
- g_object_class_install_property (gobject_class,
- PROP_SHOW_PREVIEW_ENTRY,
- g_param_spec_boolean ("show-preview-entry",
- P_("Show preview text entry"),
- P_("Whether the preview text entry is shown or not"),
- TRUE,
- GTK_PARAM_READWRITE));
-
- g_type_class_add_private (klass, sizeof (GtkFontChooserPrivate));
-}
-
-static void
-gtk_font_chooser_set_property (GObject *object,
- guint prop_id,
- const GValue *value,
- GParamSpec *pspec)
-{
- GtkFontChooser *fontchooser;
-
- fontchooser = GTK_FONT_CHOOSER (object);
-
- switch (prop_id)
- {
- case PROP_FONT_NAME:
- gtk_font_chooser_set_font_name (fontchooser, g_value_get_string (value));
- break;
- case PROP_PREVIEW_TEXT:
- gtk_font_chooser_set_preview_text (fontchooser, g_value_get_string (value));
- break;
- case PROP_SHOW_PREVIEW_ENTRY:
- gtk_font_chooser_set_show_preview_entry (fontchooser, g_value_get_boolean (value));
- default:
- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
- break;
- }
-}
-
-static void
-gtk_font_chooser_get_property (GObject *object,
- guint prop_id,
- GValue *value,
- GParamSpec *pspec)
-{
- GtkFontChooser *fontchooser;
-
- fontchooser = GTK_FONT_CHOOSER (object);
-
- switch (prop_id)
- {
- case PROP_FONT_NAME:
- g_value_take_string (value, gtk_font_chooser_get_font_name (fontchooser));
- break;
- case PROP_PREVIEW_TEXT:
- g_value_set_string (value, gtk_font_chooser_get_preview_text (fontchooser));
- break;
- case PROP_SHOW_PREVIEW_ENTRY:
- g_value_set_boolean (value, gtk_font_chooser_get_show_preview_entry (fontchooser));
- default:
- G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
- break;
- }
-}
-
-void
-refilter_and_focus (GtkFontChooserPrivate *priv)
-{
- GtkTreeIter iter;
- GtkTreeView *treeview = GTK_TREE_VIEW (priv->family_face_list);
- GtkTreePath *path = gtk_tree_path_new ();
-
- gtk_tree_model_filter_refilter (GTK_TREE_MODEL_FILTER (priv->filter));
-
- if (!path)
- return;
-
- gtk_tree_view_get_cursor (treeview, &path, NULL);
-
- if (!gtk_tree_model_get_iter (GTK_TREE_MODEL (priv->filter), &iter, path))
- {
- gtk_tree_path_free (path);
- return;
- }
-
- gtk_tree_view_scroll_to_cell (treeview, path, NULL, FALSE, 0.5, 0.5);
- gtk_tree_path_free (path);
-}
-
-void
-deleted_text_cb (GtkEntryBuffer *buffer,
- guint position,
- guint n_chars,
- gpointer user_data)
-{
- GtkFontChooserPrivate *priv = (GtkFontChooserPrivate*)user_data;
- GtkWidget *entry = priv->search_entry;
-
- if (gtk_entry_buffer_get_length (buffer) == 0)
- {
- GIcon *icon = g_themed_icon_new_with_default_fallbacks ("edit-find-symbolic");
- gtk_entry_set_icon_from_gicon (GTK_ENTRY (entry),
- GTK_ENTRY_ICON_SECONDARY,
- icon);
- g_object_unref (icon);
- }
-
- 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)
-{
- GtkFontChooserPrivate *priv = (GtkFontChooserPrivate*)user_data;
- GtkWidget *entry = priv->search_entry;
-
- if (g_strcmp0 (gtk_entry_get_icon_stock (GTK_ENTRY (entry), GTK_ENTRY_ICON_SECONDARY),
- "edit-clear-symbolic") ||
- g_strcmp0 (gtk_entry_get_icon_stock (GTK_ENTRY (entry), GTK_ENTRY_ICON_SECONDARY),
- GTK_STOCK_CLEAR))
- {
- GIcon *icon = g_themed_icon_new_with_default_fallbacks ("edit-clear-symbolic");
- gtk_entry_set_icon_from_gicon (GTK_ENTRY (entry),
- GTK_ENTRY_ICON_SECONDARY,
- icon);
- g_object_unref (icon);
- }
-
- 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)
-{
- GtkFontChooserPrivate *priv = (GtkFontChooserPrivate*)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;
- GtkFontChooser *fontchooser = (GtkFontChooser*)data;
- GtkFontChooserPrivate *priv = fontchooser->priv;
-
- 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 */
- priv->ignore_slider = TRUE;
- if (size < gtk_adjustment_get_lower (slider_adj))
- gtk_adjustment_set_value (slider_adj, gtk_adjustment_get_lower (slider_adj));
- else if (size > gtk_adjustment_get_upper (slider_adj))
- gtk_adjustment_set_value (slider_adj, gtk_adjustment_get_upper (slider_adj));
- else
- gtk_adjustment_set_value (slider_adj, size);
-
- 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);
-
- g_object_notify (G_OBJECT (fontchooser), "font-name");
-
- gtk_widget_queue_draw (priv->preview);
-}
-
-void
-set_range_marks (GtkFontChooserPrivate *priv,
- GtkWidget* size_slider,
- gint* sizes,
- gint length)
-{
- GtkAdjustment *adj;
- gint i;
- gdouble value;
-
- if (length<2)
- {
- sizes = (gint*)font_sizes;
- length = FONT_SIZES_LENGTH;
- }
-
- gtk_scale_clear_marks (GTK_SCALE (size_slider));
-
- adj = gtk_range_get_adjustment(GTK_RANGE (size_slider));
-
- gtk_adjustment_set_lower (adj, (gdouble) sizes[0]);
- gtk_adjustment_set_upper (adj, (gdouble) sizes[length-1]);
-
- value = gtk_adjustment_get_value (adj);
- if (value > (gdouble) sizes[length-1])
- {
- gtk_adjustment_set_value (adj, (gdouble) sizes[length-1]);
- priv->ignore_slider = TRUE;
- }
- else if (value < (gdouble) sizes[0])
- {
- gtk_adjustment_set_value (adj, (gdouble) sizes[0]);
- priv->ignore_slider = TRUE;
- }
-
- 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)
-{
- PangoFontFamily *family;
- PangoFontFace *face;
- PangoFontDescription *desc;
-
- gint *sizes;
- gint i, n_sizes;
-
- GtkTreeIter iter;
- GtkTreePath *path = gtk_tree_path_new ();
-
- GtkFontChooser *fontchooser = (GtkFontChooser*)data;
-
- gtk_tree_view_get_cursor (treeview, &path, NULL);
-
- if (!path)
- return;