X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fregression-dialog.c;h=7bea89e185a27f0f5307f9540c16204c6e69778f;hb=aea57010adca9f26dd3abef66a3f7a5c169964ec;hp=53010c3ffdc47d342afb5adfc0e2cf025a349103;hpb=7c08a6e1009cf60847e770a77a73c650e9326379;p=pspp diff --git a/src/ui/gui/regression-dialog.c b/src/ui/gui/regression-dialog.c index 53010c3ffd..7bea89e185 100644 --- a/src/ui/gui/regression-dialog.c +++ b/src/ui/gui/regression-dialog.c @@ -1,5 +1,5 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2008 Free Software Foundation + Copyright (C) 2008, 2010, 2011 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 @@ -23,7 +23,6 @@ #include #include -#include #include #include #include @@ -222,13 +221,12 @@ dialog_state_valid (gpointer data) /* Pops up the Regression dialog box */ void -regression_dialog (GObject *o, gpointer data) +regression_dialog (PsppireDataWindow *de) { gint response; struct regression_dialog rd; GtkBuilder *xml = builder_new ("regression.ui"); - PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data); PsppireVarStore *vs; GtkWidget *dialog = get_widget_assert (xml, "regression-dialog"); @@ -289,22 +287,10 @@ regression_dialog (GObject *o, gpointer data) switch (response) { case GTK_RESPONSE_OK: - { - gchar *syntax = generate_syntax (&rd); - - struct getl_interface *sss = create_syntax_string_source (syntax); - execute_syntax (sss); - - g_free (syntax); - } + g_free (execute_syntax_string (de, generate_syntax (&rd))); break; case PSPPIRE_RESPONSE_PASTE: - { - gchar *syntax = generate_syntax (&rd); - paste_syntax_in_new_window (syntax); - - g_free (syntax); - } + g_free (paste_syntax_to_window (generate_syntax (&rd))); break; default: break;