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