1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2005, 2006, 2009, 2011, 2012 Free Software Foundation
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17 /* This module describes the behaviour of the Missing Values dialog box,
18 used for input of the missing values in the variable sheet */
22 #define _(msgid) gettext (msgid)
23 #define N_(msgid) msgid
26 #include "builder-wrapper.h"
28 #include <data/format.h>
29 #include "missing-val-dialog.h"
30 #include <data/missing-values.h>
31 #include <data/variable.h>
32 #include <data/data-in.h>
40 /* A simple (sub) dialog box for displaying user input errors */
42 err_dialog (const gchar *msg, GtkWindow *window)
45 GtkWidget *label = gtk_label_new (msg);
48 gtk_dialog_new_with_buttons ("PSPP",
51 GTK_DIALOG_DESTROY_WITH_PARENT |
52 GTK_DIALOG_NO_SEPARATOR,
58 GtkWidget *icon = gtk_image_new_from_stock (GTK_STOCK_DIALOG_ERROR,
59 GTK_ICON_SIZE_DIALOG);
61 g_signal_connect_swapped (dialog,
63 G_CALLBACK (gtk_widget_destroy),
66 hbox = gtk_hbox_new (FALSE, 10);
68 gtk_container_add (GTK_CONTAINER (GTK_DIALOG (dialog)->vbox),
71 gtk_box_pack_start (GTK_BOX (hbox), icon, TRUE, FALSE, 10);
72 gtk_box_pack_start (GTK_BOX (hbox), label, TRUE, TRUE, 10);
74 gtk_widget_show_all (dialog);
78 /* Callback which occurs when the OK button is clicked */
80 missing_val_dialog_accept (GtkWidget *w, gpointer data)
82 struct missing_val_dialog *dialog = data;
84 if ( gtk_toggle_button_get_active (dialog->button_discrete))
89 mv_clear(&dialog->mvl);
90 for(i = 0 ; i < 3 ; ++i )
93 g_strdup (gtk_entry_get_text (GTK_ENTRY (dialog->mv[i])));
96 if ( !text || strlen (g_strstrip (text)) == 0 )
102 if ( text_to_value (text, dialog->pv, &v))
105 mv_add_value (&dialog->mvl, &v);
110 value_destroy (&v, var_get_width (dialog->pv));
112 if ( nvals == 0 || badvals > 0 )
114 err_dialog (_("Incorrect value for variable type"),
115 GTK_WINDOW (dialog->window));
120 if (gtk_toggle_button_get_active (dialog->button_range))
122 gchar *discrete_text ;
124 union value low_val ;
125 union value high_val;
126 const gchar *low_text = gtk_entry_get_text (GTK_ENTRY (dialog->low));
127 const gchar *high_text = gtk_entry_get_text (GTK_ENTRY (dialog->high));
132 low_ok = text_to_value (low_text, dialog->pv, &low_val) != NULL;
133 high_ok = text_to_value (high_text, dialog->pv, &high_val) != NULL;
134 ok = low_ok && high_ok && low_val.f <= high_val.f;
137 err_dialog (_("Incorrect range specification"),
138 GTK_WINDOW (dialog->window));
140 value_destroy (&low_val, var_get_width (dialog->pv));
142 value_destroy (&high_val, var_get_width (dialog->pv));
147 g_strdup (gtk_entry_get_text (GTK_ENTRY (dialog->discrete)));
149 mv_clear (&dialog->mvl);
150 mv_add_range (&dialog->mvl, low_val.f, high_val.f);
152 value_destroy (&low_val, var_get_width (dialog->pv));
153 value_destroy (&high_val, var_get_width (dialog->pv));
155 if ( discrete_text && strlen (g_strstrip (discrete_text)) > 0 )
157 union value discrete_val;
158 if ( !text_to_value (discrete_text,
162 err_dialog (_("Incorrect value for variable type"),
163 GTK_WINDOW (dialog->window) );
164 g_free (discrete_text);
165 value_destroy (&discrete_val, var_get_width (dialog->pv));
168 mv_add_value (&dialog->mvl, &discrete_val);
169 value_destroy (&discrete_val, var_get_width (dialog->pv));
171 g_free (discrete_text);
175 if (gtk_toggle_button_get_active (dialog->button_none))
176 mv_clear (&dialog->mvl);
178 var_set_missing_values (dialog->pv, &dialog->mvl);
180 gtk_widget_hide (dialog->window);
184 /* Callback which occurs when the 'discrete' radiobutton is toggled */
186 discrete (GtkToggleButton *button, gpointer data)
189 struct missing_val_dialog *dialog = data;
191 for (i = 0 ; i < 3 ; ++i )
193 gtk_widget_set_sensitive (dialog->mv[i],
194 gtk_toggle_button_get_active (button));
198 /* Callback which occurs when the 'range' radiobutton is toggled */
200 range (GtkToggleButton *button, gpointer data)
202 struct missing_val_dialog *dialog = data;
204 const gboolean active = gtk_toggle_button_get_active (button);
206 gtk_widget_set_sensitive (dialog->low, active);
207 gtk_widget_set_sensitive (dialog->high, active);
208 gtk_widget_set_sensitive (dialog->discrete, active);
213 /* Callback for when the Missing Value dialog is closed using
214 the window delete button.*/
216 on_delete (GtkWidget *w, GdkEvent *e, gpointer data)
218 struct missing_val_dialog *dialog = data;
220 gtk_widget_hide (dialog->window);
226 /* Creates the dialog structure */
227 struct missing_val_dialog *
228 missing_val_dialog_create (GtkWindow *toplevel)
230 GtkBuilder *xml = builder_new ("missing-val-dialog.ui");
232 struct missing_val_dialog *dialog = g_malloc (sizeof (*dialog));
234 dialog->window = get_widget_assert (xml, "missing_values_dialog");
236 gtk_window_set_transient_for
237 (GTK_WINDOW (dialog->window), toplevel);
239 g_signal_connect_swapped (get_widget_assert (xml, "missing_val_cancel"),
240 "clicked", G_CALLBACK (gtk_widget_hide), dialog->window);
242 g_signal_connect (get_widget_assert (xml, "missing_val_ok"),
243 "clicked", G_CALLBACK (missing_val_dialog_accept), dialog);
245 g_signal_connect (dialog->window, "delete-event",
246 G_CALLBACK (on_delete), dialog);
248 dialog->mv[0] = get_widget_assert (xml, "mv0");
249 dialog->mv[1] = get_widget_assert (xml, "mv1");
250 dialog->mv[2] = get_widget_assert (xml, "mv2");
252 dialog->low = get_widget_assert (xml, "mv-low");
253 dialog->high = get_widget_assert (xml, "mv-high");
254 dialog->discrete = get_widget_assert (xml, "mv-discrete");
257 dialog->button_none =
258 GTK_TOGGLE_BUTTON (get_widget_assert (xml, "no_missing"));
260 dialog->button_discrete =
261 GTK_TOGGLE_BUTTON (get_widget_assert (xml, "discrete_missing"));
263 dialog->button_range =
264 GTK_TOGGLE_BUTTON (get_widget_assert (xml, "range_missing"));
267 g_signal_connect (dialog->button_discrete, "toggled",
268 G_CALLBACK (discrete), dialog);
270 g_signal_connect (dialog->button_range, "toggled",
271 G_CALLBACK (range), dialog);
273 g_object_unref (xml);
278 /* Shows the dialog box and sets default values */
280 missing_val_dialog_show (struct missing_val_dialog *dialog)
283 g_return_if_fail (dialog);
284 g_return_if_fail (dialog->pv);
286 mv_copy (&dialog->mvl, var_get_missing_values (dialog->pv));
288 /* Blank all entry boxes and make them insensitive */
289 gtk_entry_set_text (GTK_ENTRY (dialog->low), "");
290 gtk_entry_set_text (GTK_ENTRY (dialog->high), "");
291 gtk_entry_set_text (GTK_ENTRY (dialog->discrete), "");
292 gtk_widget_set_sensitive (dialog->low, FALSE);
293 gtk_widget_set_sensitive (dialog->high, FALSE);
294 gtk_widget_set_sensitive (dialog->discrete, FALSE);
296 gtk_widget_set_sensitive (GTK_WIDGET (dialog->button_range),
297 var_is_numeric (dialog->pv));
300 for (i = 0 ; i < 3 ; ++i )
302 gtk_entry_set_text (GTK_ENTRY (dialog->mv[i]), "");
303 gtk_widget_set_sensitive (dialog->mv[i], FALSE);
306 if ( mv_has_range (&dialog->mvl))
308 union value low, high;
311 mv_get_range (&dialog->mvl, &low.f, &high.f);
314 low_text = value_to_text (low, dialog->pv);
315 high_text = value_to_text (high, dialog->pv);
317 gtk_entry_set_text (GTK_ENTRY (dialog->low), low_text);
318 gtk_entry_set_text (GTK_ENTRY (dialog->high), high_text);
322 if ( mv_has_value (&dialog->mvl))
325 text = value_to_text (*mv_get_value (&dialog->mvl, 0), dialog->pv);
326 gtk_entry_set_text (GTK_ENTRY (dialog->discrete), text);
330 gtk_toggle_button_set_active (dialog->button_range, TRUE);
331 gtk_widget_set_sensitive (dialog->low, TRUE);
332 gtk_widget_set_sensitive (dialog->high, TRUE);
333 gtk_widget_set_sensitive (dialog->discrete, TRUE);
336 else if ( mv_has_value (&dialog->mvl))
338 const int n = mv_n_values (&dialog->mvl);
340 for (i = 0 ; i < 3 ; ++i )
346 text = value_to_text (*mv_get_value (&dialog->mvl, i), dialog->pv);
347 gtk_entry_set_text (GTK_ENTRY (dialog->mv[i]), text);
350 gtk_widget_set_sensitive (dialog->mv[i], TRUE);
352 gtk_toggle_button_set_active (dialog->button_discrete, TRUE);
354 else if ( mv_is_empty (&dialog->mvl))
356 gtk_toggle_button_set_active (dialog->button_none, TRUE);
359 gtk_widget_show (dialog->window);