src/ui/gui/examine-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2008, 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 #include <config.h>
  18
  19 #include "examine-dialog.h"
  20 #include "psppire-var-view.h"
  21
  22 #include <gtk/gtk.h>
  23 #include <stdlib.h>
  24
  25 #include <language/syntax-string-source.h>
  26 #include <ui/gui/psppire-data-window.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 "executor.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   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->dep_list), 0, str);
 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       psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->fct_list), 0, str);
 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   PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data);
 241
 242   struct examine_dialog ex_d;
 243
 244   GtkBuilder *xml = builder_new ("examine.ui");
 245
 246   GtkWidget *dialog = get_widget_assert   (xml, "examine-dialog");
 247   GtkWidget *source = get_widget_assert   (xml, "treeview1");
 248
 249   GtkWidget *stats_button = get_widget_assert   (xml, "stats-button");
 250   GtkWidget *opts_button = get_widget_assert   (xml, "opts-button");
 251
 252
 253   GtkWidget *dep_selector = get_widget_assert (xml, "psppire-selector1");
 254
 255   PsppireVarStore *vs = NULL;
 256
 257   g_object_get (de->data_editor, "var-store", &vs, NULL);
 258
 259   ex_d.dep_list =   get_widget_assert   (xml, "treeview2");
 260   ex_d.fct_list =   get_widget_assert   (xml, "treeview3");
 261   ex_d.id_entry =   get_widget_assert   (xml, "entry1");
 262   ex_d.stats_dialog =   get_widget_assert   (xml, "statistics-dialog");
 263   ex_d.opts_dialog =   get_widget_assert   (xml, "options-dialog");
 264   ex_d.listwise = get_widget_assert (xml, "radiobutton1");
 265   ex_d.pairwise = get_widget_assert (xml, "radiobutton2");
 266   ex_d.report   = get_widget_assert (xml, "radiobutton3");
 267
 268   ex_d.descriptives_button = GTK_TOGGLE_BUTTON
 269     (get_widget_assert (xml, "descriptives-button"));
 270
 271   ex_d.extremes_button    = GTK_TOGGLE_BUTTON
 272     (get_widget_assert (xml, "extremes-button"));
 273
 274   ex_d.percentiles_button = GTK_TOGGLE_BUTTON
 275     (get_widget_assert (xml, "percentiles-button"));
 276
 277   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (de));
 278   gtk_window_set_transient_for (GTK_WINDOW (ex_d.stats_dialog), GTK_WINDOW (de));
 279   gtk_window_set_transient_for (GTK_WINDOW (ex_d.opts_dialog), GTK_WINDOW (de));
 280
 281   g_object_get (vs, "dictionary", &ex_d.dict, NULL);
 282   g_object_set (source, "model", ex_d.dict, NULL);
 283
 284   psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_selector),
 285                               numeric_only);
 286
 287   g_signal_connect (dialog, "refresh", G_CALLBACK (refresh),  &ex_d);
 288
 289   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
 290                                       dialog_state_valid, &ex_d);
 291
 292
 293   g_signal_connect_swapped (stats_button, "clicked",
 294                     G_CALLBACK (run_stats_dialog), &ex_d);
 295
 296   g_signal_connect_swapped (opts_button, "clicked",
 297                     G_CALLBACK (run_opts_dialog), &ex_d);
 298
 299   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 300
 301
 302   switch (response)
 303     {
 304     case GTK_RESPONSE_OK:
 305       {
 306         gchar *syntax = generate_syntax (&ex_d);
 307
 308         struct getl_interface *sss = create_syntax_string_source (syntax);
 309
 310         execute_syntax (sss);
 311
 312         g_free (syntax);
 313       }
 314       break;
 315     case PSPPIRE_RESPONSE_PASTE:
 316       {
 317         gchar *syntax = generate_syntax (&ex_d);
 318         paste_syntax_in_new_window (syntax);
 319         g_free (syntax);
 320       }
 321       break;
 322     default:
 323       break;
 324     }
 325
 326   g_object_unref (xml);
 327 }