1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007 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 <glade/glade.h>
22 #include "t-test-independent-samples-dialog.h"
23 #include "psppire-dict.h"
24 #include "psppire-var-store.h"
26 #include <gtksheet/gtksheet.h>
27 #include "data-editor.h"
28 #include "psppire-dialog.h"
29 #include "dialog-common.h"
30 #include "dict-display.h"
31 #include "widget-io.h"
32 #include "t-test-options.h"
33 #include <libpspp/syntax-gen.h>
35 #include <language/syntax-string-source.h>
36 #include "syntax-editor.h"
38 #include <gl/xalloc.h>
41 #define _(msgid) gettext (msgid)
42 #define N_(msgid) msgid
52 struct tt_groups_dialog
60 GtkWidget *values_toggle_button;
61 GtkWidget *cut_point_toggle_button;
63 GtkWidget *grp_entry[2];
64 GtkWidget *cut_point_entry;
66 enum group_definition group_defn;
71 set_group_criterion_type (GtkToggleButton *button,
72 struct tt_groups_dialog *groups)
74 gboolean by_values = gtk_toggle_button_get_active (button);
76 gtk_widget_set_sensitive (groups->label, by_values);
77 gtk_widget_set_sensitive (groups->table2, by_values);
79 gtk_widget_set_sensitive (groups->hbox1, !by_values);
83 tt_groups_dialog_destroy (struct tt_groups_dialog *grps)
85 g_object_unref (grps->table1);
86 g_object_unref (grps->table2);
88 g_free (grps->val[0]);
89 g_free (grps->val[1]);
94 static struct tt_groups_dialog *
95 tt_groups_dialog_create (GladeXML *xml, GtkWindow *parent)
97 struct tt_groups_dialog *grps = xmalloc (sizeof (*grps));
99 grps->group_defn = GROUPS_UNDEF;
101 grps->dialog = get_widget_assert (xml, "define-groups-dialog");
102 grps->table1 = get_widget_assert (xml, "table1");
103 grps->table2 = get_widget_assert (xml, "table2");
104 grps->label = get_widget_assert (xml, "label4");
105 grps->hbox1 = get_widget_assert (xml, "hbox1");
107 grps->grp_entry[0] = get_widget_assert (xml, "group1-entry");
108 grps->grp_entry[1] = get_widget_assert (xml, "group2-entry");
109 grps->cut_point_entry = get_widget_assert (xml, "cut-point-entry");
111 grps->cut_point_toggle_button = get_widget_assert (xml, "radiobutton4");
112 grps->values_toggle_button = get_widget_assert (xml, "radiobutton3");
114 g_object_ref (grps->table1);
115 g_object_ref (grps->table2);
117 g_signal_connect (grps->values_toggle_button, "toggled",
118 G_CALLBACK (set_group_criterion_type), grps);
120 gtk_window_set_transient_for (GTK_WINDOW (grps->dialog), parent);
122 grps->val[0] = strdup ("");
123 grps->val[1] = strdup ("");
129 struct tt_indep_samples_dialog
131 GladeXML *xml; /* The xml that generated the widgets */
134 GtkWidget *define_groups_button;
135 GtkWidget *groups_entry;
137 struct tt_groups_dialog *grps;
138 struct tt_options_dialog *opts;
143 set_define_groups_sensitivity (GtkEntry *entry,
144 struct tt_indep_samples_dialog *tt_d)
146 const gchar *text = gtk_entry_get_text (entry);
148 const struct variable *v = psppire_dict_lookup_var (tt_d->dict, text);
150 gtk_widget_set_sensitive (tt_d->define_groups_button, v != NULL);
155 generate_syntax (const struct tt_indep_samples_dialog *d)
157 struct variable *group_variable;
161 get_widget_assert (d->xml, "indep-samples-t-test-treeview2");
163 GString *str = g_string_new ("T-TEST /VARIABLES=");
165 append_variable_names (str, d->dict, GTK_TREE_VIEW (tv), 0);
167 g_string_append (str, "\n\t/GROUPS=");
170 psppire_dict_lookup_var (d->dict,
171 gtk_entry_get_text (GTK_ENTRY (d->groups_entry)));
173 g_string_append (str, var_get_name (group_variable));
175 if (d->grps->group_defn != GROUPS_UNDEF)
177 g_string_append (str, "(");
179 if ( var_is_alpha (group_variable))
182 ds_init_cstr (&s, d->grps->val[0]);
183 gen_quoted_string (&s);
184 g_string_append (str, ds_cstr (&s));
189 g_string_append (str, d->grps->val[0]);
192 if ( d->grps->group_defn == GROUPS_VALUES )
194 g_string_append (str, ",");
196 if ( var_is_alpha (group_variable))
199 ds_init_cstr (&s, d->grps->val[1]);
200 gen_quoted_string (&s);
201 g_string_append (str, ds_cstr (&s));
206 g_string_append (str, d->grps->val[1]);
210 g_string_append (str, ")");
213 tt_options_dialog_append_syntax (d->opts, str);
215 g_string_append (str, ".\n");
219 g_string_free (str, FALSE);
225 refresh (struct tt_indep_samples_dialog *ttd)
228 get_widget_assert (ttd->xml, "indep-samples-t-test-treeview2");
230 GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (tv));
232 gtk_entry_set_text (GTK_ENTRY (ttd->groups_entry), "");
234 gtk_list_store_clear (GTK_LIST_STORE (model));
236 gtk_widget_set_sensitive (ttd->define_groups_button, FALSE);
240 /* Returns TRUE iff the define groups subdialog has a
241 state which defines a valid group criterion */
243 define_groups_state_valid (gpointer data)
245 struct tt_groups_dialog *d = data;
247 if ( gtk_toggle_button_get_active
248 (GTK_TOGGLE_BUTTON (d->values_toggle_button)))
250 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[0]))))
253 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[1]))))
258 if ( 0 == strcmp ("",
259 gtk_entry_get_text (GTK_ENTRY (d->cut_point_entry))))
267 run_define_groups (struct tt_indep_samples_dialog *ttd)
269 struct tt_groups_dialog *grps = ttd->grps;
273 GtkWidget *box = get_widget_assert (ttd->xml, "dialog-hbox2");
275 const gchar *text = gtk_entry_get_text (GTK_ENTRY (ttd->groups_entry));
277 const struct variable *v = psppire_dict_lookup_var (ttd->dict, text);
279 if ( grps->table2->parent)
280 gtk_container_remove (GTK_CONTAINER (grps->table2->parent), grps->table2);
282 if ( grps->table1->parent)
283 gtk_container_remove (GTK_CONTAINER (grps->table1->parent), grps->table1);
286 if ( var_is_numeric (v))
288 gtk_table_attach_defaults (GTK_TABLE (grps->table1), grps->table2,
291 gtk_container_add (GTK_CONTAINER (box), grps->table1);
295 gtk_container_add (GTK_CONTAINER (box), grps->table2);
296 grps->group_defn = GROUPS_VALUES;
300 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (grps->dialog),
301 define_groups_state_valid, grps);
303 if ( grps->group_defn != GROUPS_CUT_POINT )
305 gtk_toggle_button_set_active
306 (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
308 gtk_toggle_button_set_active
309 (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
311 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), grps->val[0]);
312 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), grps->val[1]);
314 gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), "");
318 gtk_toggle_button_set_active
319 (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
321 gtk_toggle_button_set_active
322 (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
324 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), "");
325 gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), "");
327 gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), grps->val[0]);
330 g_signal_emit_by_name (grps->grp_entry[0], "changed");
331 g_signal_emit_by_name (grps->grp_entry[1], "changed");
332 g_signal_emit_by_name (grps->cut_point_entry, "changed");
334 response = psppire_dialog_run (PSPPIRE_DIALOG (grps->dialog));
336 if (response == PSPPIRE_RESPONSE_CONTINUE)
338 g_free (grps->val[0]);
339 g_free (grps->val[1]);
341 if (gtk_toggle_button_get_active
342 (GTK_TOGGLE_BUTTON (grps->values_toggle_button)))
344 grps->group_defn = GROUPS_VALUES;
347 strdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[0])));
350 strdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[1])));
354 grps->group_defn = GROUPS_CUT_POINT;
359 strdup (gtk_entry_get_text (GTK_ENTRY (grps->cut_point_entry)));
362 psppire_dialog_notify_change (PSPPIRE_DIALOG (ttd->dialog));
369 dialog_state_valid (gpointer data)
371 struct tt_indep_samples_dialog *tt_d = data;
374 get_widget_assert (tt_d->xml, "indep-samples-t-test-treeview2");
376 GtkTreeModel *vars = gtk_tree_view_get_model (GTK_TREE_VIEW (tv_vars));
380 if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (tt_d->groups_entry))))
383 if ( 0 == gtk_tree_model_get_iter_first (vars, ¬used))
386 if ( tt_d->grps->group_defn == GROUPS_UNDEF)
392 /* Pops up the dialog box */
394 t_test_independent_samples_dialog (GObject *o, gpointer data)
396 struct tt_indep_samples_dialog tt_d;
398 struct data_editor *de = data;
402 GladeXML *xml = XML_NEW ("t-test.glade");
404 GtkSheet *var_sheet =
405 GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
407 GtkWidget *dict_view =
408 get_widget_assert (xml, "indep-samples-t-test-treeview1");
410 GtkWidget *test_variables_treeview =
411 get_widget_assert (xml, "indep-samples-t-test-treeview2");
413 GtkWidget *selector2 =
414 get_widget_assert (xml, "indep-samples-t-test-selector2");
416 GtkWidget *selector1 =
417 get_widget_assert (xml, "indep-samples-t-test-selector1");
419 GtkWidget *options_button =
420 get_widget_assert (xml, "indep-samples-t-test-options-button");
422 vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
424 tt_d.dialog = get_widget_assert (xml, "t-test-independent-samples-dialog");
426 tt_d.dict = vs->dict;
428 tt_d.define_groups_button = get_widget_assert (xml, "define-groups-button");
429 tt_d.groups_entry = get_widget_assert (xml, "indep-samples-t-test-entry");
430 tt_d.opts = tt_options_dialog_create (xml, de->parent.window);
431 tt_d.grps = tt_groups_dialog_create (xml, de->parent.window);
434 gtk_window_set_transient_for (GTK_WINDOW (tt_d.dialog), de->parent.window);
436 attach_dictionary_to_treeview (GTK_TREE_VIEW (dict_view),
438 GTK_SELECTION_MULTIPLE, NULL);
440 set_dest_model (GTK_TREE_VIEW (test_variables_treeview), vs->dict);
443 psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector1),
444 dict_view, test_variables_treeview,
445 insert_source_row_into_tree_view,
449 psppire_selector_set_allow (PSPPIRE_SELECTOR (selector1),
453 psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector2),
454 dict_view, tt_d.groups_entry,
455 insert_source_row_into_entry,
456 is_currently_in_entry,
459 g_signal_connect_swapped (tt_d.define_groups_button, "clicked",
460 G_CALLBACK (run_define_groups), &tt_d);
463 g_signal_connect_swapped (options_button, "clicked",
464 G_CALLBACK (tt_options_dialog_run), tt_d.opts);
467 g_signal_connect_swapped (tt_d.dialog, "refresh", G_CALLBACK (refresh),
470 g_signal_connect (tt_d.groups_entry, "changed",
471 G_CALLBACK (set_define_groups_sensitivity), &tt_d);
474 psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (tt_d.dialog),
475 dialog_state_valid, &tt_d);
477 response = psppire_dialog_run (PSPPIRE_DIALOG (tt_d.dialog));
481 case GTK_RESPONSE_OK:
483 gchar *syntax = generate_syntax (&tt_d);
484 struct getl_interface *sss = create_syntax_string_source (syntax);
485 execute_syntax (sss);
490 case PSPPIRE_RESPONSE_PASTE:
492 gchar *syntax = generate_syntax (&tt_d);
494 struct syntax_editor *se =
495 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
497 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
506 tt_options_dialog_destroy (tt_d.opts);
507 tt_groups_dialog_destroy (tt_d.grps);
509 g_object_unref (xml);