pintos-os.org Git - pspp/blob - 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 (PsppireDataWindow *de)
 238 {
 239   gint response;
 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
 254   PsppireVarStore *vs = NULL;
 255
 256   g_object_get (de->data_editor, "var-store", &vs, NULL);
 257
 258   ex_d.dep_list =   get_widget_assert   (xml, "treeview2");
 259   ex_d.fct_list =   get_widget_assert   (xml, "treeview3");
 260   ex_d.id_entry =   get_widget_assert   (xml, "entry1");
 261   ex_d.stats_dialog =   get_widget_assert   (xml, "statistics-dialog");
 262   ex_d.opts_dialog =   get_widget_assert   (xml, "options-dialog");
 263   ex_d.listwise = get_widget_assert (xml, "radiobutton1");
 264   ex_d.pairwise = get_widget_assert (xml, "radiobutton2");
 265   ex_d.report   = get_widget_assert (xml, "radiobutton3");
 266
 267   ex_d.descriptives_button = GTK_TOGGLE_BUTTON
 268     (get_widget_assert (xml, "descriptives-button"));
 269
 270   ex_d.extremes_button    = GTK_TOGGLE_BUTTON
 271     (get_widget_assert (xml, "extremes-button"));
 272
 273   ex_d.percentiles_button = GTK_TOGGLE_BUTTON
 274     (get_widget_assert (xml, "percentiles-button"));
 275
 276   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (de));
 277   gtk_window_set_transient_for (GTK_WINDOW (ex_d.stats_dialog), GTK_WINDOW (de));
 278   gtk_window_set_transient_for (GTK_WINDOW (ex_d.opts_dialog), GTK_WINDOW (de));
 279
 280   g_object_get (vs, "dictionary", &ex_d.dict, NULL);
 281   g_object_set (source, "model", ex_d.dict, NULL);
 282
 283   psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_selector),
 284                               numeric_only);
 285
 286   g_signal_connect (dialog, "refresh", G_CALLBACK (refresh),  &ex_d);
 287
 288   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
 289                                       dialog_state_valid, &ex_d);
 290
 291
 292   g_signal_connect_swapped (stats_button, "clicked",
 293                     G_CALLBACK (run_stats_dialog), &ex_d);
 294
 295   g_signal_connect_swapped (opts_button, "clicked",
 296                     G_CALLBACK (run_opts_dialog), &ex_d);
 297
 298   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 299
 300
 301   switch (response)
 302     {
 303     case GTK_RESPONSE_OK:
 304       {
 305         gchar *syntax = generate_syntax (&ex_d);
 306
 307         struct getl_interface *sss = create_syntax_string_source (syntax);
 308
 309         execute_syntax (sss);
 310
 311         g_free (syntax);
 312       }
 313       break;
 314     case PSPPIRE_RESPONSE_PASTE:
 315       {
 316         gchar *syntax = generate_syntax (&ex_d);
 317         paste_syntax_to_window (syntax);
 318         g_free (syntax);
 319       }
 320       break;
 321     default:
 322       break;
 323     }
 324
 325   g_object_unref (xml);
 326 }