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