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 "psppire-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
 182   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->bar), fd->charts_opts_draw_bar);
 183   g_signal_emit_by_name (fd->bar, "toggled");
 184
 185   ret = psppire_dialog_run (PSPPIRE_DIALOG (fd->charts_dialog));
 186
 187   if ( ret == PSPPIRE_RESPONSE_CONTINUE )
 188     {
 189         fd->charts_opts_use_min = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->min));
 190         fd->charts_opts_min = gtk_spin_button_get_value (GTK_SPIN_BUTTON (fd->min_spin));
 191
 192         fd->charts_opts_use_max = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->max));
 193         fd->charts_opts_max = gtk_spin_button_get_value (GTK_SPIN_BUTTON (fd->max_spin));
 194
 195         fd->charts_opts_draw_hist = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->hist));
 196         fd->charts_opts_draw_normal = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->normal));
 197         if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->freqs)))
 198           fd->charts_opts_scale = FRQ_FREQ;
 199         else if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->percents)))
 200           fd->charts_opts_scale = FRQ_PERCENT;
 201
 202         fd->charts_opts_draw_pie = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->pie));
 203         fd->charts_opts_pie_include_missing
 204           = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->pie_include_missing));
 205
 206
 207         fd->charts_opts_draw_bar = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->bar));
 208     }
 209 }
 210
 211
 212 static void
 213 psppire_dialog_action_frequencies_class_init
 214 (PsppireDialogActionFrequenciesClass * class);
 215
 216 G_DEFINE_TYPE (PsppireDialogActionFrequencies,
 217                psppire_dialog_action_frequencies, PSPPIRE_TYPE_DIALOG_ACTION);
 218
 219 static gboolean
 220 dialog_state_valid (gpointer data)
 221 {
 222   PsppireDialogActionFrequencies *fd =
 223     PSPPIRE_DIALOG_ACTION_FREQUENCIES (data);
 224
 225   GtkTreeModel *vars =
 226     gtk_tree_view_get_model (GTK_TREE_VIEW (fd->stat_vars));
 227
 228   GtkTreeIter notused;
 229
 230   return gtk_tree_model_get_iter_first (vars, &notused);
 231 }
 232
 233 static void
 234 refresh (PsppireDialogAction * fdx)
 235 {
 236   PsppireDialogActionFrequencies *fd =
 237     PSPPIRE_DIALOG_ACTION_FREQUENCIES (fdx);
 238
 239   GtkTreeIter iter;
 240   size_t i;
 241   bool ok;
 242
 243   GtkTreeModel *liststore =
 244     gtk_tree_view_get_model (GTK_TREE_VIEW (fd->stat_vars));
 245   gtk_list_store_clear (GTK_LIST_STORE (liststore));
 246
 247   for (i = 0, ok = gtk_tree_model_get_iter_first (fd->stats, &iter); ok;
 248        i++, ok = gtk_tree_model_iter_next (fd->stats, &iter))
 249     gtk_list_store_set (GTK_LIST_STORE (fd->stats), &iter,
 250                         CHECKBOX_COLUMN_SELECTED,
 251                         (B_FS_DEFAULT & (1u << i)) ? true : false, -1);
 252 }
 253
 254
 255
 256 static void
 257 psppire_dialog_action_frequencies_activate (GtkAction * a)
 258 {
 259   PsppireDialogActionFrequencies *act = PSPPIRE_DIALOG_ACTION_FREQUENCIES (a);
 260   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
 261
 262   GHashTable *thing = psppire_dialog_action_get_pointer (pda);
 263   GtkBuilder *xml = g_hash_table_lookup (thing, a);
 264   if (!xml)
 265     {
 266       xml = builder_new ("frequencies.ui");
 267       g_hash_table_insert (thing, a, xml);
 268     }
 269
 270   GtkWidget *stats_treeview = get_widget_assert (xml, "stats-treeview");
 271   GtkWidget *tables_button = get_widget_assert (xml, "tables-button");
 272   GtkWidget *charts_button = get_widget_assert (xml, "charts-button");
 273
 274   pda->dialog = get_widget_assert (xml, "frequencies-dialog");
 275   pda->source = get_widget_assert (xml, "dict-treeview");
 276
 277   act->stat_vars = get_widget_assert (xml, "var-treeview");
 278
 279   psppire_checkbox_treeview_populate (PSPPIRE_CHECKBOX_TREEVIEW (stats_treeview),
 280                                   B_FS_DEFAULT, N_FREQUENCY_STATS, stats);
 281
 282   act->stats = gtk_tree_view_get_model (GTK_TREE_VIEW (stats_treeview));
 283
 284   act->include_missing = get_widget_assert (xml, "include_missing");
 285
 286
 287   act->tables_dialog = get_widget_assert (xml, "tables-dialog");
 288   act->charts_dialog = get_widget_assert (xml, "charts-dialog");
 289   act->always = get_widget_assert (xml, "always");
 290   act->never = get_widget_assert (xml, "never");
 291   act->limit = get_widget_assert (xml, "limit");
 292   act->limit_spinbutton = get_widget_assert (xml, "limit-spin");
 293
 294   g_signal_connect (act->limit, "toggled",
 295                     G_CALLBACK (set_sensitivity_from_toggle),
 296                     act->limit_spinbutton);
 297
 298   act->avalue = get_widget_assert (xml, "avalue");
 299   act->dvalue = get_widget_assert (xml, "dvalue");
 300   act->afreq = get_widget_assert (xml, "afreq");
 301   act->dfreq = get_widget_assert (xml, "dfreq");
 302
 303   act->charts_opts_use_min = false;
 304   act->charts_opts_min = 0;
 305   act->charts_opts_use_max = false;
 306   act->charts_opts_max = 100;
 307   act->charts_opts_draw_hist = false;
 308   act->charts_opts_draw_normal = false;
 309   act->charts_opts_scale = FRQ_FREQ;
 310   act->charts_opts_draw_pie = false;
 311   act->charts_opts_draw_bar = false;
 312   act->charts_opts_pie_include_missing = false;
 313
 314   act->freqs = get_widget_assert (xml, "freqs");
 315   act->percents = get_widget_assert (xml, "percents");
 316
 317   act->min = get_widget_assert (xml, "min");
 318   act->min_spin = get_widget_assert (xml, "min-spin");
 319   g_signal_connect (act->min, "toggled",
 320                     G_CALLBACK (set_sensitivity_from_toggle), act->min_spin);
 321   act->max = get_widget_assert (xml, "max");
 322   act->max_spin = get_widget_assert (xml, "max-spin");
 323   g_signal_connect (act->max, "toggled",
 324                     G_CALLBACK (set_sensitivity_from_toggle), act->max_spin);
 325
 326   act->hist = get_widget_assert (xml, "hist");
 327   act->normal = get_widget_assert (xml, "normal");
 328   g_signal_connect (act->hist, "toggled",
 329                     G_CALLBACK (set_sensitivity_from_toggle), act->normal);
 330
 331   act->pie =  (get_widget_assert (xml, "pie"));
 332   act->pie_include_missing = get_widget_assert (xml, "pie-include-missing");
 333
 334   act->bar =  (get_widget_assert (xml, "bar"));
 335
 336   act->tables_opts_order = FRQ_AVALUE;
 337   act->tables_opts_table = FRQ_TABLE;
 338   act->tables_opts_limit = 50;
 339
 340   g_signal_connect_swapped (tables_button, "clicked",
 341                             G_CALLBACK (on_tables_clicked),  act);
 342
 343   g_signal_connect_swapped (charts_button, "clicked",
 344                             G_CALLBACK (on_charts_clicked),  act);
 345
 346   psppire_dialog_action_set_refresh (pda, refresh);
 347
 348   psppire_dialog_action_set_valid_predicate (pda, dialog_state_valid);
 349
 350   if (PSPPIRE_DIALOG_ACTION_CLASS
 351       (psppire_dialog_action_frequencies_parent_class)->activate)
 352     PSPPIRE_DIALOG_ACTION_CLASS
 353       (psppire_dialog_action_frequencies_parent_class)->activate (pda);
 354 }
 355
 356 static char *
 357 generate_syntax (PsppireDialogAction * a)
 358 {
 359   PsppireDialogActionFrequencies *fd = PSPPIRE_DIALOG_ACTION_FREQUENCIES (a);
 360   gchar *text = NULL;
 361   gint i;
 362   gboolean ok;
 363   GtkTreeIter iter;
 364   guint selected = 0;
 365   struct string str;
 366
 367   ds_init_cstr (&str, "FREQUENCIES");
 368
 369   ds_put_cstr (&str, "\n\t/VARIABLES=");
 370   psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (fd->stat_vars), 0, &str);
 371
 372   ds_put_cstr (&str, "\n\t/FORMAT=");
 373
 374   switch (fd->tables_opts_order)
 375     {
 376     case FRQ_AVALUE:
 377       ds_put_cstr (&str, "AVALUE");
 378       break;
 379     case FRQ_DVALUE:
 380       ds_put_cstr (&str, "DVALUE");
 381       break;
 382     case FRQ_ACOUNT:
 383       ds_put_cstr (&str, "AFREQ");
 384       break;
 385     case FRQ_DCOUNT:
 386       ds_put_cstr (&str, "DFREQ");
 387       break;
 388     default:
 389       g_assert_not_reached ();
 390     }
 391
 392   ds_put_cstr (&str, " ");
 393
 394   switch (fd->tables_opts_table)
 395     {
 396     case FRQ_TABLE:
 397       ds_put_cstr (&str, "TABLE");
 398       break;
 399     case FRQ_NOTABLE:
 400       ds_put_cstr (&str, "NOTABLE");
 401       break;
 402     case FRQ_LIMIT:
 403       ds_put_c_format (&str, "LIMIT (%d)", fd->tables_opts_limit);
 404       break;
 405     }
 406
 407
 408   for (i = 0, ok = gtk_tree_model_get_iter_first (fd->stats, &iter); ok;
 409        i++, ok = gtk_tree_model_iter_next (fd->stats, &iter))
 410     {
 411       gboolean toggled;
 412       gtk_tree_model_get (fd->stats, &iter,
 413                           CHECKBOX_COLUMN_SELECTED, &toggled, -1);
 414       if (toggled)
 415         selected |= 1u << i;
 416     }
 417
 418   if (selected != B_FS_DEFAULT)
 419     {
 420       ds_put_cstr (&str, "\n\t/STATISTICS=");
 421       if (selected == B_FS_ALL)
 422         ds_put_cstr (&str, "ALL");
 423       else if (selected == 0)
 424         ds_put_cstr (&str, "NONE");
 425       else
 426         {
 427           int n = 0;
 428           if ((selected & B_FS_DEFAULT) == B_FS_DEFAULT)
 429             {
 430               ds_put_cstr (&str, "DEFAULT");
 431               selected &= ~B_FS_DEFAULT;
 432               n++;
 433             }
 434           for (i = 0; i < N_FREQUENCY_STATS; i++)
 435             if (selected & (1u << i))
 436               {
 437                 if (n++)
 438                   ds_put_cstr (&str, " ");
 439                 ds_put_cstr (&str, stats[i].name);
 440               }
 441         }
 442     }
 443
 444   if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (fd->include_missing)))
 445     ds_put_cstr (&str, "\n\t/MISSING=INCLUDE");
 446
 447
 448   if (fd->charts_opts_draw_hist)
 449     {
 450       ds_put_cstr (&str, "\n\t/HISTOGRAM=");
 451       ds_put_cstr (&str,
 452                        fd->charts_opts_draw_normal ? "NORMAL" : "NONORMAL");
 453
 454       if (fd->charts_opts_scale == FRQ_PERCENT)
 455         ds_put_cstr (&str, " PERCENT");
 456
 457       if (fd->charts_opts_use_min)
 458         ds_put_c_format (&str, " MIN(%.15g)", fd->charts_opts_min);
 459       if (fd->charts_opts_use_max)
 460         ds_put_c_format (&str, " MAX(%.15g)", fd->charts_opts_max);
 461     }
 462
 463   if (fd->charts_opts_draw_pie)
 464     {
 465       ds_put_cstr (&str, "\n\t/PIECHART=");
 466
 467       if (fd->charts_opts_pie_include_missing)
 468         ds_put_cstr (&str, " MISSING");
 469
 470       if (fd->charts_opts_use_min)
 471         ds_put_c_format (&str, " MIN(%.15g)", fd->charts_opts_min);
 472       if (fd->charts_opts_use_max)
 473         ds_put_c_format (&str, " MAX(%.15g)", fd->charts_opts_max);
 474     }
 475
 476
 477   if (fd->charts_opts_draw_bar)
 478     {
 479       ds_put_cstr (&str, "\n\t/BARCHART=");
 480
 481       if (fd->charts_opts_scale == FRQ_PERCENT)
 482         ds_put_cstr (&str, " PERCENT");
 483
 484       if (fd->charts_opts_use_min)
 485         ds_put_c_format (&str, " MIN(%.15g)", fd->charts_opts_min);
 486       if (fd->charts_opts_use_max)
 487         ds_put_c_format (&str, " MAX(%.15g)", fd->charts_opts_max);
 488     }
 489
 490
 491   ds_put_cstr (&str, ".\n");
 492
 493   text = ds_steal_cstr (&str);
 494
 495   ds_destroy (&str);
 496
 497   return text;
 498 }
 499
 500 static void
 501 psppire_dialog_action_frequencies_class_init (PsppireDialogActionFrequenciesClass *class)
 502 {
 503   psppire_dialog_action_set_activation (class, psppire_dialog_action_frequencies_activate);
 504   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
 505 }
 506
 507
 508 static void
 509 psppire_dialog_action_frequencies_init (PsppireDialogActionFrequencies * act)
 510 {
 511 }