static void
psppire_dialog_action_indep_samps_activate (GtkAction *a)
{
PsppireDialogActionIndepSamps *act = PSPPIRE_DIALOG_ACTION_INDEP_SAMPS (a);
PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
GtkBuilder *xml = builder_new ("indep-samples.ui");
pda->dialog = get_widget_assert (xml,"independent-samples-dialog");
pda->source = get_widget_assert (xml, "indep-samples-treeview1");
act->define_groups_button = get_widget_assert (xml, "define-groups-button");
act->options_button = get_widget_assert (xml, "indep-samples-options-button");
act->def_grps_dialog = get_widget_assert (xml, "define-groups-dialog");
act->group_var_entry = get_widget_assert (xml, "indep-samples-entry");
act->test_vars_tv = get_widget_assert (xml, "indep-samples-treeview2");
act->dg_dialog = get_widget_assert (xml, "define-groups-dialog");
act->dg_grp_entry[0] = get_widget_assert (xml, "group1-entry");
act->dg_grp_entry[1] = get_widget_assert (xml, "group2-entry");
act->dg_cut_point_entry = get_widget_assert (xml, "cut-point-entry");
act->dg_box = get_widget_assert (xml, "dialog-hbox2");
act->dg_table1 = get_widget_assert (xml, "table1");
act->dg_table2 = get_widget_assert (xml, "table2");
act->dg_label = get_widget_assert (xml, "label4");
act->dg_hbox1 = get_widget_assert (xml, "hbox1");
act->dg_values_toggle_button = get_widget_assert (xml, "radiobutton3");
act->dg_cut_point_toggle_button = get_widget_assert (xml, "radiobutton4");
act->opts = tt_options_dialog_create (GTK_WINDOW (pda->toplevel));
g_object_ref (act->dg_table1);
g_object_ref (act->dg_table2);
g_signal_connect (act->dg_values_toggle_button, "toggled",
G_CALLBACK (set_group_criterion_type), act);
g_object_unref (xml);
psppire_dialog_action_set_refresh (pda, refresh);
psppire_dialog_action_set_valid_predicate (pda,
dialog_state_valid);
g_signal_connect_swapped (act->define_groups_button, "clicked",
G_CALLBACK (run_define_groups), act);
g_signal_connect_swapped (act->options_button, "clicked",
G_CALLBACK (tt_options_dialog_run), act->opts);
g_signal_connect (act->group_var_entry, "changed",
G_CALLBACK (on_grp_var_change), act);
if (PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_indep_samps_parent_class)->activate)
PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_indep_samps_parent_class)->activate (pda);
}
/* Pops up the dialog box */
void
t_test_paired_samples_dialog (PsppireDataWindow *de)
{
gint response;
struct paired_samples_dialog *tt_d = two_sample_dialog_create (de);
struct tt_options_dialog *opts = tt_options_dialog_create (GTK_WINDOW (de));
GtkWidget *bb = gtk_hbutton_box_new ();
GtkWidget *opt = gtk_button_new_with_mnemonic (_("_Options"));
gtk_box_pack_start (GTK_BOX (bb), opt, TRUE, TRUE, 5);
gtk_widget_show_all (bb);
two_sample_dialog_add_widget (tt_d, bb);
g_signal_connect_swapped (opt, "clicked", G_CALLBACK (tt_options_dialog_run), opts);
tt_d->refresh = refresh;
tt_d->valid = valid;
tt_d->aux = opts;
gtk_window_set_title (GTK_WINDOW (tt_d->dialog), _("Paired Samples T Test"));
response = psppire_dialog_run (PSPPIRE_DIALOG (tt_d->dialog));
switch (response)
{
case GTK_RESPONSE_OK:
g_free (execute_syntax_string (de, generate_syntax (tt_d, opts)));
break;
case PSPPIRE_RESPONSE_PASTE:
g_free (paste_syntax_to_window (generate_syntax (tt_d, opts)));
break;
default:
break;
}
two_sample_dialog_destroy (tt_d);
tt_options_dialog_destroy (opts);
}
/* Pops up the dialog box */
void
t_test_independent_samples_dialog (PsppireDataWindow *de)
{
struct tt_indep_samples_dialog tt_d;
gint response;
PsppireVarStore *vs = NULL;
GtkBuilder *xml = builder_new ("t-test.ui");
GtkWidget *dict_view =
get_widget_assert (xml, "indep-samples-t-test-treeview1");
GtkWidget *selector2 =
get_widget_assert (xml, "indep-samples-t-test-selector2");
GtkWidget *selector1 =
get_widget_assert (xml, "indep-samples-t-test-selector1");
GtkWidget *options_button =
get_widget_assert (xml, "indep-samples-t-test-options-button");
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;
g_object_get (vs, "dictionary", &tt_d.dict, NULL);
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 (GTK_WINDOW (de));
tt_d.grps = tt_groups_dialog_create (xml, GTK_WINDOW (de));
gtk_window_set_transient_for (GTK_WINDOW (tt_d.dialog), GTK_WINDOW (de));
g_object_set (dict_view, "model", tt_d.dict, NULL);
psppire_selector_set_allow (PSPPIRE_SELECTOR (selector1),
numeric_only);
psppire_selector_set_filter_func (PSPPIRE_SELECTOR (selector2),
is_currently_in_entry);
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 (tt_options_dialog_run), tt_d.opts);
g_signal_connect_swapped (tt_d.dialog, "refresh", G_CALLBACK (refresh),
&tt_d);
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),
dialog_state_valid, &tt_d);
response = psppire_dialog_run (PSPPIRE_DIALOG (tt_d.dialog));
switch (response)
{
case GTK_RESPONSE_OK:
g_free (execute_syntax_string (de, generate_syntax (&tt_d)));
break;
case PSPPIRE_RESPONSE_PASTE:
g_free (paste_syntax_to_window (generate_syntax (&tt_d)));
break;
default:
break;
}
tt_options_dialog_destroy (tt_d.opts);
tt_groups_dialog_destroy (tt_d.grps);
g_object_unref (xml);
}
