2 PSPPIRE --- A Graphical User Interface for PSPP
3 Copyright (C) 2007 Free Software Foundation
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 #include "select-cases-dialog.h"
24 #include <glade/glade.h>
26 #include "psppire-dialog.h"
27 #include "data-editor.h"
28 #include "dialog-common.h"
29 #include "dict-display.h"
30 #include "widget-io.h"
31 #include <language/syntax-string-source.h>
32 #include "syntax-editor.h"
36 #define _(msgid) gettext (msgid)
37 #define N_(msgid) msgid
41 /* FIXME: These shouldn't be here */
42 #include "psppire-data-store.h"
45 struct select_cases_dialog
47 /* The XML that created the dialog */
50 GtkWidget *spinbutton ;
51 GtkWidget *spinbutton1 ;
52 GtkWidget *spinbutton2 ;
57 PsppireDataStore *data_store;
60 static gchar * generate_syntax (const struct select_cases_dialog *scd);
64 set_sensitivity_from_toggle (GtkToggleButton *togglebutton, gpointer data)
67 gboolean active = gtk_toggle_button_get_active (togglebutton);
69 gtk_widget_set_sensitive (w, active);
73 set_sensitivity_from_toggle_invert (GtkToggleButton *togglebutton,
77 gboolean active = gtk_toggle_button_get_active (togglebutton);
79 gtk_widget_set_sensitive (w, !active);
84 static const gchar label1[]=N_("Approximately %3d%% of all cases.");
85 static const gchar label2[]=N_("Exactly %3d cases from the first %3d cases.");
89 sample_subdialog (GtkButton *b, gpointer data)
92 struct select_cases_dialog *scd = data;
94 gint case_count = psppire_data_store_get_case_count (scd->data_store);
96 GtkWidget *parent_dialog = get_widget_assert (scd->xml,
97 "select-cases-dialog");
98 GtkWidget *dialog = get_widget_assert (scd->xml,
99 "select-cases-random-sample-dialog");
100 GtkWidget *percent = get_widget_assert (scd->xml,
101 "radiobutton-sample-percent");
102 GtkWidget *sample_n_cases = get_widget_assert (scd->xml,
103 "radiobutton-sample-n-cases");
104 GtkWidget *table = get_widget_assert (scd->xml,
105 "select-cases-random-sample-table");
109 scd->hbox1 = widget_scanf (gettext (label1), &scd->spinbutton);
111 gtk_widget_show (scd->hbox1);
113 gtk_table_attach_defaults (GTK_TABLE (table),
114 scd->hbox1, 1, 2, 0, 1);
116 g_signal_connect (G_OBJECT (percent), "toggled",
117 G_CALLBACK (set_sensitivity_from_toggle), scd->hbox1);
119 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (percent), TRUE);
126 widget_scanf (gettext (label2), &scd->spinbutton1, &scd->spinbutton2);
128 gtk_spin_button_set_range (GTK_SPIN_BUTTON (scd->spinbutton1),
131 gtk_spin_button_set_range (GTK_SPIN_BUTTON (scd->spinbutton2),
134 gtk_widget_show (scd->hbox2);
135 gtk_widget_set_sensitive (scd->hbox2, FALSE);
137 gtk_table_attach_defaults (GTK_TABLE (table),
138 scd->hbox2, 1, 2, 1, 2);
140 g_signal_connect (G_OBJECT (sample_n_cases), "toggled",
141 G_CALLBACK (set_sensitivity_from_toggle), scd->hbox2);
143 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (sample_n_cases), FALSE);
147 gtk_window_set_transient_for (GTK_WINDOW (dialog),
148 GTK_WINDOW (parent_dialog));
150 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
152 if ( response != PSPPIRE_RESPONSE_CONTINUE)
154 g_signal_handlers_disconnect_by_func
156 G_CALLBACK (set_sensitivity_from_toggle),
159 g_signal_handlers_disconnect_by_func
160 (G_OBJECT (sample_n_cases),
161 G_CALLBACK (set_sensitivity_from_toggle),
164 gtk_widget_destroy(scd->hbox1);
165 gtk_widget_destroy(scd->hbox2);
166 scd->hbox1 = scd->hbox2 = NULL;
171 GtkWidget *l0 = get_widget_assert (scd->xml, "random-sample-label");
173 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (percent)))
175 text = widget_printf (gettext(label1), scd->spinbutton);
176 gtk_label_set_text (GTK_LABEL (l0), text);
181 widget_printf (gettext(label2), scd->spinbutton1, scd->spinbutton2);
182 gtk_label_set_text (GTK_LABEL (l0), text);
191 range_subdialog (GtkButton *b, gpointer data)
194 struct select_cases_dialog *scd = data;
196 gint n_cases = psppire_data_store_get_case_count (scd->data_store);
198 GtkWidget *parent_dialog = get_widget_assert (scd->xml,
199 "select-cases-dialog");
201 GtkWidget *dialog = get_widget_assert (scd->xml,
202 "select-cases-range-dialog");
204 GtkWidget *first = get_widget_assert (scd->xml,
205 "range-dialog-first");
207 GtkWidget *last = get_widget_assert (scd->xml,
208 "range-dialog-last");
211 gtk_spin_button_set_range (GTK_SPIN_BUTTON (last), 1, n_cases);
213 gtk_spin_button_set_range (GTK_SPIN_BUTTON (first), 1, n_cases);
215 gtk_window_set_transient_for (GTK_WINDOW (dialog),
216 GTK_WINDOW (parent_dialog));
219 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
220 if ( response == PSPPIRE_RESPONSE_CONTINUE)
222 GtkWidget *first = get_widget_assert (scd->xml, "range-dialog-first");
223 GtkWidget *last = get_widget_assert (scd->xml, "range-dialog-last");
224 GtkWidget *l1 = get_widget_assert (scd->xml, "range-sample-label");
225 gchar *text = widget_printf (_("%d thru %d"), first, last);
227 gtk_label_set_text (GTK_LABEL (l1), text);
234 set_radiobutton (GtkWidget *button, gpointer data)
236 GtkToggleButton *toggle = data;
237 gtk_toggle_button_set_active (toggle, TRUE);
240 /* Pops up the Select Cases dialog box */
242 select_cases_dialog (GObject *o, gpointer data)
245 struct select_cases_dialog scd = {0,0,0,0,0,0};
247 struct data_editor *de = data;
248 GtkWidget *entry = NULL;
249 GtkWidget *selector ;
250 GtkWidget *button_range;
251 GtkWidget *button_sample;
253 scd.xml = XML_NEW ("psppire.glade");
255 g_object_get (de->data_editor, "data-store", &scd.data_store, NULL);
257 button_range = get_widget_assert (scd.xml, "button-range");
258 button_sample = get_widget_assert (scd.xml, "button-sample");
259 entry = get_widget_assert (scd.xml, "filter-variable-entry");
260 selector = get_widget_assert (scd.xml, "psppire-selector-filter");
263 GtkWidget *button_if =
264 get_widget_assert (scd.xml, "button-if");
266 GtkWidget *radiobutton_if =
267 get_widget_assert (scd.xml, "radiobutton-if");
269 GtkWidget *radiobutton_all =
270 get_widget_assert (scd.xml, "radiobutton-all");
272 GtkWidget *radiobutton_sample =
273 get_widget_assert (scd.xml, "radiobutton-sample");
275 GtkWidget *radiobutton_range =
276 get_widget_assert (scd.xml, "radiobutton-range");
278 GtkWidget *radiobutton_filter =
279 get_widget_assert (scd.xml, "radiobutton-filter-variable");
281 GtkWidget *range_label =
282 get_widget_assert (scd.xml, "range-sample-label");
284 GtkWidget *sample_label =
285 get_widget_assert (scd.xml, "random-sample-label");
287 g_signal_connect (radiobutton_all, "toggled",
288 G_CALLBACK (set_sensitivity_from_toggle_invert),
289 get_widget_assert (scd.xml, "filter-delete-button-box")
292 g_signal_connect (button_if, "clicked",
293 G_CALLBACK (set_radiobutton), radiobutton_if);
295 g_signal_connect (button_sample, "clicked",
296 G_CALLBACK (set_radiobutton), radiobutton_sample);
298 g_signal_connect (button_range, "clicked",
299 G_CALLBACK (set_radiobutton), radiobutton_range);
301 g_signal_connect (selector, "clicked",
302 G_CALLBACK (set_radiobutton), radiobutton_filter);
304 g_signal_connect (selector, "selected",
305 G_CALLBACK (set_radiobutton), radiobutton_filter);
307 g_signal_connect (radiobutton_range, "toggled",
308 G_CALLBACK (set_sensitivity_from_toggle),
312 g_signal_connect (radiobutton_sample, "toggled",
313 G_CALLBACK (set_sensitivity_from_toggle),
317 g_signal_connect (radiobutton_filter, "toggled",
318 G_CALLBACK (set_sensitivity_from_toggle),
325 dialog = get_widget_assert (scd.xml, "select-cases-dialog");
326 gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
329 GtkWidget *source = get_widget_assert (scd.xml, "select-cases-treeview");
331 attach_dictionary_to_treeview (GTK_TREE_VIEW (source),
332 scd.data_store->dict,
333 GTK_SELECTION_SINGLE, NULL);
335 psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector),
338 insert_source_row_into_entry,
339 is_currently_in_entry,
345 g_signal_connect (button_range,
346 "clicked", G_CALLBACK (range_subdialog), &scd);
349 g_signal_connect (button_sample,
350 "clicked", G_CALLBACK (sample_subdialog), &scd);
353 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
357 case GTK_RESPONSE_OK:
359 gchar *syntax = generate_syntax (&scd);
360 struct getl_interface *sss = create_syntax_string_source (syntax);
361 execute_syntax (sss);
366 case PSPPIRE_RESPONSE_PASTE:
368 gchar *syntax = generate_syntax (&scd);
370 struct syntax_editor *se =
371 (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL);
373 gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1);
382 g_object_unref (scd.xml);
387 generate_syntax (const struct select_cases_dialog *scd)
390 GString *string = NULL;
392 if ( gtk_toggle_button_get_active
393 (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
394 "radiobutton-all"))))
396 return strdup ("\n");
399 string = g_string_new ("");
401 if ( gtk_toggle_button_get_active
402 (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
403 "radiobutton-sample"))))
405 GtkWidget *random_sample =
406 get_widget_assert (scd->xml,
407 "radiobutton-sample-percent");
409 g_string_append (string, "SAMPLE ");
411 if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (random_sample)))
413 const double percentage =
414 gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton));
415 g_string_append_printf (string, "%g.", percentage / 100.0);
420 gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton1));
421 const gint from_n_cases =
422 gtk_spin_button_get_value (GTK_SPIN_BUTTON (scd->spinbutton2));
424 g_string_append_printf (string, "%d FROM %d .", n_cases, from_n_cases);
428 else if ( gtk_toggle_button_get_active
429 (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
430 "radiobutton-range"))))
432 GtkSpinButton *first =
433 GTK_SPIN_BUTTON (get_widget_assert (scd->xml,
434 "range-dialog-first"));
436 GtkSpinButton *last =
437 GTK_SPIN_BUTTON (get_widget_assert (scd->xml,
438 "range-dialog-last"));
440 g_string_append_printf (string,
441 "COMPUTE filter_$ = ($CASENUM >= %ld "
442 "AND $CASENUM <= %ld).\n",
443 (long) gtk_spin_button_get_value (first),
444 (long) gtk_spin_button_get_value (last)
446 g_string_append (string, "EXECUTE.\n");
447 g_string_append_printf (string, "SELECT IF filter_$.\n");
450 else if ( gtk_toggle_button_get_active
452 (get_widget_assert (scd->xml,
453 "radiobutton-filter-variable"))))
456 GTK_ENTRY (get_widget_assert (scd->xml,
457 "filter-variable-entry"));
459 g_string_append_printf (string, "SELECT IF (%s <> 0).",
460 gtk_entry_get_text (entry));
464 g_string_append (string, "\n");
467 /* Are we filtering or deleting ? */
468 if ( gtk_toggle_button_get_active
469 (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
470 "radiobutton-delete"))))
472 g_string_append (string, "EXECUTE.\n");
474 if ( gtk_toggle_button_get_active
475 (GTK_TOGGLE_BUTTON (get_widget_assert (scd->xml,
476 "radiobutton-range"))))
478 g_string_append (string, "DELETE VARIABLES filter_$.\n");
484 g_string_free (string, FALSE);