--- /dev/null
+/*
+ PSPPIRE --- A Graphical User Interface for PSPP
+ Copyright (C) 2007 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
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
+
+#include <config.h>
+
+#include "select-cases-dialog.h"
+#include <gtk/gtk.h>
+#include <glade/glade.h>
+#include "helper.h"
+#include "psppire-dialog.h"
+#include "data-editor.h"
+#include "dialog-common.h"
+#include "dict-display.h"
+#include "widget-io.h"
+#include <language/syntax-string-source.h>
+#include "syntax-editor.h"
+
+
+#include <gettext.h>
+#define _(msgid) gettext (msgid)
+#define N_(msgid) msgid
+
+
+
+/* FIXME: These shouldn't be here */
+#include <gtksheet/gtksheet.h>
+#include "psppire-data-store.h"
+
+
+struct select_cases_dialog
+{
+ /* The XML that created the dialog */
+ GladeXML *xml;
+
+ GtkWidget *spinbutton ;
+ GtkWidget *spinbutton1 ;
+ GtkWidget *spinbutton2 ;
+
+ GtkWidget *hbox1;
+ GtkWidget *hbox2;
+
+ PsppireDataStore *data_store;
+};
+
+static gchar * generate_syntax (const struct select_cases_dialog *scd);
+
+
+static void
+set_sensitivity_from_toggle (GtkToggleButton *togglebutton, gpointer data)
+{
+ GtkWidget *w = data;
+ gboolean active = gtk_toggle_button_get_active (togglebutton);
+
+ gtk_widget_set_sensitive (w, active);
+}
+
+static void
+set_sensitivity_from_toggle_invert (GtkToggleButton *togglebutton,
+ gpointer data)
+{
+ GtkWidget *w = data;
+ gboolean active = gtk_toggle_button_get_active (togglebutton);
+
+ gtk_widget_set_sensitive (w, !active);
+}
+
+
+
+static const gchar label1[]=N_("Approximately %3d%% of all cases.");
+static const gchar label2[]=N_("Exactly %3d cases from the first %3d cases.");
+
+
+static void
+sample_subdialog (GtkButton *b, gpointer data)
+{
+ gint response;
+ struct select_cases_dialog *scd = data;
+
+ gint case_count = psppire_data_store_get_case_count (scd->data_store);
+
+ GtkWidget *parent_dialog = get_widget_assert (scd->xml,
+ "select-cases-dialog");
+ GtkWidget *dialog = get_widget_assert (scd->xml,
+ "select-cases-random-sample-dialog");
+ GtkWidget *percent = get_widget_assert (scd->xml,
+ "radiobutton-sample-percent");
+ GtkWidget *sample_n_cases = get_widget_assert (scd->xml,
+ "radiobutton-sample-n-cases");
+ GtkWidget *table = get_widget_assert (scd->xml,
+ "select-cases-random-sample-table");
+
+ if ( ! scd->hbox1 )
+ {
+ scd->hbox1 = widget_scanf (gettext (label1), &scd->spinbutton);
+
+ gtk_widget_show (scd->hbox1);
+
+ gtk_table_attach_defaults (GTK_TABLE (table),
+ scd->hbox1, 1, 2, 0, 1);
+
+ g_signal_connect (G_OBJECT (percent), "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle), scd->hbox1);
+
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (percent), TRUE);
+ }
+
+
+ if ( ! scd->hbox2 )
+ {
+ scd->hbox2 =
+ widget_scanf (gettext (label2), &scd->spinbutton1, &scd->spinbutton2);
+
+ gtk_spin_button_set_range (GTK_SPIN_BUTTON (scd->spinbutton1),
+ 1, case_count);
+
+ gtk_spin_button_set_range (GTK_SPIN_BUTTON (scd->spinbutton2),
+ 1, case_count);
+
+ gtk_widget_show (scd->hbox2);
+ gtk_widget_set_sensitive (scd->hbox2, FALSE);
+
+ gtk_table_attach_defaults (GTK_TABLE (table),
+ scd->hbox2, 1, 2, 1, 2);
+
+ g_signal_connect (G_OBJECT (sample_n_cases), "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle), scd->hbox2);
+
+ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (sample_n_cases), FALSE);
+ }
+
+
+ gtk_window_set_transient_for (GTK_WINDOW (dialog),
+ GTK_WINDOW (parent_dialog));
+
+ response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+
+ if ( response != PSPPIRE_RESPONSE_CONTINUE)
+ {
+ g_signal_handlers_disconnect_by_func
+ (G_OBJECT (percent),
+ G_CALLBACK (set_sensitivity_from_toggle),
+ scd->hbox1);
+
+ g_signal_handlers_disconnect_by_func
+ (G_OBJECT (sample_n_cases),
+ G_CALLBACK (set_sensitivity_from_toggle),
+ scd->hbox2);
+
+ gtk_widget_destroy(scd->hbox1);
+ gtk_widget_destroy(scd->hbox2);
+ scd->hbox1 = scd->hbox2 = NULL;
+ }
+ else
+ {
+ gchar *text;
+ GtkWidget *l0 = get_widget_assert (scd->xml, "random-sample-label");
+
+ if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (percent)))
+ {
+ text = widget_printf (gettext(label1), scd->spinbutton);
+ gtk_label_set (GTK_LABEL (l0), text);
+ }
+ else
+ {
+ text =
+ widget_printf (gettext(label2), scd->spinbutton1, scd->spinbutton2);
+ gtk_label_set (GTK_LABEL (l0), text);
+
+ }
+ g_free (text);
+
+ }
+}
+
+static void
+range_subdialog (GtkButton *b, gpointer data)
+{
+ gint response;
+ struct select_cases_dialog *scd = data;
+
+ gint n_cases = psppire_data_store_get_case_count (scd->data_store);
+
+ GtkWidget *parent_dialog = get_widget_assert (scd->xml,
+ "select-cases-dialog");
+
+ GtkWidget *dialog = get_widget_assert (scd->xml,
+ "select-cases-range-dialog");
+
+ GtkWidget *first = get_widget_assert (scd->xml,
+ "range-dialog-first");
+
+ GtkWidget *last = get_widget_assert (scd->xml,
+ "range-dialog-last");
+
+
+ gtk_spin_button_set_range (GTK_SPIN_BUTTON (last), 1, n_cases);
+
+ gtk_spin_button_set_range (GTK_SPIN_BUTTON (first), 1, n_cases);
+
+ gtk_window_set_transient_for (GTK_WINDOW (dialog),
+ GTK_WINDOW (parent_dialog));
+
+
+ response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+ if ( response == PSPPIRE_RESPONSE_CONTINUE)
+ {
+ GtkWidget *first = get_widget_assert (scd->xml, "range-dialog-first");
+ GtkWidget *last = get_widget_assert (scd->xml, "range-dialog-last");
+ GtkWidget *l1 = get_widget_assert (scd->xml, "range-sample-label");
+ gchar *text = widget_printf (_("%d thru %d"), first, last);
+
+ gtk_label_set (GTK_LABEL (l1), text);
+
+ g_free (text);
+ }
+}
+
+static void
+set_radiobutton (GtkWidget *button, gpointer data)
+{
+ GtkToggleButton *toggle = data;
+ gtk_toggle_button_set_active (toggle, TRUE);
+}
+
+/* Pops up the Select Cases dialog box */
+void
+select_cases_dialog (GObject *o, gpointer data)
+{
+ gint response;
+ struct select_cases_dialog scd = {0,0,0,0,0,0};
+ GtkWidget *dialog ;
+ struct data_editor *de = data;
+ GtkWidget *entry = NULL;
+ GtkWidget *selector ;
+ GtkWidget *button_range;
+ GtkWidget *button_sample;
+
+ scd.xml = XML_NEW ("psppire.glade");
+
+ {
+ GtkSheet *data_sheet =
+ GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
+
+ scd.data_store = PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
+ }
+
+ button_range = get_widget_assert (scd.xml, "button-range");
+ button_sample = get_widget_assert (scd.xml, "button-sample");
+ entry = get_widget_assert (scd.xml, "filter-variable-entry");
+ selector = get_widget_assert (scd.xml, "psppire-selector-filter");
+
+ {
+ GtkWidget *button_if =
+ get_widget_assert (scd.xml, "button-if");
+
+ GtkWidget *radiobutton_if =
+ get_widget_assert (scd.xml, "radiobutton-if");
+
+ GtkWidget *radiobutton_all =
+ get_widget_assert (scd.xml, "radiobutton-all");
+
+ GtkWidget *radiobutton_sample =
+ get_widget_assert (scd.xml, "radiobutton-sample");
+
+ GtkWidget *radiobutton_range =
+ get_widget_assert (scd.xml, "radiobutton-range");
+
+ GtkWidget *radiobutton_filter =
+ get_widget_assert (scd.xml, "radiobutton-filter-variable");
+
+ GtkWidget *range_label =
+ get_widget_assert (scd.xml, "range-sample-label");
+
+ GtkWidget *sample_label =
+ get_widget_assert (scd.xml, "random-sample-label");
+
+ g_signal_connect (radiobutton_all, "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle_invert),
+ get_widget_assert (scd.xml, "filter-delete-button-box")
+ );
+
+ g_signal_connect (button_if, "clicked",
+ G_CALLBACK (set_radiobutton), radiobutton_if);
+
+ g_signal_connect (button_sample, "clicked",
+ G_CALLBACK (set_radiobutton), radiobutton_sample);
+
+ g_signal_connect (button_range, "clicked",
+ G_CALLBACK (set_radiobutton), radiobutton_range);
+
+ g_signal_connect (selector, "clicked",
+ G_CALLBACK (set_radiobutton), radiobutton_filter);
+
+ g_signal_connect (selector, "selected",
+ G_CALLBACK (set_radiobutton), radiobutton_filter);
+
+ g_signal_connect (radiobutton_range, "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle),
+ range_label
+ );
+
+ g_signal_connect (radiobutton_sample, "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle),
+ sample_label
+ );
+
+ g_signal_connect (radiobutton_filter, "toggled",
+ G_CALLBACK (set_sensitivity_from_toggle),
+ entry
+ );
+ }
+
+
+
+ dialog = get_widget_assert (scd.xml, "select-cases-dialog");
+ gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
+
+ {
+ GtkWidget *source = get_widget_assert (scd.xml, "select-cases-treeview");
+
+ attach_dictionary_to_treeview (GTK_TREE_VIEW (source),
+ scd.data_store->dict,
+ GTK_SELECTION_SINGLE, NULL);
+
+ psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector),
+ source,
+ entry,
+ insert_source_row_into_entry,
+ is_currently_in_entry);
+ }
+
+
+
+ g_signal_connect (button_range,
+ "clicked", G_CALLBACK (range_subdialog), &scd);
+
+
+ g_signal_connect (button_sample,
+ "clicked", G_CALLBACK (sample_subdialog), &scd);
+
+
+ response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+
+ 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);
+ }
+ break;
+ case PSPPIRE_RESPONSE_PASTE:
+ {
+ gchar *syntax = generate_syntax (&scd);
+
+ struct syntax_editor *se =
+ (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
+
+ gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
+
+ g_free (syntax);
+ }
+ break;
+ default:
+ break;
+ }
+
+ g_object_unref (scd.xml);
+}
+
+
+static gchar *
+generate_syntax (const struct select_cases_dialog *scd)
+{
+ gchar *text = NULL;
+ GString *string = NULL;
+
+ if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
+ "radiobutton-all"))))
+ {
+ return strdup ("\n");
+ }
+
+ string = g_string_new ("");
+
+ if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
+ "radiobutton-sample"))))
+ {
+ GtkWidget *random_sample =
+ get_widget_assert (scd->xml,
+ "radiobutton-sample-percent");
+
+ g_string_append (string, "SAMPLE ");
+
+ if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (random_sample)))
+ {
+ const double percentage =
+ gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton));
+ g_string_append_printf (string, "%g.", percentage / 100.0);
+ }
+ else
+ {
+ const gint n_cases =
+ gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton1));
+ const gint from_n_cases =
+ gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton2));
+
+ g_string_append_printf (string, "%d FROM %d .", n_cases, from_n_cases);
+ }
+
+ }
+ else if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
+ "radiobutton-range"))))
+ {
+ GtkSpinButton *first =
+ GTK_SPIN_BUTTON (get_widget_assert (scd->xml,
+ "range-dialog-first"));
+
+ GtkSpinButton *last =
+ GTK_SPIN_BUTTON (get_widget_assert (scd->xml,
+ "range-dialog-last"));
+
+ g_string_append_printf (string,
+ "COMPUTE filter_$ = ($CASENUM >= %ld "
+ "AND $CASENUM <= %ld).\n",
+ (long) gtk_spin_button_get_value (first),
+ (long) gtk_spin_button_get_value (last)
+ );
+ g_string_append (string, "EXECUTE.\n");
+ g_string_append_printf (string, "SELECT IF filter_$.\n");
+
+ }
+ else if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON
+ (get_widget_assert (scd->xml,
+ "radiobutton-filter-variable"))))
+ {
+ GtkEntry *entry =
+ GTK_ENTRY (get_widget_assert (scd->xml,
+ "filter-variable-entry"));
+
+ g_string_append_printf (string, "SELECT IF (%s <> 0).",
+ gtk_entry_get_text (entry));
+ }
+
+
+ g_string_append (string, "\n");
+
+
+ /* Are we filtering or deleting ? */
+ if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
+ "radiobutton-delete"))))
+ {
+ g_string_append (string, "EXECUTE.\n");
+
+ if ( gtk_toggle_button_get_active
+ (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
+ "radiobutton-range"))))
+ {
+ g_string_append (string, "DELETE VARIABLES filter_$.\n");
+ }
+ }
+
+
+ text = string->str;
+ g_string_free (string, FALSE);
+ return text;
+}