1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2004, 2005, 2006, 2007 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/>. */
18 /* This module creates the Variable Sheet used for inputing the
19 variables in the dictonary */
23 #define _(msgid) gettext (msgid)
24 #define N_(msgid) msgid
26 #include <data/value-labels.h>
28 #include <glade/glade.h>
34 #include <data/value.h>
36 #include <gtksheet/gtksheet.h>
37 #include <gtksheet/gsheet-hetero-column.h>
38 #include <gtksheet/gsheet-uniform-row.h>
40 #include "localcharset.h"
41 #include "psppire-var-store.h"
43 #include "psppire-dict.h"
44 #include "var-type-dialog.h"
45 #include "var-sheet.h"
46 #include "customentry.h"
48 #include "val-labs-dialog.h"
49 #include "missing-val-dialog.h"
53 static const gint n_initial_rows = 40;
57 struct column_parameters
63 static const struct column_parameters column_def[] = {
78 const gchar *const alignments[n_ALIGNMENTS + 1]={
85 const gchar *const measures[n_MEASURES + 1]={
93 create_label_list (const gchar *const *labels)
99 GtkListStore *list_store;
100 list_store = gtk_list_store_new (1, G_TYPE_STRING);
103 while ( (s = labels[i++]))
105 gtk_list_store_append (list_store, &iter);
106 gtk_list_store_set (list_store, &iter,
114 /* Callback for when the alignment combo box
117 change_alignment (GtkComboBox *cb,
120 struct variable *pv = user_data;
121 gint active_item = gtk_combo_box_get_active (cb);
123 if ( active_item < 0 ) return ;
125 var_set_alignment (pv, active_item);
130 /* Callback for when the measure combo box
133 change_measure (GtkComboBox *cb,
136 struct variable *pv = user_data;
137 gint active_item = gtk_combo_box_get_active (cb);
139 if ( active_item < 0 ) return ;
141 var_set_measure (pv, active_item);
147 traverse_cell_callback (GtkSheet * sheet,
148 gint row, gint column,
149 gint *new_row, gint *new_column
152 PsppireVarStore *var_store = PSPPIRE_VAR_STORE (gtk_sheet_get_model (sheet));
154 gint n_vars = psppire_var_store_get_var_cnt (var_store);
156 if ( row == n_vars && *new_row >= n_vars)
158 GtkEntry *entry = GTK_ENTRY (gtk_sheet_get_entry (sheet));
160 const gchar *name = gtk_entry_get_text (entry);
162 if (! psppire_dict_check_name (var_store->dict, name, TRUE))
165 psppire_dict_insert_variable (var_store->dict, row, name);
170 /* If the destination cell is outside the current variables, then
171 automatically create variables for the new rows.
173 if ( (*new_row > n_vars) ||
174 (*new_row == n_vars && *new_column != COL_NAME) )
177 for ( i = n_vars ; i <= *new_row; ++i )
178 psppire_dict_insert_variable (var_store->dict, i, NULL);
188 Callback whenever the cell on the var sheet is left
191 var_sheet_cell_entry_leave (GtkSheet * sheet, gint row, gint column,
194 gtk_sheet_change_entry (sheet, GTK_TYPE_ENTRY);
201 Callback whenever the cell on the var sheet is entered.
204 var_sheet_cell_entry_enter (GtkSheet * sheet, gint row, gint column,
207 GtkSheetCellAttr attributes;
208 PsppireVarStore *var_store ;
209 struct variable *var ;
213 g_return_val_if_fail (sheet != NULL, FALSE);
215 var_store = PSPPIRE_VAR_STORE (gtk_sheet_get_model (sheet));
217 g_assert (var_store);
219 if ( row >= psppire_var_store_get_var_cnt (var_store))
222 xml = XML_NEW ("data-editor.glade");
224 gtk_sheet_get_attributes (sheet, row, column, &attributes);
226 var = psppire_var_store_get_var (var_store, row);
232 static GtkListStore *list_store = NULL;
233 GtkComboBoxEntry *cbe;
234 gtk_sheet_change_entry (sheet, GTK_TYPE_COMBO_BOX_ENTRY);
236 GTK_COMBO_BOX_ENTRY (gtk_sheet_get_entry (sheet)->parent);
239 if ( ! list_store) list_store = create_label_list (alignments);
241 gtk_combo_box_set_model (GTK_COMBO_BOX (cbe),
242 GTK_TREE_MODEL (list_store));
244 gtk_combo_box_entry_set_text_column (cbe, 0);
247 g_signal_connect (G_OBJECT (cbe),"changed",
248 G_CALLBACK (change_alignment), var);
254 static GtkListStore *list_store = 0;
255 GtkComboBoxEntry *cbe;
256 gtk_sheet_change_entry (sheet, GTK_TYPE_COMBO_BOX_ENTRY);
258 GTK_COMBO_BOX_ENTRY (gtk_sheet_get_entry (sheet)->parent);
261 if ( ! list_store) list_store = create_label_list (measures);
263 gtk_combo_box_set_model (GTK_COMBO_BOX (cbe),
264 GTK_TREE_MODEL (list_store));
266 gtk_combo_box_entry_set_text_column (cbe, 0);
268 g_signal_connect (G_OBJECT (cbe),"changed",
269 G_CALLBACK (change_measure), var);
275 static struct val_labs_dialog *val_labs_dialog = NULL;
277 PsppireCustomEntry *customEntry;
279 gtk_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
282 PSPPIRE_CUSTOM_ENTRY (gtk_sheet_get_entry (sheet));
284 if ( var_is_long_string (var))
285 g_object_set (customEntry,
289 if (!val_labs_dialog )
290 val_labs_dialog = val_labs_dialog_create (xml);
292 val_labs_dialog_set_target_variable (val_labs_dialog, var);
294 g_signal_connect_swapped (GTK_OBJECT (customEntry),
296 GTK_SIGNAL_FUNC (val_labs_dialog_show),
303 static struct missing_val_dialog *missing_val_dialog = 0;
304 PsppireCustomEntry *customEntry;
306 gtk_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
309 PSPPIRE_CUSTOM_ENTRY (gtk_sheet_get_entry (sheet));
311 if ( var_is_long_string (var))
312 g_object_set (customEntry,
316 if (!missing_val_dialog )
317 missing_val_dialog = missing_val_dialog_create (xml);
319 missing_val_dialog->pv = psppire_var_store_get_var (var_store, row);
321 g_signal_connect_swapped (GTK_OBJECT (customEntry),
323 GTK_SIGNAL_FUNC (missing_val_dialog_show),
330 static struct var_type_dialog *var_type_dialog = 0;
332 PsppireCustomEntry *customEntry;
334 gtk_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
337 PSPPIRE_CUSTOM_ENTRY (gtk_sheet_get_entry (sheet));
340 /* Popup the Variable Type dialog box */
341 if (!var_type_dialog )
342 var_type_dialog = var_type_dialog_create (xml);
345 var_type_dialog->pv = var;
347 g_signal_connect_swapped (GTK_OBJECT (customEntry),
349 GTK_SIGNAL_FUNC (var_type_dialog_show),
358 if ( attributes.is_editable)
362 const gchar *s = gtk_sheet_cell_get_text (sheet, row, column);
366 GtkSpinButton *spinButton ;
367 const gint current_value = atoi (s);
370 const struct fmt_spec *fmt = var_get_write_format (var);
374 r_min = MAX (fmt->d + 1, fmt_min_output_width (fmt->type));
375 r_max = fmt_max_output_width (fmt->type);
379 r_max = fmt_max_output_decimals (fmt->type, fmt->w);
383 r_max = 255 ; /* Is this a sensible value ? */
386 g_assert_not_reached ();
389 adj = gtk_adjustment_new (current_value,
391 1.0, 1.0, 1.0 /* steps */
394 gtk_sheet_change_entry (sheet, GTK_TYPE_SPIN_BUTTON);
397 GTK_SPIN_BUTTON (gtk_sheet_get_entry (sheet));
399 gtk_spin_button_set_adjustment (spinButton, GTK_ADJUSTMENT (adj));
400 gtk_spin_button_set_digits (spinButton, 0);
407 gtk_sheet_change_entry (sheet, GTK_TYPE_ENTRY);
412 g_object_unref (xml);
418 extern PsppireVarStore *the_var_store;
421 /* Create the var sheet */
422 G_MODULE_EXPORT GtkWidget*
423 psppire_variable_sheet_create (gchar *widget_name,
426 gint int1, gint int2)
432 GObject *geo = g_sheet_hetero_column_new (75, n_COLS);
434 g_assert (the_var_store);
436 sheet = gtk_sheet_new (G_SHEET_ROW (the_var_store),
437 G_SHEET_COLUMN (geo),
438 "variable sheet", 0);
441 g_signal_connect (GTK_OBJECT (sheet), "activate",
442 GTK_SIGNAL_FUNC (var_sheet_cell_entry_enter),
445 g_signal_connect (GTK_OBJECT (sheet), "deactivate",
446 GTK_SIGNAL_FUNC (var_sheet_cell_entry_leave),
449 g_signal_connect (GTK_OBJECT (sheet), "traverse",
450 GTK_SIGNAL_FUNC (traverse_cell_callback), 0);
453 gtk_sheet_set_model (GTK_SHEET (sheet), G_SHEET_MODEL (the_var_store));
456 /* Since this happens inside glade_xml_new, we must prevent strings from
457 * being re-encoded twice */
458 codeset = bind_textdomain_codeset (PACKAGE, 0);
459 bind_textdomain_codeset (PACKAGE, locale_charset ());
461 for (i = 0 ; i < n_COLS ; ++i )
463 g_sheet_hetero_column_set_button_label (G_SHEET_HETERO_COLUMN (geo), i,
464 gettext (column_def[i].label));
466 g_sheet_hetero_column_set_width (G_SHEET_HETERO_COLUMN (geo), i,
467 column_def[i].width);
470 bind_textdomain_codeset (PACKAGE, codeset);
472 gtk_widget_show (sheet);