1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2005, 2009 Free Software Foundation
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
18 /* This module describes the behaviour of the Value Labels dialog box,
19 used for input of the value labels in the variable sheet */
26 #include "val-labs-dialog.h"
27 #include <data/value-labels.h>
28 #include <data/format.h>
29 #include "psppire-var-sheet.h"
30 #include "psppire-var-store.h"
31 #include <libpspp/i18n.h>
33 struct val_labs_dialog
39 /* The variable to be updated */
42 /* Local copy of labels */
43 struct val_labs *labs;
46 GtkWidget *add_button;
47 GtkWidget *remove_button;
48 GtkWidget *change_button;
51 GtkWidget *value_entry;
52 GtkWidget *label_entry;
54 /* Signal handler ids */
55 gint change_handler_id;
56 gint value_handler_id;
62 /* This callback occurs when the text in the label entry box
65 on_label_entry_change (GtkEntry *entry, gpointer data)
69 struct val_labs_dialog *dialog = data;
70 g_assert (dialog->labs);
72 text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
74 text_to_value (text, &v,
75 *var_get_write_format (dialog->pv));
78 if ( val_labs_find (dialog->labs, v) )
80 gtk_widget_set_sensitive (dialog->change_button, TRUE);
81 gtk_widget_set_sensitive (dialog->add_button, FALSE);
85 gtk_widget_set_sensitive (dialog->change_button, FALSE);
86 gtk_widget_set_sensitive (dialog->add_button, TRUE);
91 /* Set the TREEVIEW list cursor to the item which has the value VAL */
93 select_treeview_from_value (GtkTreeView *treeview, union value *val)
98 We do this with a linear search through the model --- hardly
99 efficient, but the list is short ... */
102 GtkTreeModel * model = gtk_tree_view_get_model (treeview);
105 for (success = gtk_tree_model_get_iter_first (model, &iter);
107 success = gtk_tree_model_iter_next (model, &iter))
112 gtk_tree_model_get_value (model, &iter, 1, &gvalue);
114 v.f = g_value_get_double (&gvalue);
116 if ( 0 == memcmp (&v, val, sizeof (union value)))
122 path = gtk_tree_model_get_path (model, &iter);
125 gtk_tree_view_set_cursor (treeview, path, 0, 0);
126 gtk_tree_path_free (path);
132 /* This callback occurs when the text in the value entry box is
135 on_value_entry_change (GtkEntry *entry, gpointer data)
139 struct val_labs_dialog *dialog = data;
141 const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
144 text_to_value (text, &v,
145 *var_get_write_format (dialog->pv));
148 g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
149 dialog->change_handler_id);
151 gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),"");
154 if ( (s = val_labs_find (dialog->labs, v)) )
156 gtk_entry_set_text (GTK_ENTRY (dialog->label_entry), s);
157 gtk_widget_set_sensitive (dialog->add_button, FALSE);
158 gtk_widget_set_sensitive (dialog->remove_button, TRUE);
159 select_treeview_from_value (GTK_TREE_VIEW (dialog->treeview), &v);
163 gtk_widget_set_sensitive (dialog->remove_button, FALSE);
164 gtk_widget_set_sensitive (dialog->add_button, TRUE);
167 g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
168 dialog->change_handler_id);
172 /* Callback for when the Value Labels dialog is closed using
175 val_labs_ok (GtkWidget *w, gpointer data)
177 struct val_labs_dialog *dialog = data;
179 var_set_value_labels (dialog->pv, dialog->labs);
181 val_labs_destroy (dialog->labs);
185 gtk_widget_hide (dialog->window);
190 /* Callback for when the Value Labels dialog is closed using
193 val_labs_cancel (struct val_labs_dialog *dialog)
195 val_labs_destroy (dialog->labs);
199 gtk_widget_hide (dialog->window);
203 /* Callback for when the Value Labels dialog is closed using
206 on_cancel (GtkWidget *w, gpointer data)
208 struct val_labs_dialog *dialog = data;
210 val_labs_cancel (dialog);
216 /* Callback for when the Value Labels dialog is closed using
217 the window delete button.*/
219 on_delete (GtkWidget *w, GdkEvent *e, gpointer data)
221 struct val_labs_dialog *dialog = data;
223 val_labs_cancel (dialog);
229 /* Return the value-label pair currently selected in the dialog box */
230 static struct val_lab *
231 get_selected_tuple (struct val_labs_dialog *dialog)
233 GtkTreeView *treeview = GTK_TREE_VIEW (dialog->treeview);
234 static struct val_lab vl;
237 GValue the_value = {0};
239 GtkTreeSelection* sel = gtk_tree_view_get_selection (treeview);
241 GtkTreeModel * model = gtk_tree_view_get_model (treeview);
243 gtk_tree_selection_get_selected (sel, &model, &iter);
245 gtk_tree_model_get_value (model, &iter, 1, &the_value);
247 vl.value.f = g_value_get_double (&the_value);
248 g_value_unset (&the_value);
250 vl.label = val_labs_find (dialog->labs, vl.value);
256 static void repopulate_dialog (struct val_labs_dialog *dialog);
258 /* Callback which occurs when the "Change" button is clicked */
260 on_change (GtkWidget *w, gpointer data)
262 struct val_labs_dialog *dialog = data;
264 const gchar *val_text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
268 text_to_value (val_text, &v,
269 *var_get_write_format (dialog->pv));
271 val_labs_replace (dialog->labs, v,
272 gtk_entry_get_text (GTK_ENTRY (dialog->label_entry)));
274 gtk_widget_set_sensitive (dialog->change_button, FALSE);
276 repopulate_dialog (dialog);
277 gtk_widget_grab_focus (dialog->value_entry);
282 /* Callback which occurs when the "Add" button is clicked */
284 on_add (GtkWidget *w, gpointer data)
286 struct val_labs_dialog *dialog = data;
290 const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
292 text_to_value (text, &v,
293 *var_get_write_format (dialog->pv));
296 if ( ! val_labs_add (dialog->labs, v,
298 ( GTK_ENTRY (dialog->label_entry)) ) )
301 gtk_widget_set_sensitive (dialog->add_button, FALSE);
303 repopulate_dialog (dialog);
304 gtk_widget_grab_focus (dialog->value_entry);
309 /* Callback which occurs when the "Remove" button is clicked */
311 on_remove (GtkWidget *w, gpointer data)
313 struct val_labs_dialog *dialog = data;
315 struct val_lab *vl = get_selected_tuple (dialog);
317 val_labs_remove (dialog->labs, vl->value);
319 repopulate_dialog (dialog);
320 gtk_widget_grab_focus (dialog->value_entry);
322 gtk_widget_set_sensitive (dialog->remove_button, FALSE);
329 /* Callback which occurs when a line item is selected in the list of
330 value--label pairs.*/
332 on_select_row (GtkTreeView *treeview, gpointer data)
335 struct val_labs_dialog *dialog = data;
337 struct val_lab * vl = get_selected_tuple (dialog);
339 gchar *const text = value_to_text (vl->value,
340 *var_get_write_format (dialog->pv));
342 PsppireVarStore *var_store =
343 PSPPIRE_VAR_STORE (psppire_sheet_get_model (dialog->vs));
345 g_signal_handler_block (GTK_ENTRY (dialog->value_entry),
346 dialog->value_handler_id);
348 gtk_entry_set_text (GTK_ENTRY (dialog->value_entry), text);
350 g_signal_handler_unblock (GTK_ENTRY (dialog->value_entry),
351 dialog->value_handler_id);
354 g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
355 dialog->change_handler_id);
358 labeltext = recode_string (UTF8, psppire_dict_encoding (var_store->dict),
361 gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),
365 g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
366 dialog->change_handler_id);
368 gtk_widget_set_sensitive (dialog->remove_button, TRUE);
369 gtk_widget_set_sensitive (dialog->change_button, FALSE);
373 /* Create a new dialog box
374 (there should normally be only one)*/
375 struct val_labs_dialog *
376 val_labs_dialog_create (GtkWindow *toplevel, PsppireSheet *sheet)
378 GtkTreeViewColumn *column;
380 GtkCellRenderer *renderer ;
382 GtkBuilder *xml = builder_new ("var-sheet-dialogs.ui");
384 struct val_labs_dialog *dialog = g_malloc (sizeof (*dialog));
386 dialog->window = get_widget_assert (xml,"val_labs_dialog");
387 dialog->value_entry = get_widget_assert (xml,"value_entry");
388 dialog->label_entry = get_widget_assert (xml,"label_entry");
391 gtk_window_set_transient_for
392 (GTK_WINDOW (dialog->window), toplevel);
394 dialog->add_button = get_widget_assert (xml, "val_labs_add");
395 dialog->remove_button = get_widget_assert (xml, "val_labs_remove");
396 dialog->change_button = get_widget_assert (xml, "val_labs_change");
398 dialog->treeview = get_widget_assert (xml,"treeview1");
400 gtk_tree_view_set_headers_visible (GTK_TREE_VIEW (dialog->treeview), FALSE);
402 renderer = gtk_cell_renderer_text_new ();
404 column = gtk_tree_view_column_new_with_attributes ("Title",
410 gtk_tree_view_append_column (GTK_TREE_VIEW (dialog->treeview), column);
412 g_signal_connect (get_widget_assert (xml, "val_labs_cancel"),
414 GTK_SIGNAL_FUNC (on_cancel), dialog);
416 g_signal_connect (dialog->window, "delete-event",
417 GTK_SIGNAL_FUNC (on_delete), dialog);
419 g_signal_connect (get_widget_assert (xml, "val_labs_ok"),
421 GTK_SIGNAL_FUNC (val_labs_ok), dialog);
423 dialog->change_handler_id =
424 g_signal_connect (dialog->label_entry,
426 GTK_SIGNAL_FUNC (on_label_entry_change), dialog);
428 dialog->value_handler_id =
429 g_signal_connect (dialog->value_entry,
431 GTK_SIGNAL_FUNC (on_value_entry_change), dialog);
433 g_signal_connect (dialog->change_button,
435 GTK_SIGNAL_FUNC (on_change), dialog);
438 g_signal_connect (dialog->treeview, "cursor-changed",
439 GTK_SIGNAL_FUNC (on_select_row), dialog);
441 g_signal_connect (dialog->remove_button, "clicked",
442 GTK_SIGNAL_FUNC (on_remove), dialog);
444 g_signal_connect (dialog->add_button, "clicked",
445 GTK_SIGNAL_FUNC (on_add), dialog);
449 g_object_unref (xml);
456 val_labs_dialog_set_target_variable (struct val_labs_dialog *dialog,
457 struct variable *var)
464 /* Populate the components of the dialog box, from the 'labs' member
467 repopulate_dialog (struct val_labs_dialog *dialog)
469 struct val_labs_iterator *vli = 0;
474 PsppireVarStore *var_store =
475 PSPPIRE_VAR_STORE (psppire_sheet_get_model (dialog->vs));
477 GtkListStore *list_store = gtk_list_store_new (2,
481 g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
482 dialog->change_handler_id);
483 g_signal_handler_block (GTK_ENTRY (dialog->value_entry),
484 dialog->value_handler_id);
486 gtk_entry_set_text (GTK_ENTRY (dialog->value_entry), "");
487 gtk_entry_set_text (GTK_ENTRY (dialog->label_entry), "");
489 g_signal_handler_unblock (GTK_ENTRY (dialog->value_entry),
490 dialog->value_handler_id);
491 g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
492 dialog->change_handler_id);
495 for (vl = val_labs_first_sorted (dialog->labs, &vli);
497 vl = val_labs_next (dialog->labs, &vli))
501 value_to_text (vl->value,
502 *var_get_write_format (dialog->pv));
506 psppire_dict_encoding (var_store->dict),
509 gchar *const text = g_strdup_printf ("%s = \"%s\"",
512 gtk_list_store_append (list_store, &iter);
513 gtk_list_store_set (list_store, &iter,
523 gtk_tree_view_set_model (GTK_TREE_VIEW (dialog->treeview),
524 GTK_TREE_MODEL (list_store));
526 g_object_unref (list_store);
530 /* Initialise and display the dialog box */
532 val_labs_dialog_show (struct val_labs_dialog *dialog)
534 const struct val_labs *value_labels;
536 g_assert (!dialog->labs);
538 value_labels = var_get_value_labels (dialog->pv);
541 dialog->labs = val_labs_clone ( value_labels );
543 dialog->labs = val_labs_create ( var_get_width (dialog->pv));
545 gtk_widget_set_sensitive (dialog->remove_button, FALSE);
546 gtk_widget_set_sensitive (dialog->change_button, FALSE);
547 gtk_widget_set_sensitive (dialog->add_button, FALSE);
549 gtk_widget_grab_focus (dialog->value_entry);
551 repopulate_dialog (dialog);
552 gtk_widget_show (dialog->window);