src/ui/gui/rank-dialog.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2010, 2011  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 <ui/gui/psppire-data-window.h>
  25 #include <ui/gui/dialog-common.h>
  26 #include <ui/gui/dict-display.h>
  27 #include <ui/gui/helper.h>
  28 #include <ui/gui/psppire-dialog.h>
  29 #include <ui/gui/psppire-var-store.h>
  30 #include <ui/gui/psppire-var-view.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   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->rank_vars), 0, str);
 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       psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->group_vars),  0, str);
 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 (PsppireDataWindow *de)
 221 {
 222   gint response;
 223
 224   struct rank_dialog rd;
 225
 226   GtkBuilder * builder = builder_new ("rank.ui");
 227
 228   GtkWidget *vars = get_widget_assert   (builder, "dict-treeview");
 229
 230   GtkWidget *types_button = get_widget_assert (builder, "button1");
 231   GtkWidget *ties_button = get_widget_assert (builder, "button2");
 232
 233   PsppireVarStore *vs = NULL;
 234
 235   g_object_get (de->data_editor, "var-store", &vs, NULL);
 236
 237   g_object_get (vs, "dictionary", &rd.dict, NULL);
 238   rd.rank_vars =   get_widget_assert (builder, "variables-treeview");
 239   rd.group_vars =  get_widget_assert (builder, "group-vars-treeview");
 240   rd.dialog = get_widget_assert   (builder, "rank-dialog");
 241   rd.ascending_togglebutton =
 242     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "radiobutton1"));
 243
 244   rd.summary_togglebutton =
 245     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "summary-checkbutton"));
 246
 247   rd.types_dialog = get_widget_assert (builder, "rank-types-dialog");
 248
 249
 250   rd.ntiles_entry  = get_widget_assert (builder, "ntiles-entry");
 251
 252   rd.func_button[RANK]    =
 253     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "rank-checkbutton"));
 254
 255   rd.func_button[SAVAGE]  =
 256     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "savage-checkbutton"));
 257
 258   rd.func_button[RFRACTION] =
 259     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "rfrac-checkbutton"));
 260
 261   rd.func_button[PERCENT] =
 262     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "percent-checkbutton"));
 263
 264   rd.func_button[N]       =
 265     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "sum-checkbutton"));
 266
 267   rd.func_button[NTILES] =
 268     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "ntiles-checkbutton"));
 269
 270   rd.func_button[PROPORTION] =
 271     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "prop-checkbutton"));
 272
 273   rd.func_button[NORMAL] =
 274     GTK_TOGGLE_BUTTON (get_widget_assert (builder, "normal-checkbutton"));
 275
 276   rd.formula_box = get_widget_assert (builder, "formula-frame");
 277
 278   rd.blom = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "blom-button"));
 279   rd.tukey = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "tukey-button"));
 280   rd.rankit = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "rankit-button"));
 281   rd.vw = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "vw-button"));
 282
 283   /* Ties dialog */
 284   rd.ties_dialog = PSPPIRE_DIALOG (get_widget_assert (builder, "ties-dialog"));
 285
 286   rd.mean = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "mean-button"));
 287   rd.low = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "low-button"));
 288   rd.high = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "high-button"));
 289   rd.condense = GTK_TOGGLE_BUTTON (get_widget_assert (builder, "condense-button"));
 290
 291   g_signal_connect_swapped (rd.func_button[PROPORTION], "toggled",
 292                             G_CALLBACK (set_sensitivity),
 293                             &rd);
 294
 295   g_signal_connect_swapped (rd.func_button[NORMAL], "toggled",
 296                             G_CALLBACK (set_sensitivity),
 297                             &rd);
 298
 299   g_signal_connect (rd.func_button[NTILES], "toggled",
 300                     G_CALLBACK (on_ntiles_toggle),
 301                     rd.ntiles_entry);
 302
 303   gtk_window_set_transient_for (GTK_WINDOW (rd.dialog), GTK_WINDOW (de));
 304
 305   g_object_set (vars, "model", rd.dict, NULL);
 306
 307   g_signal_connect (types_button, "clicked",
 308                     G_CALLBACK (run_types_dialog),  &rd);
 309
 310   g_signal_connect (ties_button, "clicked",
 311                     G_CALLBACK (run_ties_dialog),  &rd);
 312
 313   g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh),  &rd);
 314
 315   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
 316                                       dialog_state_valid, &rd);
 317
 318   response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
 319
 320
 321   switch (response)
 322     {
 323     case GTK_RESPONSE_OK:
 324       g_free (execute_syntax_string (de, generate_syntax (&rd)));
 325       break;
 326     case PSPPIRE_RESPONSE_PASTE:
 327       g_free (paste_syntax_to_window (generate_syntax (&rd)));
 328       break;
 329     default:
 330       break;
 331     }
 332
 333   g_object_unref (builder);
 334 }
 335
 336
 337 static void
 338 types_dialog_reset (struct rank_dialog *rd)
 339 {
 340   gint i;
 341
 342   for (i = 0 ; i < n_RANK_FUNCS ; ++i )
 343     gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->func_button [i]),
 344                                   FALSE);
 345
 346   gtk_widget_set_sensitive (rd->ntiles_entry, FALSE);
 347
 348   gtk_widget_set_sensitive (rd->formula_box, FALSE);
 349 }
 350
 351
 352
 353 static void
 354 run_types_dialog (GtkButton *b, gpointer data)
 355 {
 356   struct rank_dialog *rd = data;
 357   gint response;
 358
 359   gtk_window_set_transient_for (GTK_WINDOW (rd->types_dialog),
 360                                 GTK_WINDOW (rd->dialog));
 361
 362   types_dialog_reset (rd);
 363
 364   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->types_dialog));
 365 }
 366
 367 static void
 368 run_ties_dialog (GtkButton *b, gpointer data)
 369 {
 370   struct rank_dialog *rd = data;
 371   gint response;
 372
 373   gtk_window_set_transient_for (GTK_WINDOW (rd->ties_dialog),
 374                                 GTK_WINDOW (rd->dialog));
 375
 376
 377   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->ties_dialog));
 378 }
 379
 380
 381 static void
 382 on_ntiles_toggle (GtkToggleButton *toggle_button, gpointer data)
 383 {
 384   GtkWidget *w = data;
 385   gboolean active = gtk_toggle_button_get_active (toggle_button);
 386   gtk_widget_set_sensitive (w, active);
 387 }