/* PSPPIRE - a graphical user interface for PSPP.
- Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation
+ Copyright (C) 2009, 2010, 2011, 2012, 2014 Free Software Foundation
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
#include "psppire-dialog-action-factor.h"
+#include <float.h>
+
#include "psppire-var-view.h"
#include "dialog-common.h"
#include "psppire-selector.h"
#include "psppire-dialog.h"
#include "builder-wrapper.h"
#include "psppire-scanf.h"
+#include <libpspp/str.h>
#include "gettext.h"
#define _(msgid) gettext (msgid)
G_DEFINE_TYPE (PsppireDialogActionFactor, psppire_dialog_action_factor, PSPPIRE_TYPE_DIALOG_ACTION);
-static const char *rot_method_syntax[] =
+static const char *rot_method_syntax[] =
{
"NOROTATE",
"VARIMAX",
}
static char *
-generate_syntax (PsppireDialogAction *act)
+generate_syntax (const PsppireDialogAction *act)
{
PsppireDialogActionFactor *rd = PSPPIRE_DIALOG_ACTION_FACTOR (act);
gchar *text = NULL;
- GString *string = g_string_new ("FACTOR ");
+ struct string str;
+ ds_init_cstr (&str, "FACTOR ");
- g_string_append (string, "\n\t/VARIABLES=");
+ ds_put_cstr (&str, "\n\t/VARIABLES=");
- psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->variables), 0, string);
+ psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (rd->variables), 0, &str);
- g_string_append (string, "\n\t/CRITERIA = ");
+ ds_put_cstr (&str, "\n\t/CRITERIA = ");
if ( rd->extraction.explicit_nfactors )
- g_string_append_printf (string, "FACTORS (%d)", rd->extraction.n_factors);
+ ds_put_c_format (&str, "FACTORS (%d)", rd->extraction.n_factors);
else
- g_string_append_printf (string, "MINEIGEN (%g)", rd->extraction.mineigen);
+ ds_put_c_format (&str, "MINEIGEN (%.*g)",
+ DBL_DIG + 1, rd->extraction.mineigen);
/*
The CRITERIA = ITERATE subcommand is overloaded.
It applies to the next /ROTATION and/or EXTRACTION command whatever comes first.
*/
- g_string_append_printf (string, " ITERATE (%d)", rd->extraction.n_iterations);
+ ds_put_c_format (&str, " ITERATE (%d)", rd->extraction.n_iterations);
- g_string_append (string, "\n\t/EXTRACTION =");
+ ds_put_cstr (&str, "\n\t/EXTRACTION =");
if ( rd->extraction.paf)
- g_string_append (string, "PAF");
+ ds_put_cstr (&str, "PAF");
else
- g_string_append (string, "PC");
+ ds_put_cstr (&str, "PC");
- g_string_append (string, "\n\t/METHOD = ");
+ ds_put_cstr (&str, "\n\t/METHOD = ");
if ( rd->extraction.covariance )
- g_string_append (string, "COVARIANCE");
+ ds_put_cstr (&str, "COVARIANCE");
else
- g_string_append (string, "CORRELATION");
-
-
+ ds_put_cstr (&str, "CORRELATION");
if ( rd->extraction.scree )
{
- g_string_append (string, "\n\t/PLOT = ");
- g_string_append (string, "EIGEN");
+ ds_put_cstr (&str, "\n\t/PLOT = ");
+ ds_put_cstr (&str, "EIGEN");
}
- g_string_append (string, "\n\t/PRINT = ");
- g_string_append (string, "INITIAL ");
+ ds_put_cstr (&str, "\n\t/PRINT = ");
+ ds_put_cstr (&str, "INITIAL ");
- if ( rd->extraction.unrotated )
- g_string_append (string, "EXTRACTION ");
+ if ( rd->extraction.unrotated )
+ ds_put_cstr (&str, "EXTRACTION ");
if ( rd->rotation.rotated_solution )
- g_string_append (string, "ROTATION");
+ ds_put_cstr (&str, "ROTATION");
/* The CRITERIA = ITERATE subcommand is overloaded.
It applies to the next /ROTATION and/or EXTRACTION command whatever comes first.
*/
- g_string_append_printf (string, "\n\t/CRITERIA = ITERATE (%d)", rd->rotation.iterations );
+ ds_put_c_format (&str, "\n\t/CRITERIA = ITERATE (%d)", rd->rotation.iterations );
- g_string_append (string, "\n\t/ROTATION = ");
- g_string_append (string, rot_method_syntax[rd->rotation.method]);
+ ds_put_cstr (&str, "\n\t/ROTATION = ");
+ ds_put_cstr (&str, rot_method_syntax[rd->rotation.method]);
- g_string_append (string, ".");
- text = string->str;
+ ds_put_cstr (&str, ".");
+ text = ds_steal_cstr (&str);
- g_string_free (string, FALSE);
+ ds_destroy (&str);
return text;
}
{
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (fd->display_rotated_solution),
p->rotated_solution);
-
+
gtk_spin_button_set_value (GTK_SPIN_BUTTON (fd->rotate_iterations),
p->iterations);
gtk_combo_box_set_active (GTK_COMBO_BOX (fd->extraction_combo), 1);
else
gtk_combo_box_set_active (GTK_COMBO_BOX (fd->extraction_combo), 0);
-
+
}
static gboolean
}
}
-static void
-psppire_dialog_action_factor_activate (GtkAction *a)
+static GtkBuilder *
+psppire_dialog_action_factor_activate (PsppireDialogAction *a, GVariant *param)
{
PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
PsppireDialogActionFactor *act = PSPPIRE_DIALOG_ACTION_FACTOR (a);
GtkWidget *extraction_button ;
GtkWidget *rotation_button ;
- GtkBuilder *xml = builder_new ("factor.ui");
+ GtkBuilder *xml = builder_new ( "factor.ui");
pda->dialog = get_widget_assert (xml, "factor-dialog");
pda->source = get_widget_assert (xml, "dict-view");
G_CALLBACK (run_extractions_subdialog), act);
g_signal_connect_swapped (rotation_button, "clicked", G_CALLBACK (run_rotations_subdialog), act);
-
psppire_dialog_action_set_valid_predicate (pda, (void *) dialog_state_valid);
psppire_dialog_action_set_refresh (pda, dialog_refresh);
- PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_factor_parent_class)->activate (pda);
-
- g_object_unref (xml);
+ return xml;
}
static void
psppire_dialog_action_factor_class_init (PsppireDialogActionFactorClass *class)
{
- GTK_ACTION_CLASS (class)->activate = psppire_dialog_action_factor_activate;
+ PSPPIRE_DIALOG_ACTION_CLASS (class)->initial_activate = psppire_dialog_action_factor_activate;
PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
}