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/>.
22 #include "psppire-dialog.h"
23 #include <gl/xalloc.h>
25 #include "t-test-options.h"
27 #include "widget-io.h"
28 #include "psppire-scanf.h"
31 #define _(msgid) gettext (msgid)
32 #define N_(msgid) msgid
41 struct tt_options_dialog
45 GtkWidget *confidence;
46 GtkSpinButton *conf_percent;
47 GtkToggleButton *analysis;
48 GtkToggleButton *listwise;
50 gdouble confidence_interval;
51 gboolean non_default_options;
52 enum exclude_mode excl;
56 struct tt_options_dialog *
57 tt_options_dialog_create (GtkWindow *parent)
59 struct tt_options_dialog *tto = xmalloc (sizeof (*tto));
61 tto->xml = builder_new ("t-test.ui");
64 psppire_scanf_new (_("Confidence Interval: %2d %%"), &tto->conf_percent);
66 tto->dialog = get_widget_assert (tto->xml, "options-dialog");
68 tto->box = get_widget_assert (tto->xml, "vbox1");
70 tto->analysis = GTK_TOGGLE_BUTTON (get_widget_assert (tto->xml, "radiobutton1"));
71 tto->listwise = GTK_TOGGLE_BUTTON (get_widget_assert (tto->xml, "radiobutton2"));
73 gtk_widget_show (tto->confidence);
75 psppire_box_pack_start_defaults (GTK_BOX (tto->box), tto->confidence);
77 gtk_window_set_transient_for (GTK_WINDOW (tto->dialog), parent);
79 tto->confidence_interval = 95;
80 tto->excl = EXCL_ANALYSIS;
87 tt_options_dialog_destroy (struct tt_options_dialog *tto)
89 gtk_container_remove (GTK_CONTAINER (tto->box), tto->confidence);
90 g_object_unref (tto->xml);
96 tt_options_dialog_run (struct tt_options_dialog *tto)
100 if ( tto->excl == EXCL_ANALYSIS)
101 gtk_toggle_button_set_active (tto->analysis, TRUE);
103 gtk_toggle_button_set_active (tto->listwise, TRUE);
105 gtk_spin_button_set_value (tto->conf_percent, tto->confidence_interval);
107 response = psppire_dialog_run (PSPPIRE_DIALOG (tto->dialog));
109 if ( response == PSPPIRE_RESPONSE_CONTINUE)
111 tto->non_default_options = TRUE;
113 tto->confidence_interval = gtk_spin_button_get_value (tto->conf_percent);
114 if ( gtk_toggle_button_get_active (tto->analysis) )
115 tto->excl = EXCL_ANALYSIS;
117 tto->excl = EXCL_LISTWISE;
122 tt_options_dialog_append_syntax (const struct tt_options_dialog *tto, GString *str)
124 g_string_append (str, "\t/MISSING=");
126 if ( tto->excl == EXCL_ANALYSIS )
127 g_string_append (str, "ANALYSIS");
129 g_string_append (str, "LISTWISE");
132 g_string_append_printf (str, "\n\t/CRITERIA=CIN(%g)",
133 tto->confidence_interval/100.0);