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