/**
* random_cor_tool_ok_clicked_cb:
* @button:
* @state:
*
* Retrieve the information from the dialog and call the appropriate tool.
* Note that we assume that the ok_button is only active if the entry fields
* contain sensible data.
**/
static void
random_cor_tool_ok_clicked_cb (GtkWidget *button, RandomCorToolState *state)
{
data_analysis_output_t *dao;
tools_data_random_cor_t *data;
gint err;
data = g_new0 (tools_data_random_cor_t, 1);
dao = parse_output ((GnmGenericToolState *)state, NULL);
err = entry_to_int (GTK_ENTRY (state->count_entry), &data->count, FALSE);
data->matrix = gnm_expr_entry_parse_as_value
(GNM_EXPR_ENTRY (state->base.input_entry),
state->base.sheet);
data->variables = data->matrix->v_range.cell.b.row -
data->matrix->v_range.cell.a.row + 1;
data->matrix_type = gnm_gui_group_value
(state->base.gui, matrix_group);
if (!cmd_analysis_tool (GNM_WBC (state->base.wbcg),
state->base.sheet,
dao, data, tool_random_cor_engine, TRUE) &&
(button == state->base.ok_button))
gtk_widget_destroy (state->base.dialog);
}
/**
* kaplan_meier_tool_ok_clicked_cb:
* @button:
* @state:
*
* Retrieve the information from the dialog and call the kaplan_meier_tool.
* Note that we assume that the ok_button is only active if the entry fields
* contain sensible data.
**/
static void
kaplan_meier_tool_ok_clicked_cb (G_GNUC_UNUSED GtkWidget *button,
KaplanMeierToolState *state)
{
data_analysis_output_t *dao;
analysis_tools_data_kaplan_meier_t *data;
data = g_new0 (analysis_tools_data_kaplan_meier_t, 1);
dao = parse_output ((GenericToolState *)state, NULL);
data->base.wbc = WORKBOOK_CONTROL (state->base.wbcg);
if (state->base.warning_dialog != NULL)
gtk_widget_destroy (state->base.warning_dialog);
data->base.range_1 = gnm_expr_entry_parse_as_value
(GNM_EXPR_ENTRY (state->base.input_entry), state->base.sheet);
data->censored = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (state->censorship_button));
if (data->censored)
data->base.range_2 = gnm_expr_entry_parse_as_value
(GNM_EXPR_ENTRY (state->base.input_entry_2), state->base.sheet);
else
data->base.range_2 = NULL;
data->censor_mark = gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (state->censor_spin_from));
data->censor_mark_to = gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (state->censor_spin_to));
data->group_list = kaplan_meier_tool_get_groups (state);
if (data->group_list == NULL) {
data->range_3 = NULL;
data->logrank_test = FALSE;
} else {
data->range_3 = gnm_expr_entry_parse_as_value
(GNM_EXPR_ENTRY (state->groups_input), state->base.sheet);
data->logrank_test = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (state->logrank_button));
}
data->median = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (glade_xml_get_widget
(state->base.gui,
"median-button")));
data->chart = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (state->graph_button));
data->ticks = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (state->tick_button));
data->std_err = gtk_toggle_button_get_active (
GTK_TOGGLE_BUTTON (state->std_error_button));
if (!cmd_analysis_tool (WORKBOOK_CONTROL (state->base.wbcg), state->base.sheet,
dao, data, analysis_tool_kaplan_meier_engine))
gtk_widget_destroy (state->base.dialog);
return;
}
static void
cb_fill_series_ok_clicked (G_GNUC_UNUSED GtkWidget *button,
FillSeriesState *state)
{
GtkWidget *radio;
fill_series_t *fs;
data_analysis_output_t *dao;
fs = g_new0 (fill_series_t, 1);
dao = parse_output ((GenericToolState *)state, NULL);
/* Read the `Series in' radio buttons. */
radio = go_gtk_builder_get_widget (state->base.gui, "series_in_rows");
fs->series_in_rows = ! gnm_gtk_radio_group_get_selected
(gtk_radio_button_get_group (GTK_RADIO_BUTTON (radio)));
/* Read the `Type' radio buttons. */
radio = go_gtk_builder_get_widget (state->base.gui, "type_linear");
fs->type = gnm_gtk_radio_group_get_selected
(gtk_radio_button_get_group (GTK_RADIO_BUTTON (radio)));
/* Read the `Date unit' radio buttons. */
radio = go_gtk_builder_get_widget (state->base.gui, "unit_day");
fs->date_unit = gnm_gtk_radio_group_get_selected
(gtk_radio_button_get_group (GTK_RADIO_BUTTON (radio)));
fs->is_step_set = ! entry_to_float (GTK_ENTRY (state->step_entry),
&fs->step_value, TRUE);
fs->is_stop_set = ! entry_to_float (GTK_ENTRY (state->stop_entry),
&fs->stop_value, TRUE);
entry_to_float (GTK_ENTRY (state->start_entry),
&fs->start_value, TRUE);
if (!cmd_analysis_tool (WORKBOOK_CONTROL (state->base.wbcg),
state->base.sheet,
dao, fs, fill_series_engine, TRUE))
gtk_widget_destroy (state->base.dialog);
}
/**
* advanced_filter_ok_clicked_cb:
* @button:
* @state:
*
* Retrieve the information from the dialog and call the advanced_filter.
* Note that we assume that the ok_button is only active if the entry fields
* contain sensible data.
**/
static void
advanced_filter_ok_clicked_cb (G_GNUC_UNUSED GtkWidget *button,
AdvancedFilterState *state)
{
data_analysis_output_t *dao;
GnmValue *input;
GnmValue *criteria;
char *text;
GtkWidget *w;
int err = 0;
gboolean unique;
input = gnm_expr_entry_parse_as_value (
GNM_EXPR_ENTRY (state->input_entry), state->sheet);
criteria = gnm_expr_entry_parse_as_value
(state->input_entry_2, state->sheet);
dao = parse_output ((GenericToolState *) state, NULL);
w = go_gtk_builder_get_widget (state->gui, "unique-button");
unique = (1 == gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (w)));
if (dao->type == InPlaceOutput)
err = advanced_filter (WORKBOOK_CONTROL (state->wbcg),
dao, input, criteria, unique);
else {
analysis_tools_data_advanced_filter_t *
data = g_new0 (analysis_tools_data_advanced_filter_t, 1);
data->base.wbc = WORKBOOK_CONTROL (state->wbcg);
data->base.range_1 = input;
data->base.range_2 = criteria;
data->unique_only_flag = unique;
if (cmd_analysis_tool (WORKBOOK_CONTROL (state->wbcg), state->sheet,
dao, data, analysis_tool_advanced_filter_engine, FALSE)) {
err = data->base.err;
g_free (data);
} else
err = analysis_tools_noerr;
}
if (dao->type == InPlaceOutput || err != analysis_tools_noerr) {
value_release (input);
value_release (criteria);
g_free (dao);
}
switch (err) {
case analysis_tools_noerr:
gtk_widget_destroy (state->dialog);
break;
case analysis_tools_invalid_field:
error_in_entry ((GenericToolState *) state,
GTK_WIDGET (state->input_entry_2),
_("The given criteria are invalid."));
break;
case analysis_tools_no_records_found:
go_gtk_notice_nonmodal_dialog ((GtkWindow *) state->dialog,
&(state->warning_dialog),
GTK_MESSAGE_INFO,
_("No matching records were found."));
break;
default:
text = g_strdup_printf (_("An unexpected error has occurred: "
"%d."), err);
error_in_entry ((GenericToolState *) state,
GTK_WIDGET (state->input_entry), text);
g_free (text);
break;
}
return;
}
