1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007, 2009, 2010, 2011 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/>.
21 #include "t-test-independent-samples-dialog.h"
22 #include "psppire-dict.h"
23 #include "psppire-var-store.h"
24 #include "psppire-var-view.h"
26 #include "psppire-data-window.h"
27 #include "psppire-dialog.h"
28 #include "dialog-common.h"
29 #include "dict-display.h"
30 #include "widget-io.h"
31 #include "t-test-options.h"
32 #include <ui/syntax-gen.h>
36 #include <gl/xalloc.h>
39 #define _(msgid) gettext (msgid)
40 #define N_(msgid) msgid
50 struct tt_groups_dialog
58 GtkWidget *values_toggle_button;
59 GtkWidget *cut_point_toggle_button;
61 GtkWidget *grp_entry[2];
62 GtkWidget *cut_point_entry;
64 enum group_definition group_defn;
69 set_group_criterion_type (GtkToggleButton *button,
70 struct tt_groups_dialog *groups)
72 gboolean by_values = gtk_toggle_button_get_active (button);
74 gtk_widget_set_sensitive (groups->label, by_values);
75 gtk_widget_set_sensitive (groups->table2, by_values);
77 gtk_widget_set_sensitive (groups->hbox1, !by_values);
81 tt_groups_dialog_destroy (struct tt_groups_dialog *grps)
83 g_object_unref (grps->table1);
84 g_object_unref (grps->table2);
86 g_free (grps->val[0]);
87 g_free (grps->val[1]);
92 static struct tt_groups_dialog *
93 tt_groups_dialog_create (GtkBuilder *xml, GtkWindow *parent)
95 struct tt_groups_dialog *grps = xmalloc (sizeof (*grps));
97 grps->group_defn = GROUPS_UNDEF;
99 grps->dialog = get_widget_assert (xml, "define-groups-dialog");
100 grps->table1 = get_widget_assert (xml, "table1");
101 grps->table2 = get_widget_assert (xml, "table2");
102 grps->label = get_widget_assert (xml, "label4");
103 grps->hbox1 = get_widget_assert (xml, "hbox1");
105 grps->grp_entry[0] = get_widget_assert (xml, "group1-entry");
106 grps->grp_entry[1] = get_widget_assert (xml, "group2-entry");
107 grps->cut_point_entry = get_widget_assert (xml, "cut-point-entry");
109 grps->cut_point_toggle_button = get_widget_assert (xml, "radiobutton4");
110 grps->values_toggle_button = get_widget_assert (xml, "radiobutton3");
112 g_object_ref (grps->table1);
113 g_object_ref (grps->table2);
115 g_signal_connect (grps->values_toggle_button, "toggled",
116 G_CALLBACK (set_group_criterion_type), grps);
118 gtk_window_set_transient_for (GTK_WINDOW (grps->dialog), parent);
120 grps->val[0] = xstrdup ("");
121 grps->val[1] = xstrdup ("");
127 struct tt_indep_samples_dialog
129 GtkBuilder *xml; /* The xml that generated the widgets */
132 GtkWidget *define_groups_button;
133 GtkWidget *groups_entry;
135 struct tt_groups_dialog *grps;
136 struct tt_options_dialog *opts;
141 set_define_groups_sensitivity (GtkEntry *entry,
142 struct tt_indep_samples_dialog *tt_d)
144 const gchar *text = gtk_entry_get_text (entry);
146 const struct variable *v = psppire_dict_lookup_var (tt_d->dict, text);
148 gtk_widget_set_sensitive (tt_d->define_groups_button, v != NULL);
153 generate_syntax (const struct tt_indep_samples_dialog *d)
155 struct variable *group_variable;
159 get_widget_assert (d->xml, "indep-samples-t-test-treeview2");
161 GString *str = g_string_new ("T-TEST /VARIABLES=");
163 psppire_var_view_append_names (PSPPIRE_VAR_VIEW (tv), 0, str);
165 g_string_append (str, "\n\t/GROUPS=");
168 psppire_dict_lookup_var (d->dict,
169 gtk_entry_get_text (GTK_ENTRY (d->groups_entry)));
171 g_string_append (str, var_get_name (group_variable));
173 if (d->grps->group_defn != GROUPS_UNDEF)
175 g_string_append (str, "(");
177 if ( var_is_alpha (group_variable))
179 struct string s = DS_EMPTY_INITIALIZER;
180 syntax_gen_string (&s, ss_cstr (d->grps->val[0]));
181 g_string_append (str, ds_cstr (&s));
186 g_string_append (str, d->grps->val[0]);
189 if ( d->grps->group_defn == GROUPS_VALUES )
191 g_string_append (str, ",");
193 if ( var_is_alpha (group_variable))
195 struct string s = DS_EMPTY_INITIALIZER;
196 syntax_gen_string (&s, ss_cstr (d->grps->val[1]));
197 g_string_append (str, ds_cstr (&s));
202 g_string_append (str, d->grps->val[1]);
206 g_string_append (str, ")");
209 tt_options_dialog_append_syntax (d->opts, str);
211 g_string_append (str, ".\n");
215 g_string_free (str, FALSE);
221 refresh (struct tt_indep_samples_dialog *ttd)
224 get_widget_assert (ttd->xml, "indep-samples-t-test-treeview2");
226 GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (tv));
228 gtk_entry_set_text (GTK_ENTRY (ttd->groups_entry), "");
230 gtk_list_store_clear (GTK_LIST_STORE (model));
232 gtk_widget_set_sensitive (ttd->define_groups_button, FALSE);
236 /* Returns TRUE iff the define groups subdialog has a
237 state which defines a valid group criterion */
239 define_groups_state_valid (gpointer data)
241 struct tt_groups_dialog *d = data;
243 if ( gtk_toggle_button_get_active
244 (GTK_TOGGLE_BUTTON (d->values_toggle_button)))
246 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[0]))))
249 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[1]))))
254 if ( 0 == strcmp ("",
255 gtk_entry_get_text (GTK_ENTRY (d->cut_point_entry))))
263 run_define_groups (struct tt_indep_samples_dialog *ttd)
265 struct tt_groups_dialog *grps = ttd->grps;
269 GtkWidget *box = get_widget_assert (ttd->xml, "dialog-hbox2");
271 const gchar *text = gtk_entry_get_text (GTK_ENTRY (ttd->groups_entry));
273 const struct variable *v = psppire_dict_lookup_var (ttd->dict, text);
275 if ( grps->table2->parent)
276 gtk_container_remove (GTK_CONTAINER (grps->table2->parent), grps->table2);
278 if ( grps->table1->parent)
279 gtk_container_remove (GTK_CONTAINER (grps->table1->parent), grps->table1);
282 if ( var_is_numeric (v))
284 gtk_table_attach_defaults (GTK_TABLE (grps->table1), grps->table2,
287 gtk_container_add (GTK_CONTAINER (box), grps->table1);
291 gtk_container_add (GTK_CONTAINER (box), grps->table2);
292 grps->group_defn = GROUPS_VALUES;
296 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (grps->dialog),
297 define_groups_state_valid, grps);
299 if ( grps->group_defn != GROUPS_CUT_POINT )
301 gtk_toggle_button_set_active
302 (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
304 gtk_toggle_button_set_active
305 (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
307 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), grps->val[0]);
308 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), grps->val[1]);
310 gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), "");
314 gtk_toggle_button_set_active
315 (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
317 gtk_toggle_button_set_active
318 (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
320 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), "");
321 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), "");
323 gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), grps->val[0]);
326 g_signal_emit_by_name (grps->grp_entry[0], "changed");
327 g_signal_emit_by_name (grps->grp_entry[1], "changed");
328 g_signal_emit_by_name (grps->cut_point_entry, "changed");
330 response = psppire_dialog_run (PSPPIRE_DIALOG (grps->dialog));
332 if (response == PSPPIRE_RESPONSE_CONTINUE)
334 g_free (grps->val[0]);
335 g_free (grps->val[1]);
337 if (gtk_toggle_button_get_active
338 (GTK_TOGGLE_BUTTON (grps->values_toggle_button)))
340 grps->group_defn = GROUPS_VALUES;
343 xstrdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[0])));
346 xstrdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[1])));
350 grps->group_defn = GROUPS_CUT_POINT;
355 xstrdup (gtk_entry_get_text (GTK_ENTRY (grps->cut_point_entry)));
358 psppire_dialog_notify_change (PSPPIRE_DIALOG (ttd->dialog));
365 dialog_state_valid (gpointer data)
367 struct tt_indep_samples_dialog *tt_d = data;
370 get_widget_assert (tt_d->xml, "indep-samples-t-test-treeview2");
372 GtkTreeModel *vars = gtk_tree_view_get_model (GTK_TREE_VIEW (tv_vars));
376 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (tt_d->groups_entry))))
379 if ( 0 == gtk_tree_model_get_iter_first (vars, ¬used))
382 if ( tt_d->grps->group_defn == GROUPS_UNDEF)
388 /* Pops up the dialog box */
390 t_test_independent_samples_dialog (PsppireDataWindow *de)
392 struct tt_indep_samples_dialog tt_d;
395 PsppireVarStore *vs = NULL;
397 GtkBuilder *xml = builder_new ("t-test.ui");
399 GtkWidget *dict_view =
400 get_widget_assert (xml, "indep-samples-t-test-treeview1");
402 GtkWidget *selector2 =
403 get_widget_assert (xml, "indep-samples-t-test-selector2");
405 GtkWidget *selector1 =
406 get_widget_assert (xml, "indep-samples-t-test-selector1");
408 GtkWidget *options_button =
409 get_widget_assert (xml, "indep-samples-t-test-options-button");
411 g_object_get (de->data_editor, "var-store", &vs, NULL);
413 tt_d.dialog = get_widget_assert (xml, "t-test-independent-samples-dialog");
415 g_object_get (vs, "dictionary", &tt_d.dict, NULL);
417 tt_d.define_groups_button = get_widget_assert (xml, "define-groups-button");
418 tt_d.groups_entry = get_widget_assert (xml, "indep-samples-t-test-entry");
419 tt_d.opts = tt_options_dialog_create (xml, GTK_WINDOW (de));
420 tt_d.grps = tt_groups_dialog_create (xml, GTK_WINDOW (de));
423 gtk_window_set_transient_for (GTK_WINDOW (tt_d.dialog), GTK_WINDOW (de));
425 g_object_set (dict_view, "model", tt_d.dict, NULL);
427 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector1),
431 psppire_selector_set_filter_func (PSPPIRE_SELECTOR (selector2),
432 is_currently_in_entry);
434 g_signal_connect_swapped (tt_d.define_groups_button, "clicked",
435 G_CALLBACK (run_define_groups), &tt_d);
438 g_signal_connect_swapped (options_button, "clicked",
439 G_CALLBACK (tt_options_dialog_run), tt_d.opts);
442 g_signal_connect_swapped (tt_d.dialog, "refresh", G_CALLBACK (refresh),
445 g_signal_connect (tt_d.groups_entry, "changed",
446 G_CALLBACK (set_define_groups_sensitivity), &tt_d);
449 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (tt_d.dialog),
450 dialog_state_valid, &tt_d);
452 response = psppire_dialog_run (PSPPIRE_DIALOG (tt_d.dialog));
456 case GTK_RESPONSE_OK:
457 g_free (execute_syntax_string (de, generate_syntax (&tt_d)));
459 case PSPPIRE_RESPONSE_PASTE:
460 g_free (paste_syntax_to_window (generate_syntax (&tt_d)));
466 tt_options_dialog_destroy (tt_d.opts);
467 tt_groups_dialog_destroy (tt_d.grps);
469 g_object_unref (xml);