src/ui/gui/rank-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007  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 "rank-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
  39 enum RANK_FUNC
  40   {
  41     RANK,
  42     NORMAL,
  43     PERCENT,
  44     RFRACTION,
  45     PROPORTION,
  46     N,
  47     NTILES,
  48     SAVAGE,
  49     n_RANK_FUNCS
  50   };
  51
  52
  53
  54
  55 struct rank_dialog
  56 {
  57   PsppireDict *dict;
  58   GtkWidget *rank_vars;
  59   GtkWidget *group_vars;
  60   GtkWidget *dialog;
  61
  62   GtkToggleButton *ascending_togglebutton;
  63   GtkToggleButton *summary_togglebutton;
  64
  65
  66   /* Types subdialog widgets */
  67
  68   GtkWidget *types_dialog;
  69   GtkWidget *ntiles_entry;
  70
  71   GtkToggleButton *func_button[n_RANK_FUNCS];
  72   GtkWidget *formula_box;
  73
  74   GtkToggleButton *blom;
  75   GtkToggleButton *tukey;
  76   GtkToggleButton *rankit;
  77   GtkToggleButton *vw;
  78
  79   /* Ties subdialog widgets */
  80
  81   PsppireDialog *ties_dialog;
  82   GtkToggleButton *mean;
  83   GtkToggleButton *low;
  84   GtkToggleButton *high;
  85   GtkToggleButton *condense;
  86 };
  87
  88 static void
  89 refresh (PsppireDialog *dialog, struct rank_dialog *rd)
  90 {
  91   GtkTreeModel *liststore;
  92
  93   liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->rank_vars));
  94   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  95
  96   liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->group_vars));
  97   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  98
  99   gtk_toggle_button_set_active (rd->ascending_togglebutton, TRUE);
 100   gtk_toggle_button_set_active (rd->summary_togglebutton, FALSE);
 101 }
 102
 103 static char *
 104 generate_syntax (const struct rank_dialog *rd)
 105 {
 106   gchar *text;
 107
 108   GtkTreeModel *gs = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->group_vars));
 109
 110   GtkTreeIter notused;
 111
 112   GString *str = g_string_new ("RANK VARIABLES=");
 113
 114   append_variable_names (str, rd->dict, GTK_TREE_VIEW (rd->rank_vars), 0);
 115
 116   g_string_append_printf (str, " (%c)",
 117                    gtk_toggle_button_get_active (rd->ascending_togglebutton)
 118                    ?'A':'D');
 119
 120   if (  gtk_tree_model_get_iter_first (gs, &notused) )
 121     {
 122       g_string_append (str, "\n\tBY ");
 123
 124       append_variable_names (str, rd->dict, GTK_TREE_VIEW (rd->group_vars), 0);
 125     }
 126
 127   g_string_append (str, "\n\t/PRINT = ");
 128   if (gtk_toggle_button_get_active (rd->summary_togglebutton))
 129     g_string_append (str, "YES");
 130   else
 131     g_string_append (str, "NO");
 132
 133
 134   if (gtk_toggle_button_get_active (rd->func_button [RANK]))
 135     g_string_append (str, "\n\t/RANK");
 136   if (gtk_toggle_button_get_active (rd->func_button [NORMAL]))
 137     g_string_append (str, "\n\t/NORMAL");
 138   if (gtk_toggle_button_get_active (rd->func_button [PROPORTION]))
 139     g_string_append (str, "\n\t/PROPORTION");
 140   if (gtk_toggle_button_get_active (rd->func_button [PERCENT]))
 141     g_string_append (str, "\n\t/PERCENT");
 142   if (gtk_toggle_button_get_active (rd->func_button [RFRACTION]))
 143     g_string_append (str, "\n\t/RFRACTION");
 144   if (gtk_toggle_button_get_active (rd->func_button [N]))
 145     g_string_append (str, "\n\t/N");
 146   if (gtk_toggle_button_get_active (rd->func_button [SAVAGE]))
 147     g_string_append (str, "\n\t/SAVAGE");
 148   if (gtk_toggle_button_get_active (rd->func_button [NTILES]))
 149     {
 150       gint n = gtk_spin_button_get_value (GTK_SPIN_BUTTON (rd->ntiles_entry));
 151       g_string_append_printf (str, "\n\t/NTILES(%d)", n);
 152     }
 153
 154
 155   if (gtk_toggle_button_get_active (rd->func_button [NORMAL])
 156       ||
 157       gtk_toggle_button_get_active (rd->func_button [PROPORTION]))
 158     {
 159       g_string_append (str, "\n\t/FRACTION=");
 160
 161       if ( gtk_toggle_button_get_active (rd->blom))
 162         g_string_append (str, "BLOM");
 163       else if ( gtk_toggle_button_get_active (rd->tukey))
 164         g_string_append (str, "TUKEY");
 165       else if ( gtk_toggle_button_get_active (rd->rankit))
 166         g_string_append (str, "RANKIT");
 167       else if ( gtk_toggle_button_get_active (rd->vw))
 168         g_string_append (str, "VW");
 169     }
 170
 171   g_string_append (str, "\n\t/TIES=");
 172   if ( gtk_toggle_button_get_active (rd->mean))
 173     g_string_append (str, "MEAN");
 174   else if ( gtk_toggle_button_get_active (rd->low))
 175     g_string_append (str, "LOW");
 176   else if ( gtk_toggle_button_get_active (rd->high))
 177     g_string_append (str, "HIGH");
 178   else if ( gtk_toggle_button_get_active (rd->condense))
 179     g_string_append (str, "CONDENSE");
 180
 181
 182   g_string_append (str, ".");
 183
 184   text = str->str;
 185
 186   g_string_free (str, FALSE);
 187
 188   return text;
 189 }
 190
 191 /* Dialog is valid iff at least one variable has been selected */
 192 static gboolean
 193 dialog_state_valid (gpointer data)
 194 {
 195   struct rank_dialog *rd = data;
 196
 197   GtkTreeModel *vars = gtk_tree_view_get_model (GTK_TREE_VIEW (rd->rank_vars));
 198
 199   GtkTreeIter notused;
 200
 201   return gtk_tree_model_get_iter_first (vars, &notused);
 202 }
 203
 204 static void on_ntiles_toggle (GtkToggleButton *, gpointer);
 205 static void run_types_dialog (GtkButton *, gpointer);
 206 static void run_ties_dialog (GtkButton *, gpointer );
 207
 208 static void
 209 set_sensitivity (struct rank_dialog *rd)
 210 {
 211   gboolean sens = gtk_toggle_button_get_active
 212     (GTK_TOGGLE_BUTTON (rd->func_button[PROPORTION]))
 213     ||
 214     gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->func_button[NORMAL]));
 215
 216   gtk_widget_set_sensitive (rd->formula_box, sens);
 217 }
 218
 219 /* Pops up the Rank dialog box */
 220 void
 221 rank_dialog (GObject *o, gpointer data)
 222 {
 223   gint response;
 224   struct data_editor *de = data;
 225
 226   struct rank_dialog rd;
 227
 228   GladeXML *xml = XML_NEW ("rank.glade");
 229
 230   GtkWidget *vars = get_widget_assert   (xml, "dict-treeview");
 231   GtkWidget *selector1 = get_widget_assert (xml, "psppire-selector1");
 232   GtkWidget *selector2 = get_widget_assert (xml, "psppire-selector2");
 233
 234
 235   GtkWidget *types_button = get_widget_assert (xml, "button1");
 236   GtkWidget *ties_button = get_widget_assert (xml, "button2");
 237
 238   PsppireVarStore *vs = NULL;
 239
 240   g_object_get (de->data_editor, "var-store", &vs, NULL);
 241
 242   rd.dict = vs->dict;
 243   rd.rank_vars =   get_widget_assert (xml, "variables-treeview");
 244   rd.group_vars =  get_widget_assert (xml, "group-vars-treeview");
 245   rd.dialog = get_widget_assert   (xml, "rank-dialog");
 246   rd.ascending_togglebutton =
 247     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "radiobutton1"));
 248
 249   rd.summary_togglebutton =
 250     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "summary-checkbutton"));
 251
 252   rd.types_dialog = get_widget_assert (xml, "rank-types-dialog");
 253
 254
 255   rd.ntiles_entry  = get_widget_assert (xml, "ntiles-entry");
 256
 257   rd.func_button[RANK]    =
 258     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rank-checkbutton"));
 259
 260   rd.func_button[SAVAGE]  =
 261     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "savage-checkbutton"));
 262
 263   rd.func_button[RFRACTION] =
 264     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rfrac-checkbutton"));
 265
 266   rd.func_button[PERCENT] =
 267     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "percent-checkbutton"));
 268
 269   rd.func_button[N]       =
 270     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "sum-checkbutton"));
 271
 272   rd.func_button[NTILES] =
 273     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "ntiles-checkbutton"));
 274
 275   rd.func_button[PROPORTION] =
 276     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "prop-checkbutton"));
 277
 278   rd.func_button[NORMAL] =
 279     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "normal-checkbutton"));
 280
 281   rd.formula_box = get_widget_assert (xml, "formula-frame");
 282
 283   rd.blom = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "blom-button"));
 284   rd.tukey = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "tukey-button"));
 285   rd.rankit = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rankit-button"));
 286   rd.vw = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "vw-button"));
 287
 288   /* Ties dialog */
 289   rd.ties_dialog = PSPPIRE_DIALOG (get_widget_assert (xml, "ties-dialog"));
 290
 291   rd.mean = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "mean-button"));
 292   rd.low = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "low-button"));
 293   rd.high = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "high-button"));
 294   rd.condense = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "condense-button"));
 295
 296   g_signal_connect_swapped (rd.func_button[PROPORTION], "toggled",
 297                             G_CALLBACK (set_sensitivity),
 298                             &rd);
 299
 300   g_signal_connect_swapped (rd.func_button[NORMAL], "toggled",
 301                             G_CALLBACK (set_sensitivity),
 302                             &rd);
 303
 304   g_signal_connect (rd.func_button[NTILES], "toggled",
 305                     G_CALLBACK (on_ntiles_toggle),
 306                     rd.ntiles_entry);
 307
 308   gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), de->parent.window);
 309
 310   attach_dictionary_to_treeview (GTK_TREE_VIEW (vars),
 311                                  vs->dict,
 312                                  GTK_SELECTION_MULTIPLE, NULL);
 313
 314
 315   set_dest_model (GTK_TREE_VIEW (rd.rank_vars), vs->dict);
 316
 317   psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector1),
 318                                  vars,
 319                                  rd.rank_vars,
 320                                  insert_source_row_into_tree_view,
 321                                  NULL,
 322                                  NULL);
 323
 324   set_dest_model (GTK_TREE_VIEW (rd.group_vars), vs->dict);
 325
 326   psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector2),
 327                                  vars,
 328                                  rd.group_vars,
 329                                  insert_source_row_into_tree_view,
 330                                  NULL,
 331                                  NULL);
 332
 333
 334   g_signal_connect (types_button, "clicked",
 335                     G_CALLBACK (run_types_dialog),  &rd);
 336
 337   g_signal_connect (ties_button, "clicked",
 338                     G_CALLBACK (run_ties_dialog),  &rd);
 339
 340   g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh),  &rd);
 341
 342   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
 343                                       dialog_state_valid, &rd);
 344
 345   response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
 346
 347
 348   switch (response)
 349     {
 350     case GTK_RESPONSE_OK:
 351       {
 352         gchar *syntax = generate_syntax (&rd);
 353         struct getl_interface *sss = create_syntax_string_source (syntax);
 354         execute_syntax (sss);
 355
 356         g_free (syntax);
 357       }
 358       break;
 359     case PSPPIRE_RESPONSE_PASTE:
 360       {
 361         gchar *syntax = generate_syntax (&rd);
 362
 363         struct syntax_editor *se =
 364           (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
 365
 366         gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
 367
 368         g_free (syntax);
 369       }
 370       break;
 371     default:
 372       break;
 373     }
 374
 375   g_object_unref (xml);
 376 }
 377
 378
 379 static void
 380 types_dialog_reset (struct rank_dialog *rd)
 381 {
 382   gint i;
 383
 384   for (i = 0 ; i < n_RANK_FUNCS ; ++i )
 385     gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->func_button [i]),
 386                                   FALSE);
 387
 388   gtk_widget_set_sensitive (rd->ntiles_entry, FALSE);
 389
 390   gtk_widget_set_sensitive (rd->formula_box, FALSE);
 391 }
 392
 393
 394
 395 static void
 396 run_types_dialog (GtkButton *b, gpointer data)
 397 {
 398   struct rank_dialog *rd = data;
 399   gint response;
 400
 401   gtk_window_set_transient_for (GTK_WINDOW (rd->types_dialog),
 402                                 GTK_WINDOW (rd->dialog));
 403
 404   types_dialog_reset (rd);
 405
 406   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->types_dialog));
 407 }
 408
 409 static void
 410 run_ties_dialog (GtkButton *b, gpointer data)
 411 {
 412   struct rank_dialog *rd = data;
 413   gint response;
 414
 415   gtk_window_set_transient_for (GTK_WINDOW (rd->ties_dialog),
 416                                 GTK_WINDOW (rd->dialog));
 417
 418
 419   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->ties_dialog));
 420 }
 421
 422
 423 static void
 424 on_ntiles_toggle (GtkToggleButton *toggle_button, gpointer data)
 425 {
 426   GtkWidget *w = data;
 427   gboolean active = gtk_toggle_button_get_active (toggle_button);
 428   gtk_widget_set_sensitive (w, active);
 429 }