static void maybe_add_missobs_purger (GtkWidget *vbox, gretlopt *flags)
{
double missfrac = 0.0;
int active = 0;
if (*flags & DW_DROPMISS) {
active = 1;
} else {
missfrac = missing_obs_fraction(dataset);
}
if (active || (missfrac > 0 && missfrac < 0.12)) {
GtkWidget *hbox = gtk_hbox_new(FALSE, 5);
GtkWidget *chk;
chk = gretl_option_check_button(_("purge missing observations"),
flags, DW_DROPMISS);
gtk_box_pack_start(GTK_BOX(hbox), chk, FALSE, FALSE, 5);
gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 5);
if (active) {
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(chk), TRUE);
}
gtk_widget_show_all(hbox);
}
}
static GtkWidget *dialog_option_switch (GtkWidget *vbox, dialog_t *dlg,
gretlopt opt, MODEL *pmod)
{
GtkWidget *b = NULL;
if (opt == OPT_T) {
b = gretl_option_check_button(_("Iterated estimation"),
&dlg->opt, opt); /* OPT_T vs OPT_I?? */
if (pmod != NULL && (pmod->opt & OPT_I)) {
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(b), TRUE);
}
} else if (opt == OPT_V) {
b = gretl_option_check_button(_("Show details of iterations"),
&dlg->opt, opt);
} else if (opt == OPT_R) {
b = gretl_option_check_button(_("Robust standard errors"),
&dlg->opt, opt);
if (pmod != NULL && (pmod->opt & OPT_R)) {
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(b), TRUE);
}
} else if (opt == OPT_B) {
b = gretl_option_check_button(_("Use bootstrap"),
&dlg->opt, opt);
} else if (opt == OPT_F) {
b = gretl_option_check_button(_("Show full restricted estimates"),
&dlg->opt, opt);
}
if (b != NULL) {
GtkWidget *hbox = gtk_hbox_new(FALSE, 5);
gtk_box_pack_start(GTK_BOX(hbox), b, TRUE, TRUE, 5);
gtk_widget_show(b);
gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 0);
gtk_widget_show(hbox);
}
return b;
}
static void add_editing_option (GtkWidget *vbox, gretlopt *flags)
{
if (g_object_get_data(G_OBJECT(vbox), "edbutton") == NULL) {
GtkWidget *hbox, *b;
hbox = gtk_hbox_new(FALSE, 5);
b = gretl_option_check_button(_("start entering data values"),
flags, DW_SSHEET);
gtk_box_pack_start(GTK_BOX(hbox), b, FALSE, FALSE, 5);
gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 5);
g_object_set_data(G_OBJECT(vbox), "edbutton", b);
}
}
