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/data-editor.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 <ui/gui/syntax-editor.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   struct data_editor *de = data;
 240
 241   struct examine_dialog ex_d;
 242
 243
 244   GladeXML *xml = XML_NEW ("examine.glade");
 245
 246
 247   GtkWidget *dialog = get_widget_assert   (xml, "examine-dialog");
 248   GtkWidget *source = get_widget_assert   (xml, "treeview1");
 249
 250   GtkWidget *stats_button = get_widget_assert   (xml, "stats-button");
 251   GtkWidget *opts_button = get_widget_assert   (xml, "opts-button");
 252
 253
 254   GtkWidget *dep_selector = get_widget_assert (xml, "psppire-selector1");
 255   GtkWidget *fct_selector = get_widget_assert (xml, "psppire-selector2");
 256   GtkWidget *id_selector = get_widget_assert (xml, "psppire-selector3");
 257
 258   PsppireVarStore *vs = NULL;
 259
 260   g_object_get (de->data_editor, "var-store", &vs, NULL);
 261
 262   ex_d.dep_list =   get_widget_assert   (xml, "treeview2");
 263   ex_d.fct_list =   get_widget_assert   (xml, "treeview3");
 264   ex_d.id_entry =   get_widget_assert   (xml, "entry1");
 265   ex_d.stats_dialog =   get_widget_assert   (xml, "statistics-dialog");
 266   ex_d.opts_dialog =   get_widget_assert   (xml, "options-dialog");
 267   ex_d.listwise = get_widget_assert (xml, "radiobutton1");
 268   ex_d.pairwise = get_widget_assert (xml, "radiobutton2");
 269   ex_d.report   = get_widget_assert (xml, "radiobutton3");
 270
 271   ex_d.descriptives_button = GTK_TOGGLE_BUTTON
 272     (get_widget_assert (xml, "descriptives-button"));
 273
 274   ex_d.extremes_button    = GTK_TOGGLE_BUTTON
 275     (get_widget_assert (xml, "extremes-button"));
 276
 277   ex_d.percentiles_button = GTK_TOGGLE_BUTTON
 278     (get_widget_assert (xml, "percentiles-button"));
 279
 280   gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
 281   gtk_window_set_transient_for (GTK_WINDOW (ex_d.stats_dialog), de->parent.window);
 282   gtk_window_set_transient_for (GTK_WINDOW (ex_d.opts_dialog), de->parent.window);
 283
 284   attach_dictionary_to_treeview (GTK_TREE_VIEW (source),
 285                                  vs->dict,
 286                                  GTK_SELECTION_MULTIPLE, NULL);
 287
 288
 289   set_dest_model (GTK_TREE_VIEW (ex_d.dep_list), vs->dict);
 290   ex_d.dict = vs->dict;
 291
 292
 293   psppire_selector_set_subjects (PSPPIRE_SELECTOR (dep_selector),
 294                                  source,
 295                                  ex_d.dep_list,
 296                                  insert_source_row_into_tree_view,
 297                                  NULL, NULL);
 298
 299   psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_selector),
 300                               numeric_only);
 301
 302   set_dest_model (GTK_TREE_VIEW (ex_d.fct_list), vs->dict);
 303
 304
 305   psppire_selector_set_subjects (PSPPIRE_SELECTOR (fct_selector),
 306                                  source,
 307                                  ex_d.fct_list,
 308                                  insert_source_row_into_tree_view,
 309                                  NULL, NULL);
 310
 311
 312   psppire_selector_set_subjects (PSPPIRE_SELECTOR (id_selector),
 313                                  source,
 314                                  ex_d.id_entry,
 315                                  insert_source_row_into_entry,
 316                                  NULL, NULL);
 317
 318   g_signal_connect (dialog, "refresh", G_CALLBACK (refresh),  &ex_d);
 319
 320   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
 321                                       dialog_state_valid, &ex_d);
 322
 323
 324   g_signal_connect_swapped (stats_button, "clicked",
 325                     G_CALLBACK (run_stats_dialog), &ex_d);
 326
 327   g_signal_connect_swapped (opts_button, "clicked",
 328                     G_CALLBACK (run_opts_dialog), &ex_d);
 329
 330   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
 331
 332
 333   switch (response)
 334     {
 335     case GTK_RESPONSE_OK:
 336       {
 337         gchar *syntax = generate_syntax (&ex_d);
 338
 339         struct getl_interface *sss = create_syntax_string_source (syntax);
 340
 341         execute_syntax (sss);
 342
 343         g_free (syntax);
 344       }
 345       break;
 346     case PSPPIRE_RESPONSE_PASTE:
 347       {
 348         gchar *syntax = generate_syntax (&ex_d);
 349
 350         struct syntax_editor *se =
 351           (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
 352
 353         gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
 354
 355         g_free (syntax);
 356       }
 357       break;
 358     default:
 359       break;
 360     }
 361
 362   g_object_unref (xml);
 363 }