1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2008, 2009, 2011, 2012 Free Software Foundation, Inc.
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 #include "psppire-var-sheet.h"
19 #include <ui/gui/sheet/psppire-axis.h>
21 #include "builder-wrapper.h"
24 #include "customentry.h"
25 #include <data/variable.h>
26 #include "data/value-labels.h"
27 #include "psppire-var-store.h"
28 #include "ui/gui/val-labs-dialog.h"
29 #include "ui/gui/var-type-dialog.h"
32 #define _(msgid) gettext (msgid)
33 #define N_(msgid) msgid
36 static void psppire_var_sheet_class_init (PsppireVarSheetClass *klass);
37 static void psppire_var_sheet_init (PsppireVarSheet *vs);
38 static void psppire_var_sheet_realize (GtkWidget *w);
39 static void psppire_var_sheet_unrealize (GtkWidget *w);
44 PSPPIRE_VAR_SHEET_MAY_CREATE_VARS = 1
48 psppire_var_sheet_get_type (void)
50 static GType vs_type = 0;
54 static const GTypeInfo vs_info =
56 sizeof (PsppireVarSheetClass),
58 NULL, /* base_finalize */
59 (GClassInitFunc) psppire_var_sheet_class_init,
60 NULL, /* class_finalize */
61 NULL, /* class_data */
62 sizeof (PsppireVarSheet),
64 (GInstanceInitFunc) psppire_var_sheet_init,
67 vs_type = g_type_register_static (PSPPIRE_TYPE_SHEET, "PsppireVarSheet",
74 static GObjectClass * parent_class = NULL;
77 psppire_var_sheet_dispose (GObject *obj)
79 PsppireVarSheet *vs = (PsppireVarSheet *)obj;
81 if (vs->dispose_has_run)
84 /* Make sure dispose does not run twice. */
85 vs->dispose_has_run = TRUE;
87 /* Chain up to the parent class */
88 G_OBJECT_CLASS (parent_class)->dispose (obj);
92 psppire_var_sheet_finalize (GObject *obj)
94 /* Chain up to the parent class */
95 G_OBJECT_CLASS (parent_class)->finalize (obj);
99 struct column_parameters
105 #define n_ALIGNMENTS 3
107 const gchar *const alignments[n_ALIGNMENTS + 1]={
114 const gchar *const measures[n_MEASURES + 1]={
123 /* Create a list store from an array of strings */
124 static GtkListStore *
125 create_label_list (const gchar *const *labels)
131 GtkListStore *list_store = gtk_list_store_new (1, G_TYPE_STRING);
133 while ( (s = labels[i++]))
135 gtk_list_store_append (list_store, &iter);
136 gtk_list_store_set (list_store, &iter,
146 psppire_var_sheet_set_property (GObject *object,
151 PsppireVarSheet *self = (PsppireVarSheet *) object;
155 case PSPPIRE_VAR_SHEET_MAY_CREATE_VARS:
156 self->may_create_vars = g_value_get_boolean (value);
160 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, property_id, pspec);
166 psppire_var_sheet_get_property (GObject *object,
171 PsppireVarSheet *self = (PsppireVarSheet *) object;
175 case PSPPIRE_VAR_SHEET_MAY_CREATE_VARS:
176 g_value_set_boolean (value, self->may_create_vars);
180 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, property_id, pspec);
187 psppire_var_sheet_class_init (PsppireVarSheetClass *klass)
189 GObjectClass *object_class = G_OBJECT_CLASS (klass);
190 GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);
193 parent_class = g_type_class_peek_parent (klass);
195 object_class->dispose = psppire_var_sheet_dispose;
196 object_class->finalize = psppire_var_sheet_finalize;
197 widget_class->realize = psppire_var_sheet_realize;
198 widget_class->unrealize = psppire_var_sheet_unrealize;
199 object_class->set_property = psppire_var_sheet_set_property;
200 object_class->get_property = psppire_var_sheet_get_property;
202 pspec = g_param_spec_boolean ("may-create-vars",
203 "May create variables",
204 "Whether the user may create more variables",
207 g_object_class_install_property (object_class,
208 PSPPIRE_VAR_SHEET_MAY_CREATE_VARS,
211 klass->measure_list = create_label_list (measures);
212 klass->alignment_list = create_label_list (alignments);
217 /* Callback for when the alignment combo box
220 change_alignment (GtkComboBox *cb,
221 struct variable *var)
223 gint active_item = gtk_combo_box_get_active (cb);
225 if ( active_item < 0 ) return ;
227 var_set_alignment (var, active_item);
232 /* Callback for when the measure combo box
235 change_measure (GtkComboBox *cb,
236 struct variable *var)
238 gint active_item = gtk_combo_box_get_active (cb);
240 if ( active_item < 0 ) return ;
242 var_set_measure (var, active_item);
246 /* Moves the focus to a new cell.
247 Returns TRUE iff the move should be disallowed */
249 traverse_cell_callback (PsppireSheet *sheet,
250 const PsppireSheetCell *existing_cell,
251 PsppireSheetCell *new_cell)
253 PsppireVarSheet *var_sheet = PSPPIRE_VAR_SHEET (sheet);
254 PsppireVarStore *var_store = PSPPIRE_VAR_STORE (psppire_sheet_get_model (sheet));
256 gint n_vars = psppire_var_store_get_var_cnt (var_store);
258 if (new_cell->col >= PSPPIRE_VAR_STORE_n_COLS)
261 if (new_cell->row >= n_vars && !var_sheet->may_create_vars)
264 if ( existing_cell->row == n_vars && new_cell->row >= n_vars)
266 GtkEntry *entry = psppire_sheet_get_entry (sheet);
268 const gchar *name = gtk_entry_get_text (entry);
270 if (! psppire_dict_check_name (var_store->dictionary, name, TRUE))
273 psppire_dict_insert_variable (var_store->dictionary, existing_cell->row, name);
279 /* If the destination cell is outside the current variables, then
280 automatically create variables for the new rows.
282 if ( ((new_cell->row > n_vars) ||
283 (new_cell->row == n_vars &&
284 new_cell->col != PSPPIRE_VAR_STORE_COL_NAME)) )
287 for ( i = n_vars ; i <= new_cell->row; ++i )
288 psppire_dict_insert_variable (var_store->dictionary, i, NULL);
295 var_sheet_show_var_type_dialog (PsppireVarSheet *vs)
297 PsppireVarStore *var_store;
298 struct fmt_spec format;
299 struct variable *var;
302 var_store = PSPPIRE_VAR_STORE (psppire_sheet_get_model (PSPPIRE_SHEET (vs)));
304 psppire_sheet_get_active_cell (PSPPIRE_SHEET (vs), &row, NULL);
305 var = psppire_var_store_get_var (var_store, row);
306 g_return_if_fail (var != NULL);
308 format = *var_get_print_format (var);
309 psppire_var_type_dialog_run (GTK_WINDOW (gtk_widget_get_toplevel (
310 GTK_WIDGET (vs))), &format);
311 var_set_width (var, fmt_var_width (&format));
312 var_set_both_formats (var, &format);
316 var_sheet_show_val_labs_dialog (PsppireVarSheet *vs)
318 PsppireVarStore *var_store;
319 struct val_labs *labels;
320 struct variable *var;
323 var_store = PSPPIRE_VAR_STORE (psppire_sheet_get_model (PSPPIRE_SHEET (vs)));
325 psppire_sheet_get_active_cell (PSPPIRE_SHEET (vs), &row, NULL);
326 var = psppire_var_store_get_var (var_store, row);
327 g_return_if_fail (var != NULL);
329 labels = psppire_val_labs_dialog_run (GTK_WINDOW (gtk_widget_get_toplevel (
330 GTK_WIDGET (vs))), var);
333 var_set_value_labels (var, labels);
334 val_labs_destroy (labels);
339 Callback whenever the active cell changes on the var sheet.
342 var_sheet_change_active_cell (PsppireVarSheet *vs,
343 gint row, gint column,
344 gint oldrow, gint oldcolumn,
347 PsppireVarStore *var_store;
348 PsppireVarSheetClass *vs_class =
349 PSPPIRE_VAR_SHEET_CLASS(G_OBJECT_GET_CLASS (vs));
351 struct variable *var ;
352 PsppireSheet *sheet = PSPPIRE_SHEET (vs);
354 g_return_if_fail (sheet != NULL);
356 var_store = PSPPIRE_VAR_STORE (psppire_sheet_get_model (sheet));
358 g_assert (var_store);
360 g_return_if_fail (oldcolumn == PSPPIRE_VAR_STORE_COL_NAME ||
361 row < psppire_var_store_get_var_cnt (var_store));
363 var = psppire_var_store_get_var (var_store, row);
367 case PSPPIRE_VAR_STORE_COL_ALIGN:
370 static GtkListStore *list_store = NULL;
371 GtkComboBoxEntry *cbe;
372 psppire_sheet_change_entry (sheet, GTK_TYPE_COMBO_BOX_ENTRY);
373 entry = psppire_sheet_get_entry (sheet);
374 cbe = GTK_COMBO_BOX_ENTRY (GTK_WIDGET (entry)->parent);
376 if ( ! list_store) list_store = create_label_list (alignments);
378 gtk_combo_box_set_model (GTK_COMBO_BOX (cbe),
379 GTK_TREE_MODEL (vs_class->alignment_list));
381 gtk_combo_box_entry_set_text_column (cbe, 0);
383 g_signal_connect (cbe, "changed",
384 G_CALLBACK (change_alignment), var);
388 case PSPPIRE_VAR_STORE_COL_MEASURE:
391 GtkComboBoxEntry *cbe;
392 psppire_sheet_change_entry (sheet, GTK_TYPE_COMBO_BOX_ENTRY);
393 entry = psppire_sheet_get_entry (sheet);
394 cbe = GTK_COMBO_BOX_ENTRY (GTK_WIDGET (entry)->parent);
396 gtk_combo_box_set_model (GTK_COMBO_BOX (cbe),
397 GTK_TREE_MODEL (vs_class->measure_list));
399 gtk_combo_box_entry_set_text_column (cbe, 0);
401 g_signal_connect (cbe, "changed",
402 G_CALLBACK (change_measure), var);
406 case PSPPIRE_VAR_STORE_COL_VALUES:
408 PsppireCustomEntry *customEntry;
410 psppire_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
413 PSPPIRE_CUSTOM_ENTRY (psppire_sheet_get_entry (sheet));
415 g_signal_connect_swapped (customEntry,
417 G_CALLBACK (var_sheet_show_val_labs_dialog),
422 case PSPPIRE_VAR_STORE_COL_MISSING:
424 PsppireCustomEntry *customEntry;
426 psppire_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
429 PSPPIRE_CUSTOM_ENTRY (psppire_sheet_get_entry (sheet));
431 vs->missing_val_dialog->pv =
432 psppire_var_store_get_var (var_store, row);
434 g_signal_connect_swapped (customEntry,
436 G_CALLBACK (missing_val_dialog_show),
437 vs->missing_val_dialog);
441 case PSPPIRE_VAR_STORE_COL_TYPE:
443 PsppireCustomEntry *customEntry;
445 psppire_sheet_change_entry (sheet, PSPPIRE_CUSTOM_ENTRY_TYPE);
448 PSPPIRE_CUSTOM_ENTRY (psppire_sheet_get_entry (sheet));
450 g_signal_connect_swapped (customEntry,
452 G_CALLBACK (var_sheet_show_var_type_dialog),
457 case PSPPIRE_VAR_STORE_COL_WIDTH:
458 case PSPPIRE_VAR_STORE_COL_DECIMALS:
459 case PSPPIRE_VAR_STORE_COL_COLUMNS:
461 if ( psppire_sheet_model_is_editable (PSPPIRE_SHEET_MODEL(var_store),
466 const gchar *s = psppire_sheet_cell_get_text (sheet, row, column);
470 GtkSpinButton *spinButton ;
471 const gint current_value = g_strtod (s, NULL);
474 const struct fmt_spec *fmt = var_get_print_format (var);
477 case PSPPIRE_VAR_STORE_COL_WIDTH:
478 r_min = MAX (fmt->d + 1, fmt_min_output_width (fmt->type));
479 r_max = fmt_max_output_width (fmt->type);
481 case PSPPIRE_VAR_STORE_COL_DECIMALS:
483 r_max = fmt_max_output_decimals (fmt->type, fmt->w);
485 case PSPPIRE_VAR_STORE_COL_COLUMNS:
487 r_max = 255 ; /* Is this a sensible value ? */
490 g_assert_not_reached ();
493 adj = gtk_adjustment_new (current_value,
495 1.0, 1.0, /* steps */
498 psppire_sheet_change_entry (sheet, GTK_TYPE_SPIN_BUTTON);
501 GTK_SPIN_BUTTON (psppire_sheet_get_entry (sheet));
503 gtk_spin_button_set_adjustment (spinButton, GTK_ADJUSTMENT (adj));
504 gtk_spin_button_set_digits (spinButton, 0);
511 psppire_sheet_change_entry (sheet, GTK_TYPE_ENTRY);
518 psppire_var_sheet_realize (GtkWidget *w)
520 PsppireVarSheet *vs = PSPPIRE_VAR_SHEET (w);
522 GtkWidget *toplevel = gtk_widget_get_toplevel (GTK_WIDGET (vs));
524 vs->missing_val_dialog = missing_val_dialog_create (GTK_WINDOW (toplevel));
526 /* Chain up to the parent class */
527 GTK_WIDGET_CLASS (parent_class)->realize (w);
531 psppire_var_sheet_unrealize (GtkWidget *w)
533 PsppireVarSheet *vs = PSPPIRE_VAR_SHEET (w);
535 g_free (vs->missing_val_dialog);
537 /* Chain up to the parent class */
538 GTK_WIDGET_CLASS (parent_class)->unrealize (w);
544 psppire_var_sheet_init (PsppireVarSheet *vs)
546 GtkBuilder *builder = builder_new ("data-editor.ui");
548 connect_help (builder);
550 g_object_unref (builder);
552 vs->dispose_has_run = FALSE;
553 vs->may_create_vars = TRUE;
555 g_signal_connect (vs, "activate",
556 G_CALLBACK (var_sheet_change_active_cell),
559 g_signal_connect (vs, "traverse",
560 G_CALLBACK (traverse_cell_callback), NULL);
564 static const struct column_parameters column_def[] = {
568 { N_("Decimals"),91},
570 { N_("Values"), 103},
571 { N_("Missing"), 95},
572 { N_("Columns"), 80},
574 { N_("Measure"), 99},
578 psppire_var_sheet_new (void)
581 PsppireAxis *ha = psppire_axis_new ();
582 PsppireAxis *va = psppire_axis_new ();
584 GtkWidget *w = g_object_new (psppire_var_sheet_get_type (), NULL);
586 for (i = 0 ; i < 10 ; ++i)
587 psppire_axis_append (ha, column_def[i].width);
593 g_object_set (ha, "minimum-extent", 0,
597 "horizontal-axis", ha,