1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2006 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/>. */
21 #define _(msgid) gettext (msgid)
22 #define N_(msgid) msgid
26 #include <gobject/gvaluecollector.h>
28 #include <gtksheet/gsheetmodel.h>
30 #include "psppire-var-store.h"
31 #include "var-sheet.h"
34 #include <data/dictionary.h>
35 #include <data/variable.h>
36 #include <data/missing-values.h>
38 #include "val-labs-dialog.h"
39 #include "missing-val-dialog.h"
40 #include <data/value-labels.h>
42 #include "var-display.h"
46 PSPPIRE_VAR_STORE_TRAILING_ROWS = 1,
47 PSPPIRE_VAR_STORE_FORMAT_TYPE
50 static void psppire_var_store_init (PsppireVarStore *var_store);
51 static void psppire_var_store_class_init (PsppireVarStoreClass *class);
52 static void psppire_var_store_sheet_model_init (GSheetModelIface *iface);
53 static void psppire_var_store_finalize (GObject *object);
56 gchar * missing_values_to_string (const struct variable *pv, GError **err);
59 static gchar *psppire_var_store_get_string (const GSheetModel *sheet_model, glong row, glong column);
61 static gboolean psppire_var_store_clear (GSheetModel *model, glong row, glong col);
64 static gboolean psppire_var_store_set_string (GSheetModel *model,
65 const gchar *text, glong row, glong column);
67 static glong psppire_var_store_get_row_count (const GSheetModel * model);
68 static glong psppire_var_store_get_column_count (const GSheetModel * model);
70 static gchar *text_for_column (const struct variable *pv, gint c, GError **err);
73 static void psppire_var_store_sheet_row_init (GSheetRowIface *iface);
77 static GObjectClass *parent_class = NULL;
80 psppire_var_store_format_type_get_type (void)
82 static GType etype = 0;
85 static const GEnumValue values[] =
87 { PSPPIRE_VAR_STORE_INPUT_FORMATS,
88 "PSPPIRE_VAR_STORE_INPUT_FORMATS",
90 { PSPPIRE_VAR_STORE_OUTPUT_FORMATS,
91 "PSPPIRE_VAR_STORE_OUTPUT_FORMATS",
96 etype = g_enum_register_static
97 (g_intern_static_string ("PsppireVarStoreFormatType"), values);
104 psppire_var_store_get_type (void)
106 static GType var_store_type = 0;
110 static const GTypeInfo var_store_info =
112 sizeof (PsppireVarStoreClass),
113 NULL, /* base_init */
114 NULL, /* base_finalize */
115 (GClassInitFunc) psppire_var_store_class_init,
116 NULL, /* class_finalize */
117 NULL, /* class_data */
118 sizeof (PsppireVarStore),
120 (GInstanceInitFunc) psppire_var_store_init,
123 static const GInterfaceInfo sheet_model_info =
125 (GInterfaceInitFunc) psppire_var_store_sheet_model_init,
130 static const GInterfaceInfo sheet_row_info =
132 (GInterfaceInitFunc) psppire_var_store_sheet_row_init,
137 var_store_type = g_type_register_static (G_TYPE_OBJECT, "PsppireVarStore", &var_store_info, 0);
139 g_type_add_interface_static (var_store_type,
143 g_type_add_interface_static (var_store_type,
150 return var_store_type;
154 psppire_var_store_set_property (GObject *object,
159 PsppireVarStore *self = (PsppireVarStore *) object;
163 case PSPPIRE_VAR_STORE_TRAILING_ROWS:
164 self->trailing_rows = g_value_get_int (value);
167 case PSPPIRE_VAR_STORE_FORMAT_TYPE:
168 self->format_type = g_value_get_enum (value);
172 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, property_id, pspec);
178 psppire_var_store_get_property (GObject *object,
183 PsppireVarStore *self = (PsppireVarStore *) object;
187 case PSPPIRE_VAR_STORE_TRAILING_ROWS:
188 g_value_set_int (value, self->trailing_rows);
191 case PSPPIRE_VAR_STORE_FORMAT_TYPE:
192 g_value_set_enum (value, self->format_type);
196 G_OBJECT_WARN_INVALID_PROPERTY_ID(object, property_id, pspec);
203 psppire_var_store_class_init (PsppireVarStoreClass *class)
205 GObjectClass *object_class;
208 parent_class = g_type_class_peek_parent (class);
209 object_class = (GObjectClass*) class;
211 object_class->finalize = psppire_var_store_finalize;
212 object_class->set_property = psppire_var_store_set_property;
213 object_class->get_property = psppire_var_store_get_property;
215 /* The minimum value for trailing-rows is 1 to prevent the
216 var-store from ever having 0 rows, which breaks invariants
218 pspec = g_param_spec_int ("trailing-rows",
220 "Number of rows displayed after last variable",
221 1 /* minimum value */,
222 100 /* maximum value */,
223 40 /* default value */,
225 g_object_class_install_property (object_class,
226 PSPPIRE_VAR_STORE_TRAILING_ROWS,
229 pspec = g_param_spec_enum ("format-type",
230 "Variable format type",
231 ("Whether variables have input or output "
233 G_TYPE_PSPPIRE_VAR_STORE_FORMAT_TYPE,
234 PSPPIRE_VAR_STORE_OUTPUT_FORMATS,
236 g_object_class_install_property (object_class,
237 PSPPIRE_VAR_STORE_FORMAT_TYPE,
242 psppire_var_store_init (PsppireVarStore *var_store)
244 GdkColormap *colormap = gdk_colormap_get_system ();
246 g_assert (gdk_color_parse ("gray", &var_store->disabled));
248 gdk_colormap_alloc_color (colormap, &var_store->disabled, FALSE, TRUE);
251 var_store->trailing_rows = 40;
252 var_store->format_type = PSPPIRE_VAR_STORE_OUTPUT_FORMATS;
256 psppire_var_store_item_editable (PsppireVarStore *var_store, glong row, glong column)
258 const struct fmt_spec *write_spec ;
260 struct variable *pv = psppire_var_store_get_var (var_store, row);
265 if ( var_is_alpha (pv) && column == COL_DECIMALS )
268 write_spec = var_get_print_format (pv);
270 switch ( write_spec->type )
285 if ( column == COL_DECIMALS || column == COL_WIDTH)
297 psppire_var_store_get_var (PsppireVarStore *store, glong row)
299 return psppire_dict_get_variable (store->dict, row);
303 psppire_var_store_is_editable (const GSheetModel *model, glong row, glong column)
305 PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
306 return psppire_var_store_item_editable (store, row, column);
310 static const GdkColor *
311 psppire_var_store_get_foreground (const GSheetModel *model, glong row, glong column)
313 PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
315 if ( ! psppire_var_store_item_editable (store, row, column) )
316 return &store->disabled;
322 const PangoFontDescription *
323 psppire_var_store_get_font_desc (const GSheetModel *model,
324 glong row, glong column)
326 PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
328 return store->font_desc;
335 psppire_var_store_sheet_model_init (GSheetModelIface *iface)
337 iface->get_row_count = psppire_var_store_get_row_count;
338 iface->get_column_count = psppire_var_store_get_column_count;
339 iface->free_strings = TRUE;
340 iface->get_string = psppire_var_store_get_string;
341 iface->set_string = psppire_var_store_set_string;
342 iface->clear_datum = psppire_var_store_clear;
343 iface->is_editable = psppire_var_store_is_editable;
344 iface->is_visible = NULL;
345 iface->get_foreground = psppire_var_store_get_foreground;
346 iface->get_background = NULL;
347 iface->get_font_desc = psppire_var_store_get_font_desc;
348 iface->get_cell_border = NULL;
354 * psppire_var_store_new:
355 * @dict: The dictionary for this var_store.
358 * Return value: a new #PsppireVarStore
361 psppire_var_store_new (PsppireDict *dict)
363 PsppireVarStore *retval;
365 retval = g_object_new (GTK_TYPE_VAR_STORE, NULL);
367 psppire_var_store_set_dictionary (retval, dict);
373 var_change_callback (GtkWidget *w, gint n, gpointer data)
375 GSheetModel *model = G_SHEET_MODEL (data);
377 g_sheet_model_range_changed (model,
383 var_delete_callback (GtkWidget *w, gint dict_idx, gint case_idx, gint val_cnt, gpointer data)
385 GSheetModel *model = G_SHEET_MODEL (data);
387 g_sheet_model_rows_deleted (model, dict_idx, 1);
393 var_insert_callback (GtkWidget *w, glong row, gpointer data)
395 GSheetModel *model = G_SHEET_MODEL (data);
397 g_sheet_model_rows_inserted (model, row, 1);
401 refresh (PsppireDict *d, gpointer data)
403 PsppireVarStore *vs = data;
405 g_sheet_model_range_changed (G_SHEET_MODEL (vs), -1, -1, -1, -1);
409 * psppire_var_store_replace_set_dictionary:
410 * @var_store: The variable store
411 * @dict: The dictionary to set
413 * If a dictionary is already associated with the var-store, then it will be
417 psppire_var_store_set_dictionary (PsppireVarStore *var_store, PsppireDict *dict)
419 if ( var_store->dict ) g_object_unref (var_store->dict);
421 var_store->dict = dict;
423 g_signal_connect (dict, "variable-changed", G_CALLBACK (var_change_callback),
426 g_signal_connect (dict, "variable-deleted", G_CALLBACK (var_delete_callback),
429 g_signal_connect (dict, "variable-inserted",
430 G_CALLBACK (var_insert_callback), var_store);
432 g_signal_connect (dict, "backend-changed", G_CALLBACK (refresh),
435 /* The entire model has changed */
436 g_sheet_model_range_changed (G_SHEET_MODEL (var_store), -1, -1, -1, -1);
440 psppire_var_store_finalize (GObject *object)
443 (* parent_class->finalize) (object);
447 psppire_var_store_get_string (const GSheetModel *model, glong row, glong column)
449 PsppireVarStore *store = PSPPIRE_VAR_STORE (model);
453 if ( row >= psppire_dict_get_var_cnt (store->dict))
456 pv = psppire_dict_get_variable (store->dict, row);
458 return text_for_column (pv, column, 0);
462 /* Clears that part of the variable store, if possible, which corresponds
464 Returns true if anything was updated, false otherwise.
467 psppire_var_store_clear (GSheetModel *model, glong row, glong col)
469 struct variable *pv ;
471 PsppireVarStore *var_store = PSPPIRE_VAR_STORE (model);
473 if ( row >= psppire_dict_get_var_cnt (var_store->dict))
476 pv = psppire_var_store_get_var (var_store, row);
484 var_set_label (pv, 0);
492 /* Attempts to update that part of the variable store which corresponds
493 to ROW, COL with the value TEXT.
494 Returns true if anything was updated, false otherwise.
497 psppire_var_store_set_string (GSheetModel *model,
498 const gchar *text, glong row, glong col)
500 struct variable *pv ;
502 PsppireVarStore *var_store = PSPPIRE_VAR_STORE (model);
504 if ( row >= psppire_dict_get_var_cnt (var_store->dict))
507 pv = psppire_var_store_get_var (var_store, row);
515 return psppire_dict_rename_var (var_store->dict, pv, text);
518 if ( ! text) return FALSE;
519 var_set_display_width (pv, atoi (text));
524 int width = atoi (text);
525 if ( ! text) return FALSE;
526 if ( var_is_alpha (pv))
527 var_set_width (pv, width);
531 = var_store->format_type == PSPPIRE_VAR_STORE_INPUT_FORMATS;
532 struct fmt_spec fmt ;
533 fmt = *var_get_write_format (pv);
534 if ( width < fmt_min_width (fmt.type, for_input)
536 width > fmt_max_width (fmt.type, for_input))
540 fmt.d = MIN (fmt_max_decimals (fmt.type, width, for_input), fmt.d);
542 var_set_both_formats (pv, &fmt);
551 = var_store->format_type == PSPPIRE_VAR_STORE_INPUT_FORMATS;
554 if ( ! text) return FALSE;
555 decimals = atoi (text);
556 fmt = *var_get_write_format (pv);
558 fmt_max_decimals (fmt.type,
565 var_set_both_formats (pv, &fmt);
570 var_set_label (pv, text);
578 /* These can be modified only by their respective dialog boxes */
582 g_assert_not_reached ();
590 const static gchar none[] = N_("None");
593 text_for_column (const struct variable *pv, gint c, GError **err)
595 static const gchar *const type_label[] =
606 enum {VT_NUMERIC, VT_COMMA, VT_DOT, VT_SCIENTIFIC, VT_DATE, VT_DOLLAR,
607 VT_CUSTOM, VT_STRING};
609 const struct fmt_spec *write_spec = var_get_write_format (pv);
614 return pspp_locale_to_utf8 ( var_get_name (pv), -1, err);
618 switch ( write_spec->type )
621 return g_locale_to_utf8 (gettext (type_label[VT_NUMERIC]), -1, 0, 0, err);
624 return g_locale_to_utf8 (gettext (type_label[VT_COMMA]), -1, 0, 0, err);
627 return g_locale_to_utf8 (gettext (type_label[VT_DOT]), -1, 0, 0, err);
630 return g_locale_to_utf8 (gettext (type_label[VT_SCIENTIFIC]), -1, 0, 0, err);
645 return g_locale_to_utf8 (type_label[VT_DATE], -1, 0, 0, err);
648 return g_locale_to_utf8 (type_label[VT_DOLLAR], -1, 0, 0, err);
655 return g_locale_to_utf8 (gettext (type_label[VT_CUSTOM]), -1, 0, 0, err);
658 return g_locale_to_utf8 (gettext (type_label[VT_STRING]), -1, 0, 0, err);
662 char str[FMT_STRING_LEN_MAX + 1];
663 g_warning ("Unknown format: \"%s\"\n",
664 fmt_to_string (write_spec, str));
673 GString *gstr = g_string_sized_new (10);
674 g_string_printf (gstr, _("%d"), write_spec->w);
675 s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
676 g_string_free (gstr, TRUE);
683 GString *gstr = g_string_sized_new (10);
684 g_string_printf (gstr, _("%d"), write_spec->d);
685 s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
686 g_string_free (gstr, TRUE);
693 GString *gstr = g_string_sized_new (10);
694 g_string_printf (gstr, _("%d"), var_get_display_width (pv));
695 s = g_locale_to_utf8 (gstr->str, gstr->len, 0, 0, err);
696 g_string_free (gstr, TRUE);
701 return pspp_locale_to_utf8 (var_get_label (pv), -1, err);
706 return missing_values_to_string (pv, err);
711 if ( ! var_has_value_labels (pv))
712 return g_locale_to_utf8 (gettext (none), -1, 0, 0, err);
716 GString *gstr = g_string_sized_new (10);
717 const struct val_labs *vls = var_get_value_labels (pv);
718 struct val_labs_iterator *ip = 0;
719 struct val_lab *vl = val_labs_first_sorted (vls, &ip);
724 gchar *const vstr = value_to_text (vl->value, *write_spec);
726 g_string_printf (gstr, "{%s,\"%s\"}_", vstr, vl->label);
732 ss = pspp_locale_to_utf8 (gstr->str, gstr->len, err);
733 g_string_free (gstr, TRUE);
740 const gint align = var_get_alignment (pv);
742 g_assert (align < n_ALIGNMENTS);
743 return g_locale_to_utf8 (gettext (alignments[align]), -1, 0, 0, err);
748 return measure_to_string (pv, err);
757 /* Return the number of variables */
759 psppire_var_store_get_var_cnt (PsppireVarStore *store)
761 return psppire_dict_get_var_cnt (store->dict);
766 psppire_var_store_set_font (PsppireVarStore *store, const PangoFontDescription *fd)
768 g_return_if_fail (store);
769 g_return_if_fail (PSPPIRE_IS_VAR_STORE (store));
771 store->font_desc = fd;
773 g_sheet_model_range_changed (G_SHEET_MODEL (store), -1, -1, -1, -1);
778 psppire_var_store_get_row_count (const GSheetModel * model)
781 PsppireVarStore *vs = PSPPIRE_VAR_STORE (model);
784 rows = psppire_dict_get_var_cnt (vs->dict);
790 psppire_var_store_get_column_count (const GSheetModel * model)
796 /* Row related funcs */
799 geometry_get_row_count (const GSheetRow *geom, gpointer data)
802 PsppireVarStore *vs = PSPPIRE_VAR_STORE (geom);
805 rows = psppire_dict_get_var_cnt (vs->dict);
807 return rows + vs->trailing_rows;
812 geometry_get_height (const GSheetRow *geom, glong row, gpointer data)
819 geometry_is_sensitive (const GSheetRow *geom, glong row, gpointer data)
821 PsppireVarStore *vs = PSPPIRE_VAR_STORE (geom);
826 return row < psppire_dict_get_var_cnt (vs->dict);
830 gboolean always_true ()
837 geometry_get_button_label (const GSheetRow *geom, glong unit, gpointer data)
839 gchar *label = g_strdup_printf (_("%ld"), unit + 1);
845 psppire_var_store_sheet_row_init (GSheetRowIface *iface)
847 iface->get_row_count = geometry_get_row_count;
848 iface->get_height = geometry_get_height;
849 iface->set_height = 0;
850 iface->get_visibility = always_true;
851 iface->get_sensitivity = geometry_is_sensitive;
853 iface->get_button_label = geometry_get_button_label;