pintos-os.org Git - pspp/blob - src/ui/gui/psppire-dialog-action-frequencies.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2 Copyright (C) 2012  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
  18 #include <config.h>
  19
  20 #include "psppire-dialog-action-frequencies.h"
  21 #include "psppire-value-entry.h"
  22
  23 #include "dialog-common.h"
  24 #include "helper.h"
  25 #include <ui/syntax-gen.h>
  26 #include "psppire-var-view.h"
  27
  28 #include "psppire-dialog.h"
  29 #include "builder-wrapper.h"
  30 #include "checkbox-treeview.h"
  31 #include "psppire-dict.h"
  32 #include "libpspp/str.h"
  33
  34 #include "gettext.h"
  35 #define _(msgid) gettext (msgid)
  36 #define N_(msgid) msgid
  37
  38
  39 #define FREQUENCY_STATS                                 \
  40   FS (MEAN, N_("Mean"))                                 \
  41   FS (STDDEV, N_("Standard deviation"))                 \
  42   FS (MINIMUM, N_("Minimum"))                           \
  43   FS (MAXIMUM, N_("Maximum"))                           \
  44   FS (SEMEAN, N_("Standard error of the mean"))         \
  45   FS (VARIANCE, N_("Variance"))                         \
  46   FS (SKEWNESS, N_("Skewness"))                         \
  47   FS (SESKEW, N_("Standard error of the skewness"))     \
  48   FS (RANGE, N_("Range"))                               \
  49   FS (MODE, N_("Mode"))                                 \
  50   FS (KURTOSIS, N_("Kurtosis"))                         \
  51   FS (SEKURT, N_("Standard error of the kurtosis"))     \
  52   FS (MEDIAN, N_("Median"))                             \
  53   FS (SUM, N_("Sum"))
  54
  55
  56
  57 enum
  58 {
  59 #define FS(NAME, LABEL) FS_##NAME,
  60   FREQUENCY_STATS
  61 #undef FS
  62   N_FREQUENCY_STATS
  63 };
  64
  65 enum
  66 {
  67 #define FS(NAME, LABEL) B_FS_##NAME = 1u << FS_##NAME,
  68   FREQUENCY_STATS
  69 #undef FS
  70     B_FS_ALL = (1u << N_FREQUENCY_STATS) - 1,
  71   B_FS_DEFAULT = B_FS_MEAN | B_FS_STDDEV | B_FS_MINIMUM | B_FS_MAXIMUM
  72 };
  73
  74
  75 static const struct checkbox_entry_item stats[] = {
  76 #define FS(NAME, LABEL) {#NAME, LABEL},
  77   FREQUENCY_STATS
  78 #undef FS
  79 };
  80
  81
  82 static void
  83 on_tables_clicked (PsppireDialogActionFrequencies * fd)
  84 {
  85   int ret;
  86
  87   switch (fd->tables_opts_order)
  88     {
  89     case FRQ_AVALUE:
  90       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->avalue), TRUE);
  91       break;
  92     case FRQ_DVALUE:
  93       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->dvalue), TRUE);
  94       break;
  95     case FRQ_ACOUNT:
  96       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->afreq), TRUE);
  97       break;
  98     case FRQ_DCOUNT:
  99       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->dfreq), TRUE);
 100       break;
 101     };
 102
 103   switch (fd->tables_opts_table)
 104     {
 105     case FRQ_TABLE:
 106       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->always), TRUE);
 107       break;
 108     case FRQ_NOTABLE:
 109       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->never), TRUE);
 110       break;
 111     case FRQ_LIMIT:
 112       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->limit), TRUE);
 113       break;
 114     }
 115
 116   gtk_spin_button_set_value (GTK_SPIN_BUTTON (fd->limit_spinbutton),
 117                              fd->tables_opts_limit);
 118
 119   g_signal_emit_by_name (fd->limit, "toggled");
 120
 121   ret = psppire_dialog_run (PSPPIRE_DIALOG (fd->tables_dialog));
 122
 123   if (ret == PSPPIRE_RESPONSE_CONTINUE)
 124     {
 125       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->avalue)))
 126         fd->tables_opts_order = FRQ_AVALUE;
 127       else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->dvalue)))
 128         fd->tables_opts_order = FRQ_DVALUE;
 129       else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->afreq)))
 130         fd->tables_opts_order = FRQ_ACOUNT;
 131       else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->dfreq)))
 132         fd->tables_opts_order = FRQ_DCOUNT;
 133
 134       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->always)))
 135         fd->tables_opts_table = FRQ_TABLE;
 136       else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->never)))
 137         fd->tables_opts_table = FRQ_NOTABLE;
 138       else
 139         fd->tables_opts_table = FRQ_LIMIT;
 140
 141
 142       fd->tables_opts_limit =
 143         gtk_spin_button_get_value (GTK_SPIN_BUTTON (fd->limit_spinbutton));
 144     }
 145 }
 146
 147
 148 static void
 149 on_charts_clicked (PsppireDialogActionFrequencies *fd)
 150 {
 151   int ret;
 152
 153   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->min), fd->charts_opts_use_min);
 154   gtk_spin_button_set_value (GTK_SPIN_BUTTON (fd->min_spin), fd->charts_opts_min);
 155   g_signal_emit_by_name (fd->min, "toggled");
 156
 157   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->max), fd->charts_opts_use_max);
 158   gtk_spin_button_set_value (GTK_SPIN_BUTTON (fd->max_spin), fd->charts_opts_max);
 159   g_signal_emit_by_name (fd->max, "toggled");
 160
 161   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->hist), fd->charts_opts_draw_hist);
 162   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->normal), fd->charts_opts_draw_normal);
 163   g_signal_emit_by_name (fd->hist, "toggled");
 164
 165   switch (fd->charts_opts_scale)
 166     {
 167     case FRQ_FREQ:
 168       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->freqs), TRUE);
 169       break;
 170     case FRQ_DVALUE:
 171       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->percents), TRUE);
 172       break;
 173     };
 174
 175   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->pie), fd->charts_opts_draw_pie);
 176   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->pie_include_missing),
 177                                 fd->charts_opts_pie_include_missing);
 178
 179   g_signal_emit_by_name (fd->pie, "toggled");
 180
 181   ret = psppire_dialog_run (PSPPIRE_DIALOG (fd->charts_dialog));
 182
 183   if ( ret == PSPPIRE_RESPONSE_CONTINUE )
 184     {
 185         fd->charts_opts_use_min = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->min));
 186         fd->charts_opts_min = gtk_spin_button_get_value (GTK_SPIN_BUTTON (fd->min_spin));
 187
 188         fd->charts_opts_use_max = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->max));
 189         fd->charts_opts_max = gtk_spin_button_get_value (GTK_SPIN_BUTTON (fd->max_spin));
 190
 191         fd->charts_opts_draw_hist = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->hist));
 192         fd->charts_opts_draw_normal = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->normal));
 193         if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->freqs)))
 194           fd->charts_opts_scale = FRQ_FREQ;
 195         else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->percents)))
 196           fd->charts_opts_scale = FRQ_PERCENT;
 197
 198         fd->charts_opts_draw_pie = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->pie));
 199         fd->charts_opts_pie_include_missing
 200           = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->pie_include_missing));
 201     }
 202 }
 203
 204
 205 static void
 206 psppire_dialog_action_frequencies_class_init
 207 (PsppireDialogActionFrequenciesClass * class);
 208
 209 G_DEFINE_TYPE (PsppireDialogActionFrequencies,
 210                psppire_dialog_action_frequencies, PSPPIRE_TYPE_DIALOG_ACTION);
 211
 212 static gboolean
 213 dialog_state_valid (gpointer data)
 214 {
 215   PsppireDialogActionFrequencies *fd =
 216     PSPPIRE_DIALOG_ACTION_FREQUENCIES (data);
 217
 218   GtkTreeModel *vars =
 219     gtk_tree_view_get_model (GTK_TREE_VIEW (fd->stat_vars));
 220
 221   GtkTreeIter notused;
 222
 223   return gtk_tree_model_get_iter_first (vars, &notused);
 224 }
 225
 226 static void
 227 refresh (PsppireDialogAction * fdx)
 228 {
 229   PsppireDialogActionFrequencies *fd =
 230     PSPPIRE_DIALOG_ACTION_FREQUENCIES (fdx);
 231
 232   GtkTreeIter iter;
 233   size_t i;
 234   bool ok;
 235
 236   GtkTreeModel *liststore =
 237     gtk_tree_view_get_model (GTK_TREE_VIEW (fd->stat_vars));
 238   gtk_list_store_clear (GTK_LIST_STORE (liststore));
 239
 240   for (i = 0, ok = gtk_tree_model_get_iter_first (fd->stats, &iter); ok;
 241        i++, ok = gtk_tree_model_iter_next (fd->stats, &iter))
 242     gtk_list_store_set (GTK_LIST_STORE (fd->stats), &iter,
 243                         CHECKBOX_COLUMN_SELECTED,
 244                         (B_FS_DEFAULT & (1u << i)) ? true : false, -1);
 245 }
 246
 247
 248
 249 static void
 250 psppire_dialog_action_frequencies_activate (GtkAction * a)
 251 {
 252   PsppireDialogActionFrequencies *act = PSPPIRE_DIALOG_ACTION_FREQUENCIES (a);
 253   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
 254
 255   GtkBuilder *xml = builder_new ("frequencies.ui");
 256
 257   GtkWidget *stats_treeview = get_widget_assert (xml, "stats-treeview");
 258   GtkWidget *tables_button = get_widget_assert (xml, "tables-button");
 259   GtkWidget *charts_button = get_widget_assert (xml, "charts-button");
 260
 261   pda->dialog = get_widget_assert (xml, "frequencies-dialog");
 262   pda->source = get_widget_assert (xml, "dict-treeview");
 263
 264   act->stat_vars = get_widget_assert (xml, "var-treeview");
 265
 266   put_checkbox_items_in_treeview (GTK_TREE_VIEW (stats_treeview),
 267                                   B_FS_DEFAULT, N_FREQUENCY_STATS, stats);
 268
 269   act->stats = gtk_tree_view_get_model (GTK_TREE_VIEW (stats_treeview));
 270
 271   act->include_missing = get_widget_assert (xml, "include_missing");
 272
 273
 274   act->tables_dialog = get_widget_assert (xml, "tables-dialog");
 275   act->charts_dialog = get_widget_assert (xml, "charts-dialog");
 276   act->always = get_widget_assert (xml, "always");
 277   act->never = get_widget_assert (xml, "never");
 278   act->limit = get_widget_assert (xml, "limit");
 279   act->limit_spinbutton = get_widget_assert (xml, "limit-spin");
 280
 281   g_signal_connect (act->limit, "toggled",
 282                     G_CALLBACK (set_sensitivity_from_toggle),
 283                     act->limit_spinbutton);
 284
 285   act->avalue = get_widget_assert (xml, "avalue");
 286   act->dvalue = get_widget_assert (xml, "dvalue");
 287   act->afreq = get_widget_assert (xml, "afreq");
 288   act->dfreq = get_widget_assert (xml, "dfreq");
 289
 290   act->charts_opts_use_min = false;
 291   act->charts_opts_min = 0;
 292   act->charts_opts_use_max = false;
 293   act->charts_opts_max = 100;
 294   act->charts_opts_draw_hist = false;
 295   act->charts_opts_draw_normal = false;
 296   act->charts_opts_scale = FRQ_FREQ;
 297   act->charts_opts_draw_pie = false;
 298   act->charts_opts_pie_include_missing = false;
 299
 300   act->freqs = get_widget_assert (xml, "freqs");
 301   act->percents = get_widget_assert (xml, "percents");
 302
 303   act->min = get_widget_assert (xml, "min");
 304   act->min_spin = get_widget_assert (xml, "min-spin");
 305   g_signal_connect (act->min, "toggled",
 306                     G_CALLBACK (set_sensitivity_from_toggle), act->min_spin);
 307   act->max = get_widget_assert (xml, "max");
 308   act->max_spin = get_widget_assert (xml, "max-spin");
 309   g_signal_connect (act->max, "toggled",
 310                     G_CALLBACK (set_sensitivity_from_toggle), act->max_spin);
 311
 312   act->hist = get_widget_assert (xml, "hist");
 313   act->normal = get_widget_assert (xml, "normal");
 314   g_signal_connect (act->hist, "toggled",
 315                     G_CALLBACK (set_sensitivity_from_toggle), act->normal);
 316
 317   act->pie =  (get_widget_assert (xml, "pie"));
 318   act->pie_include_missing = get_widget_assert (xml, "pie-include-missing");
 319
 320
 321   g_object_unref (xml);
 322
 323
 324   act->tables_opts_order = FRQ_AVALUE;
 325   act->tables_opts_table = FRQ_TABLE;
 326   act->tables_opts_limit = 50;
 327
 328   g_signal_connect_swapped (tables_button, "clicked",
 329                             G_CALLBACK (on_tables_clicked),  act);
 330
 331   g_signal_connect_swapped (charts_button, "clicked",
 332                             G_CALLBACK (on_charts_clicked),  act);
 333
 334   psppire_dialog_action_set_refresh (pda, refresh);
 335
 336   psppire_dialog_action_set_valid_predicate (pda, dialog_state_valid);
 337
 338   if (PSPPIRE_DIALOG_ACTION_CLASS
 339       (psppire_dialog_action_frequencies_parent_class)->activate)
 340     PSPPIRE_DIALOG_ACTION_CLASS
 341       (psppire_dialog_action_frequencies_parent_class)->activate (pda);
 342 }
 343
 344 static char *
 345 generate_syntax (PsppireDialogAction * a)
 346 {
 347   PsppireDialogActionFrequencies *fd = PSPPIRE_DIALOG_ACTION_FREQUENCIES (a);
 348   gchar *text = NULL;
 349   gint i;
 350   gboolean ok;
 351   GtkTreeIter iter;
 352   guint selected = 0;
 353   struct string str;
 354
 355   ds_init_cstr (&str, "FREQUENCIES");
 356
 357   ds_put_cstr (&str, "\n\t/VARIABLES=");
 358   psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (fd->stat_vars), 0, &str);
 359
 360   ds_put_cstr (&str, "\n\t/FORMAT=");
 361
 362   switch (fd->tables_opts_order)
 363     {
 364     case FRQ_AVALUE:
 365       ds_put_cstr (&str, "AVALUE");
 366       break;
 367     case FRQ_DVALUE:
 368       ds_put_cstr (&str, "DVALUE");
 369       break;
 370     case FRQ_ACOUNT:
 371       ds_put_cstr (&str, "AFREQ");
 372       break;
 373     case FRQ_DCOUNT:
 374       ds_put_cstr (&str, "DFREQ");
 375       break;
 376     default:
 377       g_assert_not_reached ();
 378     }
 379
 380   ds_put_cstr (&str, " ");
 381
 382   switch (fd->tables_opts_table)
 383     {
 384     case FRQ_TABLE:
 385       ds_put_cstr (&str, "TABLE");
 386       break;
 387     case FRQ_NOTABLE:
 388       ds_put_cstr (&str, "NOTABLE");
 389       break;
 390     case FRQ_LIMIT:
 391       ds_put_c_format (&str, "LIMIT (%d)", fd->tables_opts_limit);
 392       break;
 393     }
 394
 395
 396   for (i = 0, ok = gtk_tree_model_get_iter_first (fd->stats, &iter); ok;
 397        i++, ok = gtk_tree_model_iter_next (fd->stats, &iter))
 398     {
 399       gboolean toggled;
 400       gtk_tree_model_get (fd->stats, &iter,
 401                           CHECKBOX_COLUMN_SELECTED, &toggled, -1);
 402       if (toggled)
 403         selected |= 1u << i;
 404     }
 405
 406   if (selected != B_FS_DEFAULT)
 407     {
 408       ds_put_cstr (&str, "\n\t/STATISTICS=");
 409       if (selected == B_FS_ALL)
 410         ds_put_cstr (&str, "ALL");
 411       else if (selected == 0)
 412         ds_put_cstr (&str, "NONE");
 413       else
 414         {
 415           int n = 0;
 416           if ((selected & B_FS_DEFAULT) == B_FS_DEFAULT)
 417             {
 418               ds_put_cstr (&str, "DEFAULT");
 419               selected &= ~B_FS_DEFAULT;
 420               n++;
 421             }
 422           for (i = 0; i < N_FREQUENCY_STATS; i++)
 423             if (selected & (1u << i))
 424               {
 425                 if (n++)
 426                   ds_put_cstr (&str, " ");
 427                 ds_put_cstr (&str, stats[i].name);
 428               }
 429         }
 430     }
 431
 432   if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->include_missing)))
 433     ds_put_cstr (&str, "\n\t/MISSING=INCLUDE");
 434
 435
 436   if (fd->charts_opts_draw_hist)
 437     {
 438       ds_put_cstr (&str, "\n\t/HISTOGRAM=");
 439       ds_put_cstr (&str,
 440                        fd->charts_opts_draw_normal ? "NORMAL" : "NONORMAL");
 441
 442       if (fd->charts_opts_scale == FRQ_PERCENT)
 443         ds_put_cstr (&str, " PERCENT");
 444
 445       if (fd->charts_opts_use_min)
 446         ds_put_c_format (&str, " MIN(%.15g)", fd->charts_opts_min);
 447       if (fd->charts_opts_use_max)
 448         ds_put_c_format (&str, " MAX(%.15g)", fd->charts_opts_max);
 449     }
 450
 451   if (fd->charts_opts_draw_pie)
 452     {
 453       ds_put_cstr (&str, "\n\t/PIECHART=");
 454
 455       if (fd->charts_opts_pie_include_missing)
 456         ds_put_cstr (&str, " MISSING");
 457
 458       if (fd->charts_opts_use_min)
 459         ds_put_c_format (&str, " MIN(%.15g)", fd->charts_opts_min);
 460       if (fd->charts_opts_use_max)
 461         ds_put_c_format (&str, " MAX(%.15g)", fd->charts_opts_max);
 462     }
 463
 464   ds_put_cstr (&str, ".\n");
 465
 466   text = ds_steal_cstr (&str);
 467
 468   ds_destroy (&str);
 469
 470   return text;
 471 }
 472
 473 static void
 474 psppire_dialog_action_frequencies_class_init (PsppireDialogActionFrequenciesClass *class)
 475 {
 476   GtkActionClass *action_class = GTK_ACTION_CLASS (class);
 477
 478   action_class->activate = psppire_dialog_action_frequencies_activate;
 479
 480   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
 481 }
 482
 483
 484 static void
 485 psppire_dialog_action_frequencies_init (PsppireDialogActionFrequencies * act)
 486 {
 487 }