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/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
  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   struct data_editor *de = data;
 224
 225   struct rank_dialog rd;
 226
 227   GladeXML *xml = XML_NEW ("rank.glade");
 228
 229   GtkWidget *vars = get_widget_assert   (xml, "dict-treeview");
 230   GtkWidget *selector1 = get_widget_assert (xml, "psppire-selector1");
 231   GtkWidget *selector2 = get_widget_assert (xml, "psppire-selector2");
 232
 233
 234   GtkWidget *types_button = get_widget_assert (xml, "button1");
 235   GtkWidget *ties_button = get_widget_assert (xml, "button2");
 236
 237   PsppireVarStore *vs = NULL;
 238
 239   g_object_get (de->data_editor, "var-store", &vs, NULL);
 240
 241   rd.dict = vs->dict;
 242   rd.rank_vars =   get_widget_assert (xml, "variables-treeview");
 243   rd.group_vars =  get_widget_assert (xml, "group-vars-treeview");
 244   rd.dialog = get_widget_assert   (xml, "rank-dialog");
 245   rd.ascending_togglebutton =
 246     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "radiobutton1"));
 247
 248   rd.summary_togglebutton =
 249     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "summary-checkbutton"));
 250
 251   rd.types_dialog = get_widget_assert (xml, "rank-types-dialog");
 252
 253
 254   rd.ntiles_entry  = get_widget_assert (xml, "ntiles-entry");
 255
 256   rd.func_button[RANK]    =
 257     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rank-checkbutton"));
 258
 259   rd.func_button[SAVAGE]  =
 260     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "savage-checkbutton"));
 261
 262   rd.func_button[RFRACTION] =
 263     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rfrac-checkbutton"));
 264
 265   rd.func_button[PERCENT] =
 266     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "percent-checkbutton"));
 267
 268   rd.func_button[N]       =
 269     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "sum-checkbutton"));
 270
 271   rd.func_button[NTILES] =
 272     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "ntiles-checkbutton"));
 273
 274   rd.func_button[PROPORTION] =
 275     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "prop-checkbutton"));
 276
 277   rd.func_button[NORMAL] =
 278     GTK_TOGGLE_BUTTON (get_widget_assert (xml, "normal-checkbutton"));
 279
 280   rd.formula_box = get_widget_assert (xml, "formula-frame");
 281
 282   rd.blom = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "blom-button"));
 283   rd.tukey = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "tukey-button"));
 284   rd.rankit = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "rankit-button"));
 285   rd.vw = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "vw-button"));
 286
 287   /* Ties dialog */
 288   rd.ties_dialog = PSPPIRE_DIALOG (get_widget_assert (xml, "ties-dialog"));
 289
 290   rd.mean = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "mean-button"));
 291   rd.low = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "low-button"));
 292   rd.high = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "high-button"));
 293   rd.condense = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "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), de->parent.window);
 308
 309   attach_dictionary_to_treeview (GTK_TREE_VIEW (vars),
 310                                  vs->dict,
 311                                  GTK_SELECTION_MULTIPLE, NULL);
 312
 313
 314   set_dest_model (GTK_TREE_VIEW (rd.rank_vars), vs->dict);
 315
 316   psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector1),
 317                                  vars,
 318                                  rd.rank_vars,
 319                                  insert_source_row_into_tree_view,
 320                                  NULL,
 321                                  NULL);
 322
 323   set_dest_model (GTK_TREE_VIEW (rd.group_vars), vs->dict);
 324
 325   psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector2),
 326                                  vars,
 327                                  rd.group_vars,
 328                                  insert_source_row_into_tree_view,
 329                                  NULL,
 330                                  NULL);
 331
 332
 333   g_signal_connect (types_button, "clicked",
 334                     G_CALLBACK (run_types_dialog),  &rd);
 335
 336   g_signal_connect (ties_button, "clicked",
 337                     G_CALLBACK (run_ties_dialog),  &rd);
 338
 339   g_signal_connect (rd.dialog, "refresh", G_CALLBACK (refresh),  &rd);
 340
 341   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (rd.dialog),
 342                                       dialog_state_valid, &rd);
 343
 344   response = psppire_dialog_run (PSPPIRE_DIALOG (rd.dialog));
 345
 346
 347   switch (response)
 348     {
 349     case GTK_RESPONSE_OK:
 350       {
 351         gchar *syntax = generate_syntax (&rd);
 352         struct getl_interface *sss = create_syntax_string_source (syntax);
 353         execute_syntax (sss);
 354
 355         g_free (syntax);
 356       }
 357       break;
 358     case PSPPIRE_RESPONSE_PASTE:
 359       {
 360         gchar *syntax = generate_syntax (&rd);
 361
 362         struct syntax_editor *se =
 363           (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
 364
 365         gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
 366
 367         g_free (syntax);
 368       }
 369       break;
 370     default:
 371       break;
 372     }
 373
 374   g_object_unref (xml);
 375 }
 376
 377
 378 static void
 379 types_dialog_reset (struct rank_dialog *rd)
 380 {
 381   gint i;
 382
 383   for (i = 0 ; i < n_RANK_FUNCS ; ++i )
 384     gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->func_button [i]),
 385                                   FALSE);
 386
 387   gtk_widget_set_sensitive (rd->ntiles_entry, FALSE);
 388
 389   gtk_widget_set_sensitive (rd->formula_box, FALSE);
 390 }
 391
 392
 393
 394 static void
 395 run_types_dialog (GtkButton *b, gpointer data)
 396 {
 397   struct rank_dialog *rd = data;
 398   gint response;
 399
 400   gtk_window_set_transient_for (GTK_WINDOW (rd->types_dialog),
 401                                 GTK_WINDOW (rd->dialog));
 402
 403   types_dialog_reset (rd);
 404
 405   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->types_dialog));
 406 }
 407
 408 static void
 409 run_ties_dialog (GtkButton *b, gpointer data)
 410 {
 411   struct rank_dialog *rd = data;
 412   gint response;
 413
 414   gtk_window_set_transient_for (GTK_WINDOW (rd->ties_dialog),
 415                                 GTK_WINDOW (rd->dialog));
 416
 417
 418   response = psppire_dialog_run (PSPPIRE_DIALOG (rd->ties_dialog));
 419 }
 420
 421
 422 static void
 423 on_ntiles_toggle (GtkToggleButton *toggle_button, gpointer data)
 424 {
 425   GtkWidget *w = data;
 426   gboolean active = gtk_toggle_button_get_active (toggle_button);
 427   gtk_widget_set_sensitive (w, active);
 428 }