1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2012, 2020 Free Software Foundation
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.
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.
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/>. */
20 #include "psppire-dialog-action-examine.h"
22 #include "psppire-var-view.h"
23 #include "dialog-common.h"
24 #include "psppire-selector.h"
25 #include "psppire-dict.h"
26 #include "psppire-dialog.h"
27 #include "builder-wrapper.h"
30 #define _(msgid) gettext (msgid)
31 #define N_(msgid) msgid
33 static void psppire_dialog_action_examine_class_init (PsppireDialogActionExamineClass *class);
35 G_DEFINE_TYPE (PsppireDialogActionExamine, psppire_dialog_action_examine, PSPPIRE_TYPE_DIALOG_ACTION);
38 #define STAT_DESCRIPTIVES 0x01
39 #define STAT_EXTREMES 0x02
40 #define STAT_PERCENTILES 0x04
43 run_stats_dialog (PsppireDialogActionExamine *ed)
47 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->descriptives_button),
48 ed->stats & STAT_DESCRIPTIVES);
50 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->extremes_button),
51 ed->stats & STAT_EXTREMES);
53 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->percentiles_button),
54 ed->stats & STAT_PERCENTILES);
56 response = psppire_dialog_run (PSPPIRE_DIALOG (ed->stats_dialog));
58 if (response == PSPPIRE_RESPONSE_CONTINUE)
61 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->descriptives_button)))
62 ed->stats |= STAT_DESCRIPTIVES;
64 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->extremes_button)))
65 ed->stats |= STAT_EXTREMES;
67 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->percentiles_button)))
68 ed->stats |= STAT_PERCENTILES;
73 run_opts_dialog (PsppireDialogActionExamine *ed)
80 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->listwise), TRUE);
83 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->pairwise), TRUE);
86 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->report), TRUE);
89 g_assert_not_reached ();
93 response = psppire_dialog_run (PSPPIRE_DIALOG (ed->opts_dialog));
95 if (response == PSPPIRE_RESPONSE_CONTINUE)
97 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->listwise)))
98 ed->opts = OPT_LISTWISE;
99 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->pairwise)))
100 ed->opts = OPT_PAIRWISE;
101 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->report)))
102 ed->opts = OPT_REPORT;
107 run_plots_dialog (PsppireDialogActionExamine *ed)
111 switch (ed->boxplots)
113 case BOXPLOT_FACTORS:
114 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->boxplot_factors_button), TRUE);
116 case BOXPLOT_DEPENDENTS:
117 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->boxplot_dependents_button), TRUE);
120 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->boxplot_none_button), TRUE);
123 g_assert_not_reached ();
127 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->histogram_button), ed->histogram);
128 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->npplots_button), ed->npplots);
130 g_signal_connect (ed->spread_trans_button, "toggled",
131 G_CALLBACK (set_sensitivity_from_toggle),
132 ed->spread_power_combo);
133 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_trans_button), FALSE);
134 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_trans_button), TRUE);
136 switch (ed->spreadlevel)
139 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_none_button), TRUE);
142 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_power_button), TRUE);
145 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_trans_button), TRUE);
148 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->spread_untrans_button), TRUE);
151 g_assert_not_reached ();
155 switch (ed->spreadpower)
157 case SPREADPOWER_NATLOG:
158 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "natlog");
160 case SPREADPOWER_CUBE:
161 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "cube");
163 case SPREADPOWER_SQUARE:
164 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "square");
166 case SPREADPOWER_SQUAREROOT:
167 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "squareroot");
169 case SPREADPOWER_RECROOT:
170 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "recroot");
172 case SPREADPOWER_RECIPROCAL:
173 gtk_combo_box_set_active_id (GTK_COMBO_BOX (ed->spread_power_combo), "reciprocal");
177 response = psppire_dialog_run (PSPPIRE_DIALOG (ed->plots_dialog));
179 if (response == PSPPIRE_RESPONSE_CONTINUE)
181 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->boxplot_factors_button)))
182 ed->boxplots = BOXPLOT_FACTORS;
183 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->boxplot_dependents_button)))
184 ed->boxplots = BOXPLOT_DEPENDENTS;
185 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->boxplot_none_button)))
186 ed->boxplots = BOXPLOT_NONE;
188 ed->histogram = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->histogram_button));
189 ed->npplots = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->npplots_button));
191 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->spread_none_button)))
192 ed->spreadlevel = SPREAD_NONE;
193 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->spread_power_button)))
194 ed->spreadlevel = SPREAD_POWER;
195 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->spread_trans_button)))
196 ed->spreadlevel = SPREAD_TRANS;
197 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->spread_untrans_button)))
198 ed->spreadlevel = SPREAD_UNTRANS;
200 if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "natlog"))
201 ed->spreadpower = SPREADPOWER_NATLOG;
202 else if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "cube"))
203 ed->spreadpower = SPREADPOWER_CUBE;
204 else if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "square"))
205 ed->spreadpower = SPREADPOWER_SQUARE;
206 else if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "squareroot"))
207 ed->spreadpower = SPREADPOWER_SQUAREROOT;
208 else if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "recroot"))
209 ed->spreadpower = SPREADPOWER_RECROOT;
210 else if (0 == strcmp (gtk_combo_box_get_active_id (GTK_COMBO_BOX (ed->spread_power_combo)), "reciprocal"))
211 ed->spreadpower = SPREADPOWER_RECIPROCAL;
216 generate_syntax (const PsppireDialogAction *act)
218 PsppireDialogActionExamine *ed = PSPPIRE_DIALOG_ACTION_EXAMINE (act);
222 GString *str = g_string_new ("EXAMINE ");
223 bool show_stats = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->display_stats_button));
224 bool show_plots = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->display_plots_button));
226 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->display_both_button)))
232 g_string_append (str, "\n\t/VARIABLES=");
233 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->variables), 0, str);
235 if (0 < gtk_tree_model_iter_n_children
236 (gtk_tree_view_get_model (GTK_TREE_VIEW (ed->factors)), NULL))
238 g_string_append (str, "\n\tBY ");
239 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->factors), 0, str);
242 label = gtk_entry_get_text (GTK_ENTRY (ed->id_var));
243 if (0 != strcmp (label, ""))
245 g_string_append (str, "\n\t/ID = ");
246 g_string_append (str, label);
251 if (ed->stats & (STAT_DESCRIPTIVES | STAT_EXTREMES))
253 g_string_append (str, "\n\t/STATISTICS =");
255 if (ed->stats & STAT_DESCRIPTIVES)
256 g_string_append (str, " DESCRIPTIVES");
258 if (ed->stats & STAT_EXTREMES)
259 g_string_append (str, " EXTREME");
262 if (ed->stats & STAT_PERCENTILES)
263 g_string_append (str, "\n\t/PERCENTILES");
267 ((ed->boxplots != BOXPLOT_NONE) ||
270 (ed->spreadlevel != SPREAD_NONE)))
272 g_string_append (str, "\n\t/PLOT =");
274 if (ed->boxplots != BOXPLOT_NONE)
275 g_string_append (str, " BOXPLOT");
277 g_string_append (str, " HISTOGRAM");
279 g_string_append (str, " NPPLOT");
280 if (ed->spreadlevel != SPREAD_NONE)
282 g_string_append (str, " SPREADLEVEL");
283 if (ed->spreadlevel != SPREAD_POWER)
285 const gchar *power = NULL;
286 if (ed->spreadlevel == SPREAD_TRANS)
287 switch (ed->spreadpower)
289 case SPREADPOWER_NATLOG:
292 case SPREADPOWER_CUBE:
295 case SPREADPOWER_SQUARE:
298 case SPREADPOWER_SQUAREROOT:
301 case SPREADPOWER_RECROOT:
304 case SPREADPOWER_RECIPROCAL:
308 g_assert_not_reached ();
313 g_string_append_printf(str, " (%s)",power);
316 if (ed->boxplots == BOXPLOT_FACTORS)
317 g_string_append (str, "\n\t/COMPARE = GROUPS");
318 if (ed->boxplots == BOXPLOT_DEPENDENTS)
319 g_string_append (str, "\n\t/COMPARE = VARIABLES");
322 g_string_append (str, "\n\t/MISSING=");
326 g_string_append (str, "REPORT");
329 g_string_append (str, "PAIRWISE");
332 g_string_append (str, "LISTWISE");
336 g_string_append (str, ".");
339 g_string_free (str, FALSE);
345 dialog_state_valid (PsppireDialogAction *da)
347 PsppireDialogActionExamine *pae = PSPPIRE_DIALOG_ACTION_EXAMINE (da);
350 gtk_tree_view_get_model (GTK_TREE_VIEW (pae->variables));
352 return gtk_tree_model_get_iter_first (vars, ¬used);
356 dialog_refresh (PsppireDialogAction *da)
358 PsppireDialogActionExamine *dae = PSPPIRE_DIALOG_ACTION_EXAMINE (da);
359 GtkTreeModel *liststore = NULL;
361 liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (dae->variables));
362 gtk_list_store_clear (GTK_LIST_STORE (liststore));
364 liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (dae->factors));
365 gtk_list_store_clear (GTK_LIST_STORE (liststore));
367 gtk_entry_set_text (GTK_ENTRY (dae->id_var), "");
368 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (dae->display_both_button), TRUE);
371 dae->opts = OPT_LISTWISE;
372 dae->boxplots = BOXPLOT_FACTORS;
373 dae->histogram = TRUE;
374 dae->npplots = FALSE;
375 dae->spreadlevel = SPREAD_NONE;
376 dae->spreadpower = SPREADPOWER_NATLOG;
380 psppire_dialog_action_examine_activate (PsppireDialogAction *a, GVariant *param)
382 PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
383 PsppireDialogActionExamine *act = PSPPIRE_DIALOG_ACTION_EXAMINE (a);
385 GtkBuilder *xml = builder_new ("examine.ui");
387 GtkWidget *stats_button = get_widget_assert (xml, "stats-button");
388 GtkWidget *opts_button = get_widget_assert (xml, "opts-button");
389 GtkWidget *plots_button = get_widget_assert (xml, "plots-button");
391 g_signal_connect_swapped (stats_button, "clicked",
392 G_CALLBACK (run_stats_dialog), act);
394 g_signal_connect_swapped (opts_button, "clicked",
395 G_CALLBACK (run_opts_dialog), act);
396 g_signal_connect_swapped (plots_button, "clicked",
397 G_CALLBACK (run_plots_dialog), act);
399 GtkWidget *dep_sel = get_widget_assert (xml, "psppire-selector1");
400 GtkWidget *dep_sel2 = get_widget_assert (xml, "psppire-selector2");
401 GtkWidget *dep_sel3 = get_widget_assert (xml, "psppire-selector3");
402 GtkWidget *table = get_widget_assert (xml, "table1");
404 pda->dialog = get_widget_assert (xml, "examine-dialog");
405 pda->source = get_widget_assert (xml, "treeview1");
406 act->variables = get_widget_assert (xml, "treeview2");
407 act->factors = get_widget_assert (xml, "treeview3");
408 act->id_var = get_widget_assert (xml, "entry1");
409 act->display_both_button = get_widget_assert (xml, "display-both-button");
410 act->display_stats_button = get_widget_assert (xml, "display-stats-button");
411 act->display_plots_button = get_widget_assert (xml, "display-plots-button");
413 /* Setting the focus chain like this is a pain.
414 But the default focus order seems to be somewhat odd. */
416 list = g_list_append (list, get_widget_assert (xml, "scrolledwindow1"));
417 list = g_list_append (list, dep_sel);
418 list = g_list_append (list, get_widget_assert (xml, "frame1"));
419 list = g_list_append (list, dep_sel2);
420 list = g_list_append (list, get_widget_assert (xml, "frame2"));
421 list = g_list_append (list, dep_sel3);
422 list = g_list_append (list, get_widget_assert (xml, "frame3"));
423 gtk_container_set_focus_chain (GTK_CONTAINER (table), list);
427 act->stats_dialog = get_widget_assert (xml, "statistics-dialog");
428 act->descriptives_button = get_widget_assert (xml, "descriptives-button");
429 act->extremes_button = get_widget_assert (xml, "extremes-button");
430 act->percentiles_button = get_widget_assert (xml, "percentiles-button");
432 act->opts_dialog = get_widget_assert (xml, "options-dialog");
433 act->listwise = get_widget_assert (xml, "radiobutton1");
434 act->pairwise = get_widget_assert (xml, "radiobutton2");
435 act->report = get_widget_assert (xml, "radiobutton3");
437 act->plots_dialog = get_widget_assert (xml, "plots-dialog");
438 act->boxplot_factors_button = get_widget_assert (xml, "boxplot-factors-button");
439 act->boxplot_dependents_button = get_widget_assert (xml, "boxplot-dependents-button");
440 act->boxplot_none_button = get_widget_assert (xml, "boxplot-none-button");
441 act->histogram_button = get_widget_assert (xml, "histogram-button");
442 act->npplots_button = get_widget_assert (xml, "npplots-button");
443 act->spread_none_button = get_widget_assert (xml, "spread-none-button");
444 act->spread_power_button = get_widget_assert (xml, "spread-power-button");
445 act->spread_trans_button = get_widget_assert (xml, "spread-trans-button");
446 act->spread_untrans_button = get_widget_assert (xml, "spread-untrans-button");
447 act->spread_power_combo = get_widget_assert (xml, "spread-power-combo");
449 psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_sel), numeric_only);
451 psppire_dialog_action_set_valid_predicate (pda, (void *) dialog_state_valid);
452 psppire_dialog_action_set_refresh (pda, dialog_refresh);
457 psppire_dialog_action_examine_class_init (PsppireDialogActionExamineClass *class)
459 PSPPIRE_DIALOG_ACTION_CLASS (class)->initial_activate = psppire_dialog_action_examine_activate;
461 PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
465 psppire_dialog_action_examine_init (PsppireDialogActionExamine *act)