src/ui/gui/count-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2011, 2012  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 #include <config.h>
  19
  20 #include "count-dialog.h"
  21
  22 #include <gtk/gtk.h>
  23 #include "builder-wrapper.h"
  24 #include "psppire-dialog.h"
  25 #include "psppire-selector.h"
  26 #include "psppire-val-chooser.h"
  27 #include "psppire-var-view.h"
  28 #include "psppire-acr.h"
  29 #include "dialog-common.h"
  30
  31
  32 #include <ui/syntax-gen.h>
  33 #include "executor.h"
  34 #include "helper.h"
  35
  36 struct cnt_dialog
  37 {
  38   PsppireDict *dict;
  39
  40   GtkWidget *dialog;
  41
  42   GtkListStore *value_list;
  43   GtkWidget *chooser;
  44
  45   GtkWidget *target;
  46   GtkWidget *label;
  47   GtkWidget *variable_treeview;
  48 };
  49
  50 /* Callback which gets called when a new row is selected
  51    in the acr's variable treeview.
  52    We use if to set the togglebuttons and entries to correspond to the
  53    selected row.
  54 */
  55 static void
  56 on_acr_selection_change (GtkTreeSelection *selection, gpointer data)
  57 {
  58   GtkTreeIter iter;
  59   struct old_value *ov = NULL;
  60   GtkTreeModel *model = NULL;
  61   struct cnt_dialog *cnt = data;
  62   GValue ov_value = {0};
  63
  64   if ( ! gtk_tree_selection_get_selected (selection, &model, &iter) )
  65     return;
  66
  67   gtk_tree_model_get_value (GTK_TREE_MODEL (model), &iter,
  68                             0, &ov_value);
  69
  70   ov = g_value_get_boxed (&ov_value);
  71   psppire_val_chooser_set_status (PSPPIRE_VAL_CHOOSER (cnt->chooser), ov);
  72 }
  73
  74
  75
  76 static char * generate_syntax (const struct cnt_dialog *cnt);
  77
  78 static void values_dialog (struct cnt_dialog *cd);
  79
  80 static void
  81 refresh (PsppireDialog *dialog, struct cnt_dialog *cnt)
  82 {
  83   GtkTreeModel *vars =
  84     gtk_tree_view_get_model (GTK_TREE_VIEW (cnt->variable_treeview));
  85
  86   gtk_list_store_clear (GTK_LIST_STORE (vars));
  87
  88   gtk_entry_set_text (GTK_ENTRY (cnt->target), "");
  89   gtk_entry_set_text (GTK_ENTRY (cnt->label), "");
  90   gtk_list_store_clear (GTK_LIST_STORE (cnt->value_list));
  91 }
  92
  93 static gboolean
  94 dialog_state_valid (gpointer data)
  95 {
  96   GtkTreeIter iter;
  97   struct cnt_dialog *cnt = data;
  98
  99   if (! cnt->value_list)
 100     return FALSE;
 101
 102   if (!gtk_tree_model_get_iter_first (GTK_TREE_MODEL (cnt->value_list), &iter) )
 103     return FALSE;
 104
 105   if (!gtk_tree_model_get_iter_first (gtk_tree_view_get_model (GTK_TREE_VIEW (cnt->variable_treeview)), &iter))
 106     return FALSE;
 107
 108   if (0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (cnt->target))))
 109     return FALSE;
 110
 111   return TRUE;
 112 }
 113
 114 void count_dialog (PsppireDataWindow *de)
 115 {
 116   gint response;
 117   PsppireVarStore *vs = NULL;
 118   struct cnt_dialog cnt;
 119
 120   GtkBuilder *builder = builder_new ("count.ui");
 121
 122   GtkWidget *selector = get_widget_assert (builder, "count-selector1");
 123
 124   GtkWidget *dict_view = get_widget_assert (builder, "dict-view");
 125   GtkWidget *button = get_widget_assert (builder, "button1");
 126
 127   cnt.target = get_widget_assert (builder, "entry1");
 128   cnt.label = get_widget_assert (builder, "entry2");
 129   cnt.variable_treeview = get_widget_assert (builder, "treeview2");
 130
 131   g_signal_connect_swapped (button, "clicked", G_CALLBACK (values_dialog), &cnt);
 132
 133   cnt.value_list = gtk_list_store_new (1,old_value_get_type ());
 134
 135   cnt.dialog =  get_widget_assert (builder, "count-dialog");
 136
 137   g_signal_connect (cnt.dialog, "refresh", G_CALLBACK (refresh),  &cnt);
 138
 139
 140   g_object_get (de->data_editor, "var-store", &vs, NULL);
 141
 142   g_object_get (vs, "dictionary", &cnt.dict, NULL);
 143
 144   gtk_window_set_transient_for (GTK_WINDOW (cnt.dialog), GTK_WINDOW (de));
 145
 146   g_object_set (dict_view, "model", cnt.dict, NULL);
 147
 148   psppire_selector_set_allow (PSPPIRE_SELECTOR (selector),  numeric_only);
 149
 150   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (cnt.dialog),
 151                                       dialog_state_valid, &cnt);
 152
 153   response = psppire_dialog_run (PSPPIRE_DIALOG (cnt.dialog));
 154
 155   switch (response)
 156     {
 157     case GTK_RESPONSE_OK:
 158       g_free (execute_syntax_string (de, generate_syntax (&cnt)));
 159       break;
 160     case PSPPIRE_RESPONSE_PASTE:
 161       g_free (paste_syntax_to_window (generate_syntax (&cnt)));
 162       break;
 163     default:
 164       break;
 165     }
 166
 167
 168   g_object_unref (builder);
 169 }
 170
 171 /* A function to set a value in a column in the ACR */
 172 static gboolean
 173 set_value (gint col, GValue  *val, gpointer data)
 174 {
 175   struct cnt_dialog *cnt = data;
 176   PsppireValChooser *vc = PSPPIRE_VAL_CHOOSER (cnt->chooser);
 177   struct old_value ov;
 178
 179   g_assert (col == 0);
 180
 181   psppire_val_chooser_get_status (vc, &ov);
 182
 183   g_value_init (val, old_value_get_type ());
 184   g_value_set_boxed (val, &ov);
 185
 186   return TRUE;
 187 }
 188
 189
 190 static void
 191 values_dialog (struct cnt_dialog *cd)
 192 {
 193   gint response;
 194   GtkListStore *local_store = clone_list_store (cd->value_list);
 195   GtkBuilder *builder = builder_new ("count.ui");
 196
 197   GtkWidget *dialog = get_widget_assert (builder, "values-dialog");
 198
 199   GtkWidget *acr = get_widget_assert (builder, "acr");
 200   cd->chooser = get_widget_assert (builder, "value-chooser");
 201
 202   psppire_acr_set_enabled (PSPPIRE_ACR (acr), TRUE);
 203
 204   psppire_acr_set_model (PSPPIRE_ACR (acr), local_store);
 205   psppire_acr_set_get_value_func (PSPPIRE_ACR (acr), set_value, cd);
 206
 207   {
 208     GtkTreeSelection *sel = gtk_tree_view_get_selection (GTK_TREE_VIEW (PSPPIRE_ACR(acr)->tv));
 209     g_signal_connect (sel, "changed",
 210                     G_CALLBACK (on_acr_selection_change), cd);
 211   }
 212
 213   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 214
 215   if ( response == PSPPIRE_RESPONSE_CONTINUE )
 216     {
 217       g_object_unref (cd->value_list);
 218       cd->value_list = local_store;
 219     }
 220   else
 221     {
 222       g_object_unref (local_store);
 223     }
 224
 225   psppire_dialog_notify_change (PSPPIRE_DIALOG (cd->dialog));
 226
 227   g_object_unref (builder);
 228 }
 229
 230
 231
 232 static char *
 233 generate_syntax (const struct cnt_dialog *cnt)
 234 {
 235   gchar *text = NULL;
 236   const gchar *s = NULL;
 237   gboolean ok;
 238   GtkTreeIter iter;
 239   GString *str = g_string_sized_new (100);
 240
 241   g_string_append (str, "\nCOUNT ");
 242
 243   g_string_append (str, gtk_entry_get_text (GTK_ENTRY (cnt->target)));
 244
 245   g_string_append (str, " =");
 246
 247   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (cnt->variable_treeview), 0, str);
 248
 249   g_string_append (str, "(");
 250   for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (cnt->value_list),
 251                                            &iter);
 252        ok;
 253        ok = gtk_tree_model_iter_next (GTK_TREE_MODEL (cnt->value_list), &iter))
 254     {
 255       GValue a_value = {0};
 256       struct old_value *ov;
 257
 258       gtk_tree_model_get_value (GTK_TREE_MODEL (cnt->value_list), &iter,
 259                                 0, &a_value);
 260
 261       ov = g_value_get_boxed (&a_value);
 262
 263       g_string_append (str, " ");
 264       old_value_append_syntax (str, ov);
 265     }
 266   g_string_append (str, ").");
 267
 268
 269   s = gtk_entry_get_text (GTK_ENTRY (cnt->label));
 270   if (0 != strcmp (s, ""))
 271   {
 272     struct string ds;
 273     ds_init_empty (&ds);
 274     g_string_append (str, "\nVARIABLE LABELS ");
 275
 276     g_string_append (str, gtk_entry_get_text (GTK_ENTRY (cnt->target)));
 277
 278     g_string_append (str, " ");
 279
 280     syntax_gen_string (&ds, ss_cstr (s));
 281
 282     g_string_append (str, ds_cstr (&ds));
 283
 284     g_string_append (str, ".");
 285     ds_destroy (&ds);
 286   }
 287
 288   g_string_append (str, "\nEXECUTE.\n");
 289
 290   text = str->str;
 291
 292   g_string_free (str, FALSE);
 293
 294   return text;
 295 }