pintos-os.org Git - pspp/blob - 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