-/*
- PSPPIRE --- A Graphical User Interface for PSPP
- Copyright (C) 2005 Free Software Foundation
+/* PSPPIRE - a graphical user interface for PSPP.
+ Copyright (C) 2005, 2009, 2010, 2011, 2012, 2015, 2016 Free Software Foundation
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02110-1301, USA. */
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
/* This module describes the behaviour of the Value Labels dialog box,
#include <config.h>
+#include "ui/gui/val-labs-dialog.h"
+
#include <string.h>
-#include "helper.h"
-#include "val-labs-dialog.h"
-#include <data/value-labels.h>
+#include "data/value-labels.h"
+#include "data/format.h"
+#include "libpspp/i18n.h"
+#include "ui/gui/builder-wrapper.h"
+#include "ui/gui/helper.h"
+
+#include <gettext.h>
+#define _(msgid) gettext (msgid)
+#define N_(msgid) msgid
+
+static GObject *psppire_val_labs_dialog_constructor (GType type, guint,
+ GObjectConstructParam *);
+static void psppire_val_labs_dialog_finalize (GObject *);
+
+G_DEFINE_TYPE (PsppireValLabsDialog,
+ psppire_val_labs_dialog,
+ PSPPIRE_TYPE_DIALOG);
+enum
+ {
+ PROP_0,
+ PROP_VARIABLE,
+ PROP_VALUE_LABELS
+ };
+
+static void do_change (PsppireValLabsDialog *);
+
+static void
+psppire_val_labs_dialog_set_property (GObject *object,
+ guint prop_id,
+ const GValue *value,
+ GParamSpec *pspec)
+{
+ PsppireValLabsDialog *obj = PSPPIRE_VAL_LABS_DIALOG (object);
+
+ switch (prop_id)
+ {
+ case PROP_VARIABLE:
+ psppire_val_labs_dialog_set_variable (obj, g_value_get_pointer (value));
+ break;
+ case PROP_VALUE_LABELS:
+ default:
+ G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+ break;
+ }
+}
+
+static void
+psppire_val_labs_dialog_get_property (GObject *object,
+ guint prop_id,
+ GValue *value,
+ GParamSpec *pspec)
+{
+ PsppireValLabsDialog *obj = PSPPIRE_VAL_LABS_DIALOG (object);
+
+ switch (prop_id)
+ {
+ case PROP_VALUE_LABELS:
+ g_value_set_pointer (value, obj->labs);
+ break;
+ case PROP_VARIABLE:
+ default:
+ G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+ break;
+ }
+}
+
+static void
+psppire_val_labs_dialog_class_init (PsppireValLabsDialogClass *class)
+{
+ GObjectClass *gobject_class;
+ gobject_class = G_OBJECT_CLASS (class);
+
+ gobject_class->constructor = psppire_val_labs_dialog_constructor;
+ gobject_class->finalize = psppire_val_labs_dialog_finalize;
+ gobject_class->set_property = psppire_val_labs_dialog_set_property;
+ gobject_class->get_property = psppire_val_labs_dialog_get_property;
+
+ g_object_class_install_property (
+ gobject_class, PROP_VARIABLE,
+ g_param_spec_pointer ("variable",
+ "Variable",
+ "Variable whose value labels are to be edited. The "
+ "variable's print format and encoding are also used "
+ "for editing.",
+ G_PARAM_WRITABLE));
+
+ g_object_class_install_property (
+ gobject_class, PROP_VALUE_LABELS,
+ g_param_spec_pointer ("value-labels",
+ "Value Labels",
+ "Edited value labels.",
+ G_PARAM_READABLE));
+}
+
+static void
+psppire_val_labs_dialog_init (PsppireValLabsDialog *obj)
+{
+ /* We do all of our work on widgets in the constructor function, because that
+ runs after the construction properties have been set. Otherwise
+ PsppireDialog's "orientation" property hasn't been set and therefore we
+ have no box to populate. */
+ obj->labs = val_labs_create (0);
+}
+
+static void
+psppire_val_labs_dialog_finalize (GObject *obj)
+{
+ PsppireValLabsDialog *dialog = PSPPIRE_VAL_LABS_DIALOG (obj);
+
+ val_labs_destroy (dialog->labs);
+ g_free (dialog->encoding);
+
+ G_OBJECT_CLASS (psppire_val_labs_dialog_parent_class)->finalize (obj);
+}
+
+PsppireValLabsDialog *
+psppire_val_labs_dialog_new (const struct variable *var)
+{
+ return PSPPIRE_VAL_LABS_DIALOG (
+ g_object_new (PSPPIRE_TYPE_VAL_LABS_DIALOG,
+ "variable", var,
+ NULL));
+}
+
+struct val_labs *
+psppire_val_labs_dialog_run (GtkWindow *parent_window,
+ const struct variable *var)
+{
+ PsppireValLabsDialog *dialog;
+ struct val_labs *labs;
+
+ dialog = psppire_val_labs_dialog_new (var);
+ gtk_window_set_transient_for (GTK_WINDOW (dialog), parent_window);
+ gtk_window_set_modal (GTK_WINDOW (dialog), TRUE);
+ gtk_widget_show (GTK_WIDGET (dialog));
+
+ labs = (psppire_dialog_run (PSPPIRE_DIALOG (dialog)) == GTK_RESPONSE_OK
+ ? val_labs_clone (psppire_val_labs_dialog_get_value_labels (dialog))
+ : NULL);
+
+ gtk_widget_destroy (GTK_WIDGET (dialog));
+
+ return labs;
+}
/* This callback occurs when the text in the label entry box
is changed */
{
union value v;
const gchar *text ;
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
g_assert (dialog->labs);
text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
- text_to_value (text, &v,
- *var_get_write_format (dialog->pv));
-
+ text_to_value__ (text, &dialog->format, dialog->encoding, &v);
- if ( val_labs_find (dialog->labs, v) )
+ if (val_labs_find (dialog->labs, &v))
{
gtk_widget_set_sensitive (dialog->change_button, TRUE);
gtk_widget_set_sensitive (dialog->add_button, FALSE);
gtk_widget_set_sensitive (dialog->change_button, FALSE);
gtk_widget_set_sensitive (dialog->add_button, TRUE);
}
+
+ value_destroy (&v, val_labs_get_width (dialog->labs));
}
+/* This callback occurs when Enter is pressed in the label entry box. */
+static void
+on_label_entry_activate (GtkEntry *entry, gpointer data)
+{
+ PsppireValLabsDialog *dialog = data;
+ do_change (dialog);
+}
+
+/* Return the value-label pair currently selected in the dialog box */
/* Set the TREEVIEW list cursor to the item which has the value VAL */
static void
static void
on_value_entry_change (GtkEntry *entry, gpointer data)
{
- char *s;
+ const char *s;
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
union value v;
- text_to_value (text, &v,
- *var_get_write_format (dialog->pv));
-
+ text_to_value__ (text, &dialog->format, dialog->encoding, &v);
g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
dialog->change_handler_id);
gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),"");
- if ( (s = val_labs_find (dialog->labs, v)) )
+ if ( (s = val_labs_find (dialog->labs, &v)) )
{
gtk_entry_set_text (GTK_ENTRY (dialog->label_entry), s);
gtk_widget_set_sensitive (dialog->add_button, FALSE);
g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
dialog->change_handler_id);
-}
-
-
-/* Callback for when the Value Labels dialog is closed using
- the OK button.*/
-static gint
-val_labs_ok (GtkWidget *w, gpointer data)
-{
- struct val_labs_dialog *dialog = data;
-
- var_set_value_labels (dialog->pv, dialog->labs);
-
- val_labs_destroy (dialog->labs);
- dialog->labs = 0;
-
- return FALSE;
+ value_destroy (&v, val_labs_get_width (dialog->labs));
}
-/* Callback for when the Value Labels dialog is closed using
- the Cancel button.*/
-static gint
-val_labs_cancel (GtkWidget *w, gpointer data)
+/* This callback occurs when Enter is pressed in the value entry box. */
+static void
+on_value_entry_activate (GtkEntry *entry, gpointer data)
{
- struct val_labs_dialog *dialog = data;
-
- val_labs_destroy (dialog->labs);
- dialog->labs = 0;
+ PsppireValLabsDialog *dialog = data;
- return FALSE;
+ gtk_widget_grab_focus (dialog->label_entry);
}
-
-/* Return the value-label pair currently selected in the dialog box */
-static struct val_lab *
-get_selected_tuple (struct val_labs_dialog *dialog)
+static gboolean
+get_selected_tuple (PsppireValLabsDialog *dialog,
+ union value *valuep, const char **label)
{
GtkTreeView *treeview = GTK_TREE_VIEW (dialog->treeview);
- static struct val_lab vl;
GtkTreeIter iter ;
GValue the_value = {0};
+ union value value;
GtkTreeSelection* sel = gtk_tree_view_get_selection (treeview);
GtkTreeModel * model = gtk_tree_view_get_model (treeview);
- gtk_tree_selection_get_selected (sel, &model, &iter);
+ if (! gtk_tree_selection_get_selected (sel, &model, &iter))
+ return FALSE;
gtk_tree_model_get_value (model, &iter, 1, &the_value);
- vl.value.f = g_value_get_double (&the_value);
+ value.f = g_value_get_double (&the_value);
g_value_unset (&the_value);
- vl.label = val_labs_find (dialog->labs, vl.value);
+ if (valuep != NULL)
+ *valuep = value;
+ if (label != NULL)
+ {
+ struct val_lab *vl = val_labs_lookup (dialog->labs, &value);
+ if (vl != NULL)
+ *label = val_lab_get_escaped_label (vl);
+ }
- return &vl;
+ return TRUE;
}
-static void repopulate_dialog (struct val_labs_dialog *dialog);
+static void repopulate_dialog (PsppireValLabsDialog *dialog);
/* Callback which occurs when the "Change" button is clicked */
-static gint
+static void
on_change (GtkWidget *w, gpointer data)
{
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
+ do_change (dialog);
+}
+static void
+do_change (PsppireValLabsDialog *dialog)
+{
const gchar *val_text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
union value v;
- text_to_value (val_text, &v,
- *var_get_write_format (dialog->pv));
-
- val_labs_replace (dialog->labs, v,
- gtk_entry_get_text (GTK_ENTRY (dialog->label_entry)));
+ if (text_to_value__ (val_text, &dialog->format, dialog->encoding, &v))
+ {
+ val_labs_replace (dialog->labs, &v,
+ gtk_entry_get_text (GTK_ENTRY (dialog->label_entry)));
- gtk_widget_set_sensitive (dialog->change_button, FALSE);
+ gtk_widget_set_sensitive (dialog->change_button, FALSE);
- repopulate_dialog (dialog);
+ repopulate_dialog (dialog);
+ gtk_widget_grab_focus (dialog->value_entry);
- return FALSE;
+ value_destroy (&v, val_labs_get_width (dialog->labs));
+ }
}
/* Callback which occurs when the "Add" button is clicked */
-static gint
+static void
on_add (GtkWidget *w, gpointer data)
{
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
union value v;
const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
- text_to_value (text, &v,
- *var_get_write_format (dialog->pv));
-
-
- if ( ! val_labs_add (dialog->labs, v,
- gtk_entry_get_text
- ( GTK_ENTRY (dialog->label_entry)) ) )
- return FALSE;
-
- gtk_widget_set_sensitive (dialog->add_button, FALSE);
+ if (text_to_value__ (text, &dialog->format, dialog->encoding, &v))
+ {
+ if (val_labs_add (dialog->labs, &v,
+ gtk_entry_get_text
+ ( GTK_ENTRY (dialog->label_entry)) ) )
+ {
+ gtk_widget_set_sensitive (dialog->add_button, FALSE);
- repopulate_dialog (dialog);
+ repopulate_dialog (dialog);
+ gtk_widget_grab_focus (dialog->value_entry);
+ }
- return FALSE;
+ value_destroy (&v, val_labs_get_width (dialog->labs));
+ }
}
/* Callback which occurs when the "Remove" button is clicked */
-static gint
+static void
on_remove (GtkWidget *w, gpointer data)
{
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
+
+ union value value;
+ struct val_lab *vl;
- struct val_lab *vl = get_selected_tuple (dialog);
+ if (! get_selected_tuple (dialog, &value, NULL))
+ return;
- val_labs_remove (dialog->labs, vl->value);
+ vl = val_labs_lookup (dialog->labs, &value);
+ if (vl != NULL)
+ val_labs_remove (dialog->labs, vl);
repopulate_dialog (dialog);
+ gtk_widget_grab_focus (dialog->value_entry);
gtk_widget_set_sensitive (dialog->remove_button, FALSE);
-
- return FALSE;
}
/* Callback which occurs when a line item is selected in the list of
value--label pairs.*/
static void
-on_select_row (GtkTreeView *treeview,
- gpointer data)
+on_select_row (GtkTreeView *treeview, gpointer data)
{
- gchar *labeltext;
- struct val_labs_dialog *dialog = data;
+ PsppireValLabsDialog *dialog = data;
- struct val_lab * vl = get_selected_tuple (dialog);
+ union value value;
+ const char *label = NULL;
- gchar *const text = value_to_text (vl->value,
- *var_get_write_format (dialog->pv));
+ gchar *text;
+
+ if (! get_selected_tuple (dialog, &value, &label))
+ return;
+
+ text = value_to_text__ (value, &dialog->format, dialog->encoding);
g_signal_handler_block (GTK_ENTRY (dialog->value_entry),
dialog->value_handler_id);
g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
dialog->change_handler_id);
- labeltext = pspp_locale_to_utf8 (vl->label, -1, 0);
+
gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),
- labeltext);
- g_free (labeltext);
+ label);
g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
dialog->change_handler_id);
/* Create a new dialog box
(there should normally be only one)*/
-struct val_labs_dialog *
-val_labs_dialog_create (GladeXML *xml)
+static GObject *
+psppire_val_labs_dialog_constructor (GType type,
+ guint n_properties,
+ GObjectConstructParam *properties)
{
+ PsppireValLabsDialog *dialog;
GtkTreeViewColumn *column;
GtkCellRenderer *renderer ;
- struct val_labs_dialog *dialog = g_malloc (sizeof (*dialog));
+ GtkBuilder *xml = builder_new ("val-labs-dialog.ui");
+
+ GtkContainer *content_area;
+ GObject *obj;
+
+ obj = G_OBJECT_CLASS (psppire_val_labs_dialog_parent_class)->constructor (
+ type, n_properties, properties);
+ dialog = PSPPIRE_VAL_LABS_DIALOG (obj);
+
+ content_area = GTK_CONTAINER (PSPPIRE_DIALOG (dialog));
+ gtk_container_add (GTK_CONTAINER (content_area),
+ get_widget_assert (xml, "val-labs-dialog"));
- dialog->window = get_widget_assert (xml,"val_labs_dialog");
dialog->value_entry = get_widget_assert (xml,"value_entry");
dialog->label_entry = get_widget_assert (xml,"label_entry");
- gtk_window_set_transient_for
- (GTK_WINDOW (dialog->window),
- GTK_WINDOW (get_widget_assert (xml, "data_editor")));
-
- dialog->ok = get_widget_assert (xml, "val_labs_ok");
dialog->add_button = get_widget_assert (xml, "val_labs_add");
dialog->remove_button = get_widget_assert (xml, "val_labs_remove");
dialog->change_button = get_widget_assert (xml, "val_labs_change");
gtk_tree_view_append_column (GTK_TREE_VIEW (dialog->treeview), column);
- g_signal_connect (GTK_OBJECT (get_widget_assert (xml, "val_labs_cancel")),
- "clicked",
- GTK_SIGNAL_FUNC (val_labs_cancel), dialog);
-
dialog->change_handler_id =
- g_signal_connect (GTK_OBJECT (dialog->label_entry),
+ g_signal_connect (dialog->label_entry,
"changed",
- GTK_SIGNAL_FUNC (on_label_entry_change), dialog);
+ G_CALLBACK (on_label_entry_change), dialog);
+ g_signal_connect (dialog->label_entry, "activate",
+ G_CALLBACK (on_label_entry_activate), dialog);
dialog->value_handler_id =
- g_signal_connect (GTK_OBJECT (dialog->value_entry),
+ g_signal_connect (dialog->value_entry,
"changed",
- GTK_SIGNAL_FUNC (on_value_entry_change), dialog);
+ G_CALLBACK (on_value_entry_change), dialog);
+ g_signal_connect (dialog->value_entry, "activate",
+ G_CALLBACK (on_value_entry_activate), dialog);
- g_signal_connect (GTK_OBJECT (dialog->change_button),
+ g_signal_connect (dialog->change_button,
"clicked",
- GTK_SIGNAL_FUNC (on_change), dialog);
-
+ G_CALLBACK (on_change), dialog);
- g_signal_connect (GTK_OBJECT (get_widget_assert (xml, "val_labs_ok")),
- "clicked",
- GTK_SIGNAL_FUNC (val_labs_ok), dialog);
+ g_signal_connect (dialog->treeview, "cursor-changed",
+ G_CALLBACK (on_select_row), dialog);
- g_signal_connect (GTK_OBJECT (dialog->treeview), "cursor-changed",
- GTK_SIGNAL_FUNC (on_select_row), dialog);
+ g_signal_connect (dialog->remove_button, "clicked",
+ G_CALLBACK (on_remove), dialog);
+ g_signal_connect (dialog->add_button, "clicked",
+ G_CALLBACK (on_add), dialog);
- g_signal_connect (GTK_OBJECT (dialog->remove_button), "clicked",
- GTK_SIGNAL_FUNC (on_remove), dialog);
+ dialog->labs = NULL;
+ g_object_unref (xml);
- g_signal_connect (GTK_OBJECT (dialog->add_button), "clicked",
- GTK_SIGNAL_FUNC (on_add), dialog);
-
- dialog->labs = 0;
-
- return dialog;
+ return obj;
}
/* Populate the components of the dialog box, from the 'labs' member
variable */
static void
-repopulate_dialog (struct val_labs_dialog *dialog)
+repopulate_dialog (PsppireValLabsDialog *dialog)
{
- struct val_labs_iterator *vli = 0;
- struct val_lab *vl;
+ const struct val_lab **labels;
+ size_t n_labels;
+ size_t i;
GtkTreeIter iter;
g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
dialog->change_handler_id);
-
- for (vl = val_labs_first_sorted (dialog->labs, &vli);
- vl;
- vl = val_labs_next (dialog->labs, &vli))
+ labels = val_labs_sorted (dialog->labs);
+ n_labels = val_labs_count (dialog->labs);
+ for (i = 0; i < n_labels; i++)
{
+ const struct val_lab *vl = labels[i];
gchar *const vstr =
- value_to_text (vl->value,
- *var_get_write_format (dialog->pv));
-
- gchar *labeltext =
- pspp_locale_to_utf8 (vl->label, -1, 0);
-
- gchar *const text = g_strdup_printf ("%s = \"%s\"",
- vstr, labeltext);
+ value_to_text__ (vl->value, &dialog->format, dialog->encoding);
+ gchar *const text = g_strdup_printf (_("%s = `%s'"), vstr,
+ val_lab_get_escaped_label (vl));
gtk_list_store_append (list_store, &iter);
gtk_list_store_set (list_store, &iter,
1, vl->value.f,
-1);
- g_free (labeltext);
g_free (text);
g_free (vstr);
}
+ free (labels);
gtk_tree_view_set_model (GTK_TREE_VIEW (dialog->treeview),
GTK_TREE_MODEL (list_store));
}
-/* Initialise and display the dialog box */
void
-val_labs_dialog_show (struct val_labs_dialog *dialog)
+psppire_val_labs_dialog_set_variable (PsppireValLabsDialog *dialog,
+ const struct variable *var)
{
- const struct val_labs *value_labels;
-
- g_assert (!dialog->labs);
+ val_labs_destroy (dialog->labs);
+ dialog->labs = NULL;
- value_labels = var_get_value_labels (dialog->pv);
+ g_free (dialog->encoding);
+ dialog->encoding = NULL;
- if (value_labels)
- dialog->labs = val_labs_copy ( value_labels );
+ if (var != NULL)
+ {
+ dialog->labs = val_labs_clone (var_get_value_labels (var));
+ dialog->encoding = g_strdup (var_get_encoding (var));
+ dialog->format = *var_get_print_format (var);
+ }
else
- dialog->labs = val_labs_create ( var_get_width (dialog->pv));
+ dialog->format = F_8_0;
- gtk_widget_set_sensitive (dialog->remove_button, FALSE);
- gtk_widget_set_sensitive (dialog->change_button, FALSE);
- gtk_widget_set_sensitive (dialog->add_button, FALSE);
+ if (dialog->labs == NULL)
+ dialog->labs = val_labs_create (var_get_width (var));
repopulate_dialog (dialog);
- gtk_widget_show (dialog->window);
}
+const struct val_labs *
+psppire_val_labs_dialog_get_value_labels (const PsppireValLabsDialog *dialog)
+{
+ return dialog->labs;
+}