X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fdescriptives-dialog.c;h=c6343d5bbb7ccfc57d90bc64a6049a51594a5de5;hb=eea449691e75dfc2af4fd5d6670ab155b813a13e;hp=9d8502de058b34b2cfa301338978ccc69267f4e2;hpb=7a8adbe2e7067f33767f934ec36c60549d50d2e2;p=pspp-builds.git diff --git a/src/ui/gui/descriptives-dialog.c b/src/ui/gui/descriptives-dialog.c index 9d8502de..c6343d5b 100644 --- a/src/ui/gui/descriptives-dialog.c +++ b/src/ui/gui/descriptives-dialog.c @@ -1,5 +1,5 @@ /* PSPPIRE - a graphical user interface for PSPP. - Copyright (C) 2007 Free Software Foundation + Copyright (C) 2007, 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 @@ -177,6 +176,9 @@ generate_syntax (const struct descriptives_dialog *scd) g_string_append (string, "."); + if (gtk_toggle_button_get_active (scd->save_z_scores)) + g_string_append (string, "\nEXECUTE."); + text = string->str; g_string_free (string, FALSE); @@ -200,10 +202,9 @@ dialog_state_valid (gpointer data) /* Pops up the Descriptives dialog box */ void -descriptives_dialog (GObject *o, gpointer data) +descriptives_dialog (PsppireDataWindow *de) { gint response; - PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data); struct descriptives_dialog scd; @@ -256,21 +257,10 @@ descriptives_dialog (GObject *o, gpointer data) switch (response) { case GTK_RESPONSE_OK: - { - gchar *syntax = generate_syntax (&scd); - - struct getl_interface *sss = create_syntax_string_source (syntax); - execute_syntax (sss); - - g_free (syntax); - } + g_free (execute_syntax_string (de, generate_syntax (&scd))); break; case PSPPIRE_RESPONSE_PASTE: - { - gchar *syntax = generate_syntax (&scd); - paste_syntax_in_new_window (syntax); - g_free (syntax); - } + g_free (paste_syntax_to_window (generate_syntax (&scd))); break; default: break;