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