src/ui/gui/examine-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2008  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 #include <config.h>
  18
  19 #include "examine-dialog.h"
  20
  21 #include <gtk/gtk.h>
  22 #include <gtksheet/gtksheet.h>
  23 #include <stdlib.h>
  24
  25 #include <language/syntax-string-source.h>
  26 #include <ui/gui/data-editor.h>
  27 #include <ui/gui/dialog-common.h>
  28 #include <ui/gui/dict-display.h>
  29 #include <ui/gui/helper.h>
  30 #include <ui/gui/psppire-dialog.h>
  31 #include <ui/gui/psppire-var-store.h>
  32 #include <ui/gui/syntax-editor.h>
  33
  34 #include "gettext.h"
  35 #define _(msgid) gettext (msgid)
  36 #define N_(msgid) msgid
  37
  38 enum opts
  39   {
  40     OPT_LISTWISE,
  41     OPT_PAIRWISE,
  42     OPT_REPORT
  43   };
  44
  45
  46 #define     STAT_DESCRIPTIVES  0x01
  47 #define     STAT_EXTREMES      0x02
  48 #define     STAT_PERCENTILES   0x04
  49
  50
  51 struct examine_dialog
  52 {
  53   PsppireDict *dict;
  54
  55   GtkWidget *dep_list ;
  56   GtkWidget *fct_list ;
  57   GtkWidget *id_entry ;
  58
  59   GtkWidget *stats_dialog;
  60   GtkWidget *opts_dialog;
  61
  62   /* Options */
  63   enum opts opts;
  64   guint stats;
  65   GtkWidget *listwise;
  66   GtkWidget *pairwise;
  67   GtkWidget *report;
  68
  69   GtkToggleButton *descriptives_button;
  70   GtkToggleButton *extremes_button;
  71   GtkToggleButton *percentiles_button;
  72 };
  73
  74 static void
  75 refresh (PsppireDialog *dialog, struct examine_dialog *ex_d)
  76 {
  77   GtkTreeModel *liststore =
  78     gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->dep_list));
  79
  80   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  81
  82   liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->fct_list));
  83   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  84
  85
  86   gtk_entry_set_text (GTK_ENTRY (ex_d->id_entry), "");
  87
  88   ex_d->opts = OPT_LISTWISE;
  89   ex_d->stats = 0x00;
  90 }
  91
  92 static char *
  93 generate_syntax (const struct examine_dialog *ed)
  94 {
  95   const char *label;
  96   gchar *text = NULL;
  97   GString *str = g_string_new ("EXAMINE ");
  98
  99   g_string_append (str, "\n\t/VARIABLES=");
 100   append_variable_names (str, ed->dict, GTK_TREE_VIEW (ed->dep_list), 0);
 101
 102   if ( 0  < gtk_tree_model_iter_n_children
 103        (gtk_tree_view_get_model (GTK_TREE_VIEW (ed->fct_list)), NULL))
 104     {
 105       g_string_append (str, "\n\tBY ");
 106       append_variable_names (str, ed->dict, GTK_TREE_VIEW (ed->fct_list), 0);
 107     }
 108
 109   label = gtk_entry_get_text (GTK_ENTRY (ed->id_entry));
 110   if ( 0 != strcmp (label, "") )
 111     {
 112       g_string_append (str, "\n\t/ID = ");
 113       g_string_append (str, label);
 114     }
 115
 116   if ( ed->stats & (STAT_DESCRIPTIVES | STAT_EXTREMES))
 117     {
 118       g_string_append (str, "\n\t/STATISTICS =");
 119
 120       if ( ed->stats & STAT_DESCRIPTIVES)
 121         g_string_append (str, " DESCRIPTIVES");
 122
 123       if ( ed->stats & STAT_EXTREMES)
 124         g_string_append (str, " EXTREME");
 125     }
 126
 127   if ( ed->stats & STAT_PERCENTILES)
 128     g_string_append (str, "\n\t/PERCENTILES");
 129
 130   g_string_append (str, "\n\t/MISSING=");
 131   switch (ed->opts)
 132     {
 133     case OPT_REPORT:
 134       g_string_append (str, "REPORT");
 135       break;
 136     case OPT_PAIRWISE:
 137       g_string_append (str, "PAIRWISE");
 138       break;
 139     default:
 140       g_string_append (str, "LISTWISE");
 141       break;
 142     };
 143
 144   g_string_append (str, ".");
 145
 146   text = str->str;
 147
 148   g_string_free (str, FALSE);
 149
 150   return text;
 151 }
 152
 153 /* Dialog is valid iff at least one variable has been selected */
 154 static gboolean
 155 dialog_state_valid (gpointer data)
 156 {
 157   struct examine_dialog *ex_d = data;
 158
 159   GtkTreeModel *vars =
 160     gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->dep_list));
 161
 162   GtkTreeIter notused;
 163
 164   return gtk_tree_model_get_iter_first (vars, &notused);
 165 }
 166
 167
 168 static void
 169 run_stats_dialog (struct examine_dialog *ed)
 170 {
 171   gint response;
 172
 173   gtk_toggle_button_set_active (ed->descriptives_button,
 174                                 ed->stats & STAT_DESCRIPTIVES);
 175
 176   gtk_toggle_button_set_active (ed->extremes_button,
 177                                 ed->stats & STAT_EXTREMES);
 178
 179   gtk_toggle_button_set_active (ed->percentiles_button,
 180                                 ed->stats & STAT_PERCENTILES);
 181
 182   response = psppire_dialog_run (PSPPIRE_DIALOG (ed->stats_dialog));
 183
 184   if ( response == PSPPIRE_RESPONSE_CONTINUE )
 185     {
 186       ed->stats = 0;
 187       if ( gtk_toggle_button_get_active (ed->descriptives_button) )
 188         ed->stats |= STAT_DESCRIPTIVES;
 189
 190       if ( gtk_toggle_button_get_active (ed->extremes_button) )
 191         ed->stats |= STAT_EXTREMES;
 192
 193       if ( gtk_toggle_button_get_active (ed->percentiles_button) )
 194         ed->stats |= STAT_PERCENTILES;
 195     }
 196 }
 197
 198 static void
 199 run_opts_dialog (struct examine_dialog *ed)
 200 {
 201   gint response;
 202
 203
 204   switch (ed->opts)
 205     {
 206     case OPT_LISTWISE:
 207       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->listwise), TRUE);
 208       break;
 209     case OPT_PAIRWISE:
 210       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->pairwise), TRUE);
 211       break;
 212     case OPT_REPORT:
 213       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->report), TRUE);
 214       break;
 215     default:
 216       g_assert_not_reached ();
 217       break;
 218     };
 219
 220   response = psppire_dialog_run (PSPPIRE_DIALOG (ed->opts_dialog));
 221
 222   if ( response == PSPPIRE_RESPONSE_CONTINUE )
 223     {
 224       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->listwise)))
 225         ed->opts = OPT_LISTWISE;
 226       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->pairwise)))
 227         ed->opts = OPT_PAIRWISE;
 228       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->report)))
 229         ed->opts = OPT_REPORT;
 230   }
 231 }
 232
 233
 234
 235 /* Pops up the Examine dialog box */
 236 void
 237 examine_dialog (GObject *o, gpointer data)
 238 {
 239   gint response;
 240   struct data_editor *de = data;
 241
 242   struct examine_dialog ex_d;
 243
 244
 245   GladeXML *xml = XML_NEW ("examine.glade");
 246
 247
 248   GtkWidget *dialog = get_widget_assert   (xml, "examine-dialog");
 249   GtkWidget *source = get_widget_assert   (xml, "treeview1");
 250
 251   GtkWidget *stats_button = get_widget_assert   (xml, "stats-button");
 252   GtkWidget *opts_button = get_widget_assert   (xml, "opts-button");
 253
 254
 255   GtkWidget *dep_selector = get_widget_assert (xml, "psppire-selector1");
 256   GtkWidget *fct_selector = get_widget_assert (xml, "psppire-selector2");
 257   GtkWidget *id_selector = get_widget_assert (xml, "psppire-selector3");
 258
 259   GtkSheet *var_sheet =
 260     GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
 261
 262   PsppireVarStore *vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
 263
 264   ex_d.dep_list =   get_widget_assert   (xml, "treeview2");
 265   ex_d.fct_list =   get_widget_assert   (xml, "treeview3");
 266   ex_d.id_entry =   get_widget_assert   (xml, "entry1");
 267   ex_d.stats_dialog =   get_widget_assert   (xml, "statistics-dialog");
 268   ex_d.opts_dialog =   get_widget_assert   (xml, "options-dialog");
 269   ex_d.listwise = get_widget_assert (xml, "radiobutton1");
 270   ex_d.pairwise = get_widget_assert (xml, "radiobutton2");
 271   ex_d.report   = get_widget_assert (xml, "radiobutton3");
 272
 273   ex_d.descriptives_button = GTK_TOGGLE_BUTTON
 274     (get_widget_assert (xml, "descriptives-button"));
 275
 276   ex_d.extremes_button    = GTK_TOGGLE_BUTTON
 277     (get_widget_assert (xml, "extremes-button"));
 278
 279   ex_d.percentiles_button = GTK_TOGGLE_BUTTON
 280     (get_widget_assert (xml, "percentiles-button"));
 281
 282   gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
 283   gtk_window_set_transient_for (GTK_WINDOW (ex_d.stats_dialog), de->parent.window);
 284   gtk_window_set_transient_for (GTK_WINDOW (ex_d.opts_dialog), de->parent.window);
 285
 286   attach_dictionary_to_treeview (GTK_TREE_VIEW (source),
 287                                  vs->dict,
 288                                  GTK_SELECTION_MULTIPLE, NULL);
 289
 290
 291   set_dest_model (GTK_TREE_VIEW (ex_d.dep_list), vs->dict);
 292   ex_d.dict = vs->dict;
 293
 294
 295   psppire_selector_set_subjects (PSPPIRE_SELECTOR (dep_selector),
 296                                  source,
 297                                  ex_d.dep_list,
 298                                  insert_source_row_into_tree_view,
 299                                  NULL, NULL);
 300
 301   psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_selector),
 302                               numeric_only);
 303
 304   set_dest_model (GTK_TREE_VIEW (ex_d.fct_list), vs->dict);
 305
 306
 307   psppire_selector_set_subjects (PSPPIRE_SELECTOR (fct_selector),
 308                                  source,
 309                                  ex_d.fct_list,
 310                                  insert_source_row_into_tree_view,
 311                                  NULL, NULL);
 312
 313
 314   psppire_selector_set_subjects (PSPPIRE_SELECTOR (id_selector),
 315                                  source,
 316                                  ex_d.id_entry,
 317                                  insert_source_row_into_entry,
 318                                  NULL, NULL);
 319
 320   g_signal_connect (dialog, "refresh", G_CALLBACK (refresh),  &ex_d);
 321
 322   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
 323                                       dialog_state_valid, &ex_d);
 324
 325
 326   g_signal_connect_swapped (stats_button, "clicked",
 327                     G_CALLBACK (run_stats_dialog), &ex_d);
 328
 329   g_signal_connect_swapped (opts_button, "clicked",
 330                     G_CALLBACK (run_opts_dialog), &ex_d);
 331
 332   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 333
 334
 335   switch (response)
 336     {
 337     case GTK_RESPONSE_OK:
 338       {
 339         gchar *syntax = generate_syntax (&ex_d);
 340
 341         struct getl_interface *sss = create_syntax_string_source (syntax);
 342
 343         execute_syntax (sss);
 344
 345         g_free (syntax);
 346       }
 347       break;
 348     case PSPPIRE_RESPONSE_PASTE:
 349       {
 350         gchar *syntax = generate_syntax (&ex_d);
 351
 352         struct syntax_editor *se =
 353           (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
 354
 355         gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
 356
 357         g_free (syntax);
 358       }
 359       break;
 360     default:
 361       break;
 362     }
 363
 364   g_object_unref (xml);
 365 }