Categoricals.c Create entries for all groups.
[pspp] / src / ui / gui / val-labs-dialog.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2005, 2009  Free Software Foundation
3
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.
8
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.
13
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/>. */
16
17
18 /*  This module describes the behaviour of the Value Labels dialog box,
19     used for input of the value labels in the variable sheet */
20
21 #include <config.h>
22
23 #include <string.h>
24
25 #include "helper.h"
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>
32
33 struct val_labs_dialog
34 {
35   GtkWidget *window;
36
37   PsppireVarStore *var_store;
38   PsppireDict *dict;
39
40   /* The variable to be updated */
41   struct variable *pv;
42
43   /* Local copy of labels */
44   struct val_labs *labs;
45
46   /* Actions */
47   GtkWidget *add_button;
48   GtkWidget *remove_button;
49   GtkWidget *change_button;
50
51   /* Entry Boxes */
52   GtkWidget *value_entry;
53   GtkWidget *label_entry;
54
55   /* Signal handler ids */
56   gint change_handler_id;
57   gint value_handler_id;
58
59   GtkWidget *treeview;
60 };
61
62
63 /* This callback occurs when the text in the label entry box
64    is changed */
65 static void
66 on_label_entry_change (GtkEntry *entry, gpointer data)
67 {
68   union value v;
69   const gchar *text ;
70   struct val_labs_dialog *dialog = data;
71   g_assert (dialog->labs);
72
73   text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
74
75   text_to_value (text,
76                  dialog->dict,
77                  dialog->pv,
78                  &v);
79
80   if (val_labs_find (dialog->labs, &v))
81     {
82       gtk_widget_set_sensitive (dialog->change_button, TRUE);
83       gtk_widget_set_sensitive (dialog->add_button, FALSE);
84     }
85   else
86     {
87       gtk_widget_set_sensitive (dialog->change_button, FALSE);
88       gtk_widget_set_sensitive (dialog->add_button, TRUE);
89     }
90
91   value_destroy (&v, var_get_width (dialog->pv));
92 }
93
94
95 /* Set the TREEVIEW list cursor to the item which has the value VAL */
96 static void
97 select_treeview_from_value (GtkTreeView *treeview, union value *val)
98 {
99   GtkTreePath *path ;
100
101   /*
102     We do this with a linear search through the model --- hardly
103     efficient, but the list is short ... */
104   GtkTreeIter iter;
105
106   GtkTreeModel * model  = gtk_tree_view_get_model (treeview);
107
108   gboolean success;
109   for (success = gtk_tree_model_get_iter_first (model, &iter);
110        success;
111        success = gtk_tree_model_iter_next (model, &iter))
112     {
113       union value v;
114       GValue gvalue = {0};
115
116       gtk_tree_model_get_value (model, &iter, 1, &gvalue);
117
118       v.f = g_value_get_double (&gvalue);
119
120       if ( 0 == memcmp (&v, val, sizeof (union value)))
121         {
122           break;
123         }
124     }
125
126   path = gtk_tree_model_get_path (model, &iter);
127   if ( path )
128     {
129       gtk_tree_view_set_cursor (treeview, path, 0, 0);
130       gtk_tree_path_free (path);
131     }
132
133 }
134
135
136 /* This callback occurs when the text in the value entry box is
137    changed */
138 static void
139 on_value_entry_change (GtkEntry *entry, gpointer data)
140 {
141   const char *s;
142
143   struct val_labs_dialog *dialog = data;
144
145   const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
146
147   union value v;
148   text_to_value (text,
149                  dialog->dict,
150                  dialog->pv,
151                  &v);
152
153
154   g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
155                          dialog->change_handler_id);
156
157   gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),"");
158
159
160   if ( (s = val_labs_find (dialog->labs, &v)) )
161     {
162       gtk_entry_set_text (GTK_ENTRY (dialog->label_entry), s);
163       gtk_widget_set_sensitive (dialog->add_button, FALSE);
164       gtk_widget_set_sensitive (dialog->remove_button, TRUE);
165       select_treeview_from_value (GTK_TREE_VIEW (dialog->treeview), &v);
166     }
167   else
168     {
169       gtk_widget_set_sensitive (dialog->remove_button, FALSE);
170       gtk_widget_set_sensitive (dialog->add_button, TRUE);
171     }
172
173   g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
174                          dialog->change_handler_id);
175
176   value_destroy (&v, var_get_width (dialog->pv));
177 }
178
179
180 /* Callback for when the Value Labels dialog is closed using
181    the OK button.*/
182 static gint
183 val_labs_ok (GtkWidget *w, gpointer data)
184 {
185   struct val_labs_dialog *dialog = data;
186
187   var_set_value_labels (dialog->pv, dialog->labs);
188
189   val_labs_destroy (dialog->labs);
190
191   dialog->labs = 0;
192
193   gtk_widget_hide (dialog->window);
194
195   return FALSE;
196 }
197
198 /* Callback for when the Value Labels dialog is closed using
199    the Cancel button.*/
200 static void
201 val_labs_cancel (struct val_labs_dialog *dialog)
202 {
203   val_labs_destroy (dialog->labs);
204
205   dialog->labs = 0;
206
207   gtk_widget_hide (dialog->window);
208 }
209
210
211 /* Callback for when the Value Labels dialog is closed using
212    the Cancel button.*/
213 static void
214 on_cancel (GtkWidget *w, gpointer data)
215 {
216   struct val_labs_dialog *dialog = data;
217
218   val_labs_cancel (dialog);
219 }
220
221
222 /* Callback for when the Value Labels dialog is closed using
223    the window delete button.*/
224 static gint
225 on_delete (GtkWidget *w, GdkEvent *e, gpointer data)
226 {
227   struct val_labs_dialog *dialog = data;
228
229   val_labs_cancel (dialog);
230
231   return TRUE;
232 }
233
234
235 /* Return the value-label pair currently selected in the dialog box  */
236 static void
237 get_selected_tuple (struct val_labs_dialog *dialog,
238                     union value *valuep, const char **label)
239 {
240   GtkTreeView *treeview = GTK_TREE_VIEW (dialog->treeview);
241
242   GtkTreeIter iter ;
243   GValue the_value = {0};
244   union value value;
245
246   GtkTreeSelection* sel =  gtk_tree_view_get_selection (treeview);
247
248   GtkTreeModel * model  = gtk_tree_view_get_model (treeview);
249
250   gtk_tree_selection_get_selected (sel, &model, &iter);
251
252   gtk_tree_model_get_value (model, &iter, 1, &the_value);
253
254   value.f = g_value_get_double (&the_value);
255   g_value_unset (&the_value);
256
257   if (valuep != NULL)
258     *valuep = value;
259   if (label != NULL)
260     *label = val_labs_find (dialog->labs, &value);
261 }
262
263
264 static void repopulate_dialog (struct val_labs_dialog *dialog);
265
266 /* Callback which occurs when the "Change" button is clicked */
267 static void
268 on_change (GtkWidget *w, gpointer data)
269 {
270   struct val_labs_dialog *dialog = data;
271
272   const gchar *val_text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
273
274   union value v;
275
276   text_to_value (val_text,
277                  dialog->dict,
278                  dialog->pv,
279                  &v);
280
281   val_labs_replace (dialog->labs, &v,
282                     gtk_entry_get_text (GTK_ENTRY (dialog->label_entry)));
283
284   gtk_widget_set_sensitive (dialog->change_button, FALSE);
285
286   repopulate_dialog (dialog);
287   gtk_widget_grab_focus (dialog->value_entry);
288
289   value_destroy (&v, var_get_width (dialog->pv));
290 }
291
292 /* Callback which occurs when the "Add" button is clicked */
293 static void
294 on_add (GtkWidget *w, gpointer data)
295 {
296   struct val_labs_dialog *dialog = data;
297
298   union value v;
299
300   const gchar *text = gtk_entry_get_text (GTK_ENTRY (dialog->value_entry));
301
302   text_to_value (text,
303                  dialog->dict,
304                  dialog->pv,
305                  &v);
306
307   if (val_labs_add (dialog->labs, &v,
308                     gtk_entry_get_text
309                     ( GTK_ENTRY (dialog->label_entry)) ) )
310     {
311       gtk_widget_set_sensitive (dialog->add_button, FALSE);
312
313       repopulate_dialog (dialog);
314       gtk_widget_grab_focus (dialog->value_entry);
315     }
316
317   value_destroy (&v, var_get_width (dialog->pv));
318 }
319
320 /* Callback which occurs when the "Remove" button is clicked */
321 static void
322 on_remove (GtkWidget *w, gpointer data)
323 {
324   struct val_labs_dialog *dialog = data;
325
326   union value value;
327   struct val_lab *vl;
328
329   get_selected_tuple (dialog, &value, NULL);
330   vl = val_labs_lookup (dialog->labs, &value);
331   if (vl != NULL)
332     val_labs_remove (dialog->labs, vl);
333
334   repopulate_dialog (dialog);
335   gtk_widget_grab_focus (dialog->value_entry);
336
337   gtk_widget_set_sensitive (dialog->remove_button, FALSE);
338 }
339
340
341
342 /* Callback which occurs when a line item is selected in the list of
343    value--label pairs.*/
344 static void
345 on_select_row (GtkTreeView *treeview, gpointer data)
346 {
347   struct val_labs_dialog *dialog = data;
348
349   union value value;
350   const char *label = NULL;
351
352   gchar *text;
353
354   get_selected_tuple (dialog, &value, &label);
355   text = value_to_text (value, dialog->dict, *var_get_write_format (dialog->pv));
356
357   g_signal_handler_block (GTK_ENTRY (dialog->value_entry),
358                          dialog->value_handler_id);
359
360   gtk_entry_set_text (GTK_ENTRY (dialog->value_entry), text);
361
362   g_signal_handler_unblock (GTK_ENTRY (dialog->value_entry),
363                          dialog->value_handler_id);
364   g_free (text);
365
366   g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
367                          dialog->change_handler_id);
368
369
370   gtk_entry_set_text (GTK_ENTRY (dialog->label_entry),
371                       label);
372
373   g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
374                          dialog->change_handler_id);
375
376   gtk_widget_set_sensitive (dialog->remove_button, TRUE);
377   gtk_widget_set_sensitive (dialog->change_button, FALSE);
378 }
379
380
381 /* Create a new dialog box
382    (there should  normally be only one)*/
383 struct val_labs_dialog *
384 val_labs_dialog_create (GtkWindow *toplevel, PsppireVarStore *var_store)
385 {
386   GtkTreeViewColumn *column;
387
388   GtkCellRenderer *renderer ;
389
390   GtkBuilder *xml = builder_new ("var-sheet-dialogs.ui");
391
392   struct val_labs_dialog *dialog = g_malloc (sizeof (*dialog));
393
394   dialog->var_store = var_store;
395   g_object_get (var_store, "dictionary", &dialog->dict, NULL);
396   dialog->window = get_widget_assert (xml,"val_labs_dialog");
397   dialog->value_entry = get_widget_assert (xml,"value_entry");
398   dialog->label_entry = get_widget_assert (xml,"label_entry");
399
400   gtk_window_set_transient_for
401     (GTK_WINDOW (dialog->window), toplevel);
402
403   dialog->add_button = get_widget_assert (xml, "val_labs_add");
404   dialog->remove_button = get_widget_assert (xml, "val_labs_remove");
405   dialog->change_button = get_widget_assert (xml, "val_labs_change");
406
407   dialog->treeview = get_widget_assert (xml,"treeview1");
408
409   gtk_tree_view_set_headers_visible (GTK_TREE_VIEW (dialog->treeview), FALSE);
410
411   renderer = gtk_cell_renderer_text_new ();
412
413   column = gtk_tree_view_column_new_with_attributes ("Title",
414                                                      renderer,
415                                                      "text",
416                                                      0,
417                                                      NULL);
418
419   gtk_tree_view_append_column (GTK_TREE_VIEW (dialog->treeview), column);
420
421   g_signal_connect (get_widget_assert (xml, "val_labs_cancel"),
422                    "clicked",
423                    G_CALLBACK (on_cancel), dialog);
424
425   g_signal_connect (dialog->window, "delete-event",
426                     G_CALLBACK (on_delete), dialog);
427
428   g_signal_connect (get_widget_assert (xml, "val_labs_ok"),
429                    "clicked",
430                    G_CALLBACK (val_labs_ok), dialog);
431
432   dialog->change_handler_id =
433     g_signal_connect (dialog->label_entry,
434                      "changed",
435                      G_CALLBACK (on_label_entry_change), dialog);
436
437   dialog->value_handler_id  =
438     g_signal_connect (dialog->value_entry,
439                      "changed",
440                      G_CALLBACK (on_value_entry_change), dialog);
441
442   g_signal_connect (dialog->change_button,
443                    "clicked",
444                    G_CALLBACK (on_change), dialog);
445
446
447   g_signal_connect (dialog->treeview, "cursor-changed",
448                    G_CALLBACK (on_select_row), dialog);
449
450   g_signal_connect (dialog->remove_button, "clicked",
451                    G_CALLBACK (on_remove), dialog);
452
453   g_signal_connect (dialog->add_button, "clicked",
454                    G_CALLBACK (on_add), dialog);
455
456   dialog->labs = 0;
457
458   g_object_unref (xml);
459
460   return dialog;
461 }
462
463
464 void
465 val_labs_dialog_set_target_variable (struct val_labs_dialog *dialog,
466                                      struct variable *var)
467 {
468   dialog->pv = var;
469 }
470
471
472
473 /* Populate the components of the dialog box, from the 'labs' member
474    variable */
475 static void
476 repopulate_dialog (struct val_labs_dialog *dialog)
477 {
478   const struct val_lab **labels;
479   size_t n_labels;
480   size_t i;
481
482   GtkTreeIter iter;
483
484   GtkListStore *list_store = gtk_list_store_new (2,
485                                                  G_TYPE_STRING,
486                                                  G_TYPE_DOUBLE);
487
488   g_signal_handler_block (GTK_ENTRY (dialog->label_entry),
489                          dialog->change_handler_id);
490   g_signal_handler_block (GTK_ENTRY (dialog->value_entry),
491                          dialog->value_handler_id);
492
493   gtk_entry_set_text (GTK_ENTRY (dialog->value_entry), "");
494   gtk_entry_set_text (GTK_ENTRY (dialog->label_entry), "");
495
496   g_signal_handler_unblock (GTK_ENTRY (dialog->value_entry),
497                          dialog->value_handler_id);
498   g_signal_handler_unblock (GTK_ENTRY (dialog->label_entry),
499                            dialog->change_handler_id);
500
501   labels = val_labs_sorted (dialog->labs);
502   n_labels = val_labs_count (dialog->labs);
503   for (i = 0; i < n_labels; i++)
504     {
505       const struct val_lab *vl = labels[i];
506
507       gchar *const vstr  =
508         value_to_text (vl->value, dialog->dict,
509                       *var_get_write_format (dialog->pv));
510
511       gchar *const text = g_strdup_printf ("%s = \"%s\"",
512                                            vstr, val_lab_get_label (vl));
513
514       gtk_list_store_append (list_store, &iter);
515       gtk_list_store_set (list_store, &iter,
516                           0, text,
517                           1, vl->value.f,
518                           -1);
519
520       g_free (text);
521       g_free (vstr);
522     }
523   free (labels);
524
525   gtk_tree_view_set_model (GTK_TREE_VIEW (dialog->treeview),
526                           GTK_TREE_MODEL (list_store));
527
528   g_object_unref (list_store);
529
530 }
531
532 /* Initialise and display the dialog box */
533 void
534 val_labs_dialog_show (struct val_labs_dialog *dialog)
535 {
536   const struct val_labs *value_labels;
537
538   g_assert (!dialog->labs);
539
540   value_labels = var_get_value_labels (dialog->pv);
541
542   if (value_labels)
543     dialog->labs = val_labs_clone ( value_labels );
544   else
545     dialog->labs = val_labs_create ( var_get_width (dialog->pv));
546
547   gtk_widget_set_sensitive (dialog->remove_button, FALSE);
548   gtk_widget_set_sensitive (dialog->change_button, FALSE);
549   gtk_widget_set_sensitive (dialog->add_button, FALSE);
550
551   gtk_widget_grab_focus (dialog->value_entry);
552
553   repopulate_dialog (dialog);
554   gtk_widget_show (dialog->window);
555 }
556