*/
+#include <config.h>
#include <glade/glade.h>
#include <gtk/gtk.h>
#include "t-test-independent-samples-dialog.h"
#include "psppire-dict.h"
#include "psppire-var-store.h"
#include "helper.h"
-#include <gtksheet/gtksheet.h>
#include "data-editor.h"
#include "psppire-dialog.h"
#include "dialog-common.h"
#include "dict-display.h"
#include "widget-io.h"
+#include "t-test-options.h"
+#include <ui/syntax-gen.h>
#include <language/syntax-string-source.h>
#include "syntax-editor.h"
+#include <gl/xalloc.h>
+
#include <gettext.h>
#define _(msgid) gettext (msgid)
#define N_(msgid) msgid
+enum group_definition
+ {
+ GROUPS_UNDEF,
+ GROUPS_VALUES,
+ GROUPS_CUT_POINT
+ };
+
+struct tt_groups_dialog
+{
+ GtkWidget *dialog;
+ GtkWidget *label;
+ GtkWidget *table1;
+ GtkWidget *table2;
+ GtkWidget *hbox1;
+
+ GtkWidget *values_toggle_button;
+ GtkWidget *cut_point_toggle_button;
+
+ GtkWidget *grp_entry[2];
+ GtkWidget *cut_point_entry;
+
+ enum group_definition group_defn;
+ gchar *val[2];
+};
+
+static void
+set_group_criterion_type (GtkToggleButton *button,
+ struct tt_groups_dialog *groups)
+{
+ gboolean by_values = gtk_toggle_button_get_active (button);
+
+ gtk_widget_set_sensitive (groups->label, by_values);
+ gtk_widget_set_sensitive (groups->table2, by_values);
+
+ gtk_widget_set_sensitive (groups->hbox1, !by_values);
+}
+
+static void
+tt_groups_dialog_destroy (struct tt_groups_dialog *grps)
+{
+ g_object_unref (grps->table1);
+ g_object_unref (grps->table2);
+
+ g_free (grps->val[0]);
+ g_free (grps->val[1]);
+
+ g_free (grps);
+}
+
+static struct tt_groups_dialog *
+tt_groups_dialog_create (GladeXML *xml, GtkWindow *parent)
+{
+ struct tt_groups_dialog *grps = xmalloc (sizeof (*grps));
+
+ grps->group_defn = GROUPS_UNDEF;
+
+ grps->dialog = get_widget_assert (xml, "define-groups-dialog");
+ grps->table1 = get_widget_assert (xml, "table1");
+ grps->table2 = get_widget_assert (xml, "table2");
+ grps->label = get_widget_assert (xml, "label4");
+ grps->hbox1 = get_widget_assert (xml, "hbox1");
+
+ grps->grp_entry[0] = get_widget_assert (xml, "group1-entry");
+ grps->grp_entry[1] = get_widget_assert (xml, "group2-entry");
+ grps->cut_point_entry = get_widget_assert (xml, "cut-point-entry");
+
+ grps->cut_point_toggle_button = get_widget_assert (xml, "radiobutton4");
+ grps->values_toggle_button = get_widget_assert (xml, "radiobutton3");
+
+ g_object_ref (grps->table1);
+ g_object_ref (grps->table2);
+
+ g_signal_connect (grps->values_toggle_button, "toggled",
+ G_CALLBACK (set_group_criterion_type), grps);
+
+ gtk_window_set_transient_for (GTK_WINDOW (grps->dialog), parent);
+
+ grps->val[0] = strdup ("");
+ grps->val[1] = strdup ("");
+
+ return grps;
+}
+
+
struct tt_indep_samples_dialog
{
GladeXML *xml; /* The xml that generated the widgets */
GtkWidget *dialog;
PsppireDict *dict;
- gboolean groups_defined;
- gboolean non_default_options;
- gdouble confidence_interval;
+ GtkWidget *define_groups_button;
+ GtkWidget *groups_entry;
+
+ struct tt_groups_dialog *grps;
+ struct tt_options_dialog *opts;
};
+static void
+set_define_groups_sensitivity (GtkEntry *entry,
+ struct tt_indep_samples_dialog *tt_d)
+{
+ const gchar *text = gtk_entry_get_text (entry);
+
+ const struct variable *v = psppire_dict_lookup_var (tt_d->dict, text);
+
+ gtk_widget_set_sensitive (tt_d->define_groups_button, v != NULL);
+}
+
+
static gchar *
generate_syntax (const struct tt_indep_samples_dialog *d)
{
+ struct variable *group_variable;
gchar *text;
- GtkWidget *entry =
- get_widget_assert (d->xml, "indep-samples-t-test-entry");
GtkWidget *tv =
get_widget_assert (d->xml, "indep-samples-t-test-treeview2");
GString *str = g_string_new ("T-TEST /VARIABLES=");
- append_variable_names (str, d->dict, GTK_TREE_VIEW (tv));
+ append_variable_names (str, d->dict, GTK_TREE_VIEW (tv), 0);
g_string_append (str, "\n\t/GROUPS=");
- g_string_append (str, gtk_entry_get_text (GTK_ENTRY (entry)));
+ group_variable =
+ psppire_dict_lookup_var (d->dict,
+ gtk_entry_get_text (GTK_ENTRY (d->groups_entry)));
- if ( d->groups_defined )
- {
- GtkWidget *entry1 = get_widget_assert (d->xml, "group1-entry");
- GtkWidget *entry2 = get_widget_assert (d->xml, "group2-entry");
-
- g_string_append (str, "(");
- g_string_append (str, gtk_entry_get_text (GTK_ENTRY (entry1)));
- g_string_append (str, ",");
- g_string_append (str, gtk_entry_get_text (GTK_ENTRY (entry2)));
- g_string_append (str, ")");
- }
+ g_string_append (str, var_get_name (group_variable));
- if ( d->non_default_options )
+ if (d->grps->group_defn != GROUPS_UNDEF)
{
- GtkToggleButton *analysis =
- GTK_TOGGLE_BUTTON (get_widget_assert (d->xml, "radiobutton1"));
-
- g_string_append (str, "\n\t");
- g_string_append_printf (str, "/CRITERIA=CIN(%g)",
- d->confidence_interval/100.0);
+ g_string_append (str, "(");
+ if ( var_is_alpha (group_variable))
+ {
+ struct string s = DS_EMPTY_INITIALIZER;
+ syntax_gen_string (&s, ss_cstr (d->grps->val[0]));
+ g_string_append (str, ds_cstr (&s));
+ ds_destroy (&s);
+ }
+ else
+ {
+ g_string_append (str, d->grps->val[0]);
+ }
+
+ if ( d->grps->group_defn == GROUPS_VALUES )
+ {
+ g_string_append (str, ",");
+
+ if ( var_is_alpha (group_variable))
+ {
+ struct string s = DS_EMPTY_INITIALIZER;
+ syntax_gen_string (&s, ss_cstr (d->grps->val[1]));
+ g_string_append (str, ds_cstr (&s));
+ ds_destroy (&s);
+ }
+ else
+ {
+ g_string_append (str, d->grps->val[1]);
+ }
+ }
- g_string_append (str, "\n\t");
- g_string_append_printf (str, "/MISSING=%s",
- gtk_toggle_button_get_active (analysis) ?
- "ANALYSIS" : "LISTWISE");
+ g_string_append (str, ")");
}
+ tt_options_dialog_append_syntax (d->opts, str);
+
g_string_append (str, ".\n");
text = str->str;
return text;
}
-
-
static void
-refresh (GladeXML *xml)
+refresh (struct tt_indep_samples_dialog *ttd)
{
- GtkWidget *entry =
- get_widget_assert (xml, "indep-samples-t-test-entry");
-
GtkWidget *tv =
- get_widget_assert (xml, "indep-samples-t-test-treeview2");
+ get_widget_assert (ttd->xml, "indep-samples-t-test-treeview2");
GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (tv));
- gtk_entry_set_text (GTK_ENTRY (entry), "");
+ gtk_entry_set_text (GTK_ENTRY (ttd->groups_entry), "");
gtk_list_store_clear (GTK_LIST_STORE (model));
+
+ gtk_widget_set_sensitive (ttd->define_groups_button, FALSE);
}
+/* Returns TRUE iff the define groups subdialog has a
+ state which defines a valid group criterion */
static gboolean
define_groups_state_valid (gpointer data)
{
- struct tt_indep_samples_dialog *d = data;
-
- GtkWidget *entry1 = get_widget_assert (d->xml, "group1-entry");
- GtkWidget *entry2 = get_widget_assert (d->xml, "group2-entry");
+ struct tt_groups_dialog *d = data;
- if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (entry1))))
- return FALSE;
+ if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (d->values_toggle_button)))
+ {
+ if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[0]))))
+ return FALSE;
- if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (entry2))))
- return FALSE;
+ if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (d->grp_entry[1]))))
+ return FALSE;
+ }
+ else
+ {
+ if ( 0 == strcmp ("",
+ gtk_entry_get_text (GTK_ENTRY (d->cut_point_entry))))
+ return FALSE;
+ }
return TRUE;
}
static void
run_define_groups (struct tt_indep_samples_dialog *ttd)
{
+ struct tt_groups_dialog *grps = ttd->grps;
+
gint response;
- GtkWidget *dialog =
- get_widget_assert (ttd->xml, "define-groups-dialog");
+ GtkWidget *box = get_widget_assert (ttd->xml, "dialog-hbox2");
- psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
- define_groups_state_valid, ttd);
+ const gchar *text = gtk_entry_get_text (GTK_ENTRY (ttd->groups_entry));
- gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (ttd->dialog));
+ const struct variable *v = psppire_dict_lookup_var (ttd->dict, text);
- response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+ if ( grps->table2->parent)
+ gtk_container_remove (GTK_CONTAINER (grps->table2->parent), grps->table2);
- ttd->groups_defined = (response == PSPPIRE_RESPONSE_CONTINUE);
-}
+ if ( grps->table1->parent)
+ gtk_container_remove (GTK_CONTAINER (grps->table1->parent), grps->table1);
-static void
-run_options (struct tt_indep_samples_dialog *ttd)
-{
- gint response;
- GtkWidget *dialog =
- get_widget_assert (ttd->xml, "options-dialog");
+ if ( var_is_numeric (v))
+ {
+ gtk_table_attach_defaults (GTK_TABLE (grps->table1), grps->table2,
+ 1, 2, 1, 2);
+
+ gtk_container_add (GTK_CONTAINER (box), grps->table1);
+ }
+ else
+ {
+ gtk_container_add (GTK_CONTAINER (box), grps->table2);
+ grps->group_defn = GROUPS_VALUES;
+ }
- GtkWidget *box =
- get_widget_assert (ttd->xml, "vbox1");
- GtkSpinButton *conf_percent = NULL;
+ psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (grps->dialog),
+ define_groups_state_valid, grps);
- GtkWidget *confidence =
- widget_scanf (_("Confidence Interval: %2d %%"),
- &conf_percent);
+ if ( grps->group_defn != GROUPS_CUT_POINT )
+ {
+ gtk_toggle_button_set_active
+ (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
- gtk_spin_button_set_value (conf_percent, ttd->confidence_interval);
+ gtk_toggle_button_set_active
+ (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
- gtk_widget_show (confidence);
+ gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), grps->val[0]);
+ gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), grps->val[1]);
- gtk_box_pack_start_defaults (GTK_BOX (box), confidence);
+ gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), "");
+ }
+ else
+ {
+ gtk_toggle_button_set_active
+ (GTK_TOGGLE_BUTTON (grps->values_toggle_button), TRUE);
- gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (ttd->dialog));
+ gtk_toggle_button_set_active
+ (GTK_TOGGLE_BUTTON (grps->cut_point_toggle_button), TRUE);
- response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+ gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[0]), "");
+ gtk_entry_set_text (GTK_ENTRY (grps->grp_entry[1]), "");
- if ( response == PSPPIRE_RESPONSE_CONTINUE)
- {
- ttd->non_default_options = TRUE;
- ttd->confidence_interval = gtk_spin_button_get_value (conf_percent);
+ gtk_entry_set_text (GTK_ENTRY (grps->cut_point_entry), grps->val[0]);
}
- gtk_container_remove (GTK_CONTAINER (box), confidence);
-}
+ g_signal_emit_by_name (grps->grp_entry[0], "changed");
+ g_signal_emit_by_name (grps->grp_entry[1], "changed");
+ g_signal_emit_by_name (grps->cut_point_entry, "changed");
+
+ response = psppire_dialog_run (PSPPIRE_DIALOG (grps->dialog));
+
+ if (response == PSPPIRE_RESPONSE_CONTINUE)
+ {
+ g_free (grps->val[0]);
+ g_free (grps->val[1]);
+ if (gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (grps->values_toggle_button)))
+ {
+ grps->group_defn = GROUPS_VALUES;
+
+ grps->val[0] =
+ strdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[0])));
+
+ grps->val[1] =
+ strdup (gtk_entry_get_text (GTK_ENTRY (grps->grp_entry[1])));
+ }
+ else
+ {
+ grps->group_defn = GROUPS_CUT_POINT;
+
+ grps->val[1] = NULL;
+
+ grps->val[0] =
+ strdup (gtk_entry_get_text (GTK_ENTRY (grps->cut_point_entry)));
+ }
+
+ psppire_dialog_notify_change (PSPPIRE_DIALOG (ttd->dialog));
+ }
+}
{
struct tt_indep_samples_dialog *tt_d = data;
- GtkWidget *entry =
- get_widget_assert (tt_d->xml, "indep-samples-t-test-entry");
-
GtkWidget *tv_vars =
get_widget_assert (tt_d->xml, "indep-samples-t-test-treeview2");
GtkTreeIter notused;
- if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (entry))))
+ if ( 0 == strcmp ("", gtk_entry_get_text (GTK_ENTRY (tt_d->groups_entry))))
return FALSE;
-
if ( 0 == gtk_tree_model_get_iter_first (vars, ¬used))
return FALSE;
+ if ( tt_d->grps->group_defn == GROUPS_UNDEF)
+ return FALSE;
+
return TRUE;
}
-
/* Pops up the dialog box */
void
t_test_independent_samples_dialog (GObject *o, gpointer data)
gint response;
struct data_editor *de = data;
- PsppireVarStore *vs;
+ PsppireVarStore *vs = NULL;
GladeXML *xml = XML_NEW ("t-test.glade");
- GtkSheet *var_sheet =
- GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
-
GtkWidget *dict_view =
get_widget_assert (xml, "indep-samples-t-test-treeview1");
GtkWidget *selector1 =
get_widget_assert (xml, "indep-samples-t-test-selector1");
-
- GtkWidget *entry =
- get_widget_assert (xml, "indep-samples-t-test-entry");
-
- GtkWidget *define_groups_button =
- get_widget_assert (xml, "define-groups-button");
-
GtkWidget *options_button =
- get_widget_assert (xml, "options-button");
+ get_widget_assert (xml, "indep-samples-t-test-options-button");
- vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet));
+ g_object_get (de->data_editor, "var-store", &vs, NULL);
tt_d.dialog = get_widget_assert (xml, "t-test-independent-samples-dialog");
tt_d.xml = xml;
tt_d.dict = vs->dict;
- tt_d.groups_defined = FALSE;
- tt_d.non_default_options = FALSE;
- tt_d.confidence_interval = 95.0;
+
+ tt_d.define_groups_button = get_widget_assert (xml, "define-groups-button");
+ tt_d.groups_entry = get_widget_assert (xml, "indep-samples-t-test-entry");
+ tt_d.opts = tt_options_dialog_create (xml, de->parent.window);
+ tt_d.grps = tt_groups_dialog_create (xml, de->parent.window);
+
gtk_window_set_transient_for (GTK_WINDOW (tt_d.dialog), de->parent.window);
psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector1),
dict_view, test_variables_treeview,
insert_source_row_into_tree_view,
+ NULL,
NULL);
+ psppire_selector_set_allow (PSPPIRE_SELECTOR (selector1),
+ numeric_only);
+
psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector2),
- dict_view, entry,
+ dict_view, tt_d.groups_entry,
insert_source_row_into_entry,
- is_currently_in_entry);
+ is_currently_in_entry,
+ NULL);
- g_signal_connect_swapped (define_groups_button, "clicked",
+ g_signal_connect_swapped (tt_d.define_groups_button, "clicked",
G_CALLBACK (run_define_groups), &tt_d);
g_signal_connect_swapped (options_button, "clicked",
- G_CALLBACK (run_options), &tt_d);
+ G_CALLBACK (tt_options_dialog_run), tt_d.opts);
+
+ g_signal_connect_swapped (tt_d.dialog, "refresh", G_CALLBACK (refresh),
+ &tt_d);
- g_signal_connect_swapped (tt_d.dialog, "refresh", G_CALLBACK (refresh), xml);
+ g_signal_connect (tt_d.groups_entry, "changed",
+ G_CALLBACK (set_define_groups_sensitivity), &tt_d);
psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (tt_d.dialog),
break;
}
+ tt_options_dialog_destroy (tt_d.opts);
+ tt_groups_dialog_destroy (tt_d.grps);
g_object_unref (xml);
}