X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Foneway-anova-dialog.c;h=f3916eec3d1a77d8a40974e812b6cf5e0fcbbfde;hb=5394b684a10f6c5ea6c9e97cb7fb4c226e6938cc;hp=57428667a2480a63b5a2956ab7e1a927169594d8;hpb=fd0c595927a23ea0373551a1eed4570388ea0fc5;p=pspp diff --git a/src/ui/gui/oneway-anova-dialog.c b/src/ui/gui/oneway-anova-dialog.c index 57428667a2..f3916eec3d 100644 --- a/src/ui/gui/oneway-anova-dialog.c +++ b/src/ui/gui/oneway-anova-dialog.c @@ -1,5 +1,5 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2007 Free Software Foundation + Copyright (C) 2007, 2010, 2011, 2012 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 @@ -21,7 +21,7 @@ #include "psppire-dict.h" #include "psppire-var-store.h" #include "psppire-var-view.h" -#include "helper.h" +#include "builder-wrapper.h" #include "psppire-data-window.h" #include "psppire-dialog.h" #include "dialog-common.h" @@ -29,9 +29,8 @@ #include "psppire-selector.h" #include "dict-display.h" -#include #include "executor.h" - +#include "helper.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -123,10 +122,9 @@ refresh (struct oneway_anova_dialog *ow) /* Pops up the dialog box */ void -oneway_anova_dialog (GObject *o, gpointer data) +oneway_anova_dialog (PsppireDataWindow *de) { gint response; - PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data); PsppireVarStore *vs = NULL; @@ -212,22 +210,10 @@ oneway_anova_dialog (GObject *o, gpointer data) switch (response) { case GTK_RESPONSE_OK: - { - gchar *syntax = generate_syntax (&ow); - - struct getl_interface *sss = create_syntax_string_source (syntax); - execute_syntax (sss); - - g_free (syntax); - } + g_free (execute_syntax_string (de, generate_syntax (&ow))); break; case PSPPIRE_RESPONSE_PASTE: - { - gchar *syntax = generate_syntax (&ow); - paste_syntax_in_new_window (syntax); - - g_free (syntax); - } + g_free (paste_syntax_to_window (generate_syntax (&ow))); break; default: break; @@ -245,22 +231,23 @@ static gchar * generate_syntax (const struct oneway_anova_dialog *ow) gint i; gboolean descriptives = gtk_toggle_button_get_active (ow->descriptives); gboolean homogeneity = gtk_toggle_button_get_active (ow->homogeneity); + struct string dss; - GString *str = g_string_new ("ONEWAY /VARIABLES="); + ds_init_cstr (&dss, "ONEWAY /VARIABLES="); - psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ow->vars_treeview), 0, str); + psppire_var_view_append_names_str (PSPPIRE_VAR_VIEW (ow->vars_treeview), 0, &dss); - g_string_append (str, " BY "); + ds_put_cstr (&dss, " BY "); - g_string_append (str, gtk_entry_get_text (GTK_ENTRY (ow->factor_entry))); + ds_put_cstr (&dss, gtk_entry_get_text (GTK_ENTRY (ow->factor_entry))); if (descriptives || homogeneity ) { - g_string_append (str, "\n\t/STATISTICS="); + ds_put_cstr (&dss, "\n\t/STATISTICS="); if (descriptives) - g_string_append (str, "DESCRIPTIVES "); + ds_put_cstr (&dss, "DESCRIPTIVES "); if (homogeneity) - g_string_append (str, "HOMOGENEITY "); + ds_put_cstr (&dss, "HOMOGENEITY "); } for (i = 0 ; i < ow->contrasts_array->len ; ++i ) @@ -269,7 +256,7 @@ static gchar * generate_syntax (const struct oneway_anova_dialog *ow) GtkTreeIter iter; gboolean ok; - g_string_append (str, "\n\t/CONTRAST="); + ds_put_cstr (&dss, "\n\t/CONTRAST="); for (ok = gtk_tree_model_get_iter_first (GTK_TREE_MODEL(ls), &iter); @@ -280,14 +267,14 @@ static gchar * generate_syntax (const struct oneway_anova_dialog *ow) gtk_tree_model_get (GTK_TREE_MODEL (ls), &iter, 0, &v, -1); - g_string_append_printf (str, " %g", v); + ds_put_c_format (&dss, " %g", v); } } - g_string_append (str, ".\n"); + ds_put_cstr (&dss, ".\n"); - text = str->str; - g_string_free (str, FALSE); + text = ds_steal_cstr (&dss); + ds_destroy (&dss); return text; }