1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2013, 2014 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 file implements a GtkTreeModel. It allows GtkComboBox and
18 GtkTreeView to display the names and non-empty cell ranges of the
19 sheets aka "Tables" of spreadsheet files.
20 It doesn't take any notice of the spreadsheet data itself.
29 #define _(msgid) gettext (msgid)
30 #define N_(msgid) msgid
33 #include "psppire-spreadsheet-model.h"
34 #include "data/spreadsheet-reader.h"
36 static void psppire_spreadsheet_model_finalize (GObject * object);
37 static void psppire_spreadsheet_model_dispose (GObject * object);
39 static GObjectClass *parent_class = NULL;
41 static void spreadsheet_tree_model_init (GtkTreeModelIface * iface);
43 G_DEFINE_TYPE_WITH_CODE (PsppireSpreadsheetModel,\
44 psppire_spreadsheet_model,\
46 G_IMPLEMENT_INTERFACE (GTK_TYPE_TREE_MODEL,
47 spreadsheet_tree_model_init))
58 psppire_spreadsheet_model_set_property (GObject * object,
63 PsppireSpreadsheetModel *spreadsheetModel =
64 PSPPIRE_SPREADSHEET_MODEL (object);
68 case PROP_SPREADSHEET:
69 spreadsheetModel->spreadsheet = g_value_get_pointer (value);
70 spreadsheet_ref (spreadsheetModel->spreadsheet);
73 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
80 psppire_spreadsheet_model_dispose (GObject * object)
82 PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (object);
84 if (!spreadsheetModel->dispose_has_run)
86 spreadsheet_unref (spreadsheetModel->spreadsheet);
88 spreadsheetModel->dispose_has_run = TRUE;
93 psppire_spreadsheet_model_finalize (GObject * object)
95 // PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (object);
99 psppire_spreadsheet_model_class_init (PsppireSpreadsheetModelClass * class)
101 GObjectClass *object_class = G_OBJECT_CLASS (class);
103 GParamSpec *spreadsheet_spec = g_param_spec_pointer ("spreadsheet",
105 "The spreadsheet that this model represents",
106 G_PARAM_CONSTRUCT_ONLY
109 parent_class = g_type_class_peek_parent (class);
112 object_class->set_property = psppire_spreadsheet_model_set_property;
114 g_object_class_install_property (object_class,
115 PROP_SPREADSHEET, spreadsheet_spec);
117 object_class->finalize = psppire_spreadsheet_model_finalize;
118 object_class->dispose = psppire_spreadsheet_model_dispose;
123 psppire_spreadsheet_model_init (PsppireSpreadsheetModel * spreadsheetModel)
125 spreadsheetModel->dispose_has_run = FALSE;
126 spreadsheetModel->stamp = g_random_int ();
131 psppire_spreadsheet_model_new (struct spreadsheet *sp)
133 return g_object_new (psppire_spreadsheet_model_get_type (),
134 "spreadsheet", sp, NULL);
141 tree_model_n_columns (GtkTreeModel * model)
143 return PSPPIRE_SPREADSHEET_MODEL_N_COLS;
146 static GtkTreeModelFlags
147 tree_model_get_flags (GtkTreeModel * model)
149 g_return_val_if_fail (PSPPIRE_IS_SPREADSHEET_MODEL (model),
150 (GtkTreeModelFlags) 0);
152 return GTK_TREE_MODEL_LIST_ONLY;
156 tree_model_column_type (GtkTreeModel * model, gint index)
158 g_return_val_if_fail (PSPPIRE_IS_SPREADSHEET_MODEL (model), (GType) 0);
159 g_return_val_if_fail (index < PSPPIRE_SPREADSHEET_MODEL_N_COLS, (GType) 0);
161 return G_TYPE_STRING;
166 tree_model_get_iter (GtkTreeModel * model, GtkTreeIter * iter,
169 PsppireSpreadsheetModel *spreadsheetModel =
170 PSPPIRE_SPREADSHEET_MODEL (model);
171 gint *indices, depth;
174 g_return_val_if_fail (path, FALSE);
176 depth = gtk_tree_path_get_depth (path);
178 g_return_val_if_fail (depth == 1, FALSE);
180 indices = gtk_tree_path_get_indices (path);
184 iter->stamp = spreadsheetModel->stamp;
185 iter->user_data = (gpointer) (intptr_t) n;
191 tree_model_iter_next (GtkTreeModel *model, GtkTreeIter *iter)
193 PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (model);
195 g_return_val_if_fail (iter->stamp == spreadsheetModel->stamp, FALSE);
197 if ((intptr_t) iter->user_data >= spreadsheetModel->spreadsheet->n_sheets - 1)
199 iter->user_data = NULL;
204 iter->user_data = GINT_TO_POINTER (GPOINTER_TO_INT (iter->user_data) + 1);
211 tree_model_get_value (GtkTreeModel * model, GtkTreeIter * iter,
212 gint column, GValue * value)
214 PsppireSpreadsheetModel *spreadsheetModel =
215 PSPPIRE_SPREADSHEET_MODEL (model);
216 g_return_if_fail (column < PSPPIRE_SPREADSHEET_MODEL_N_COLS);
217 g_return_if_fail (iter->stamp == spreadsheetModel->stamp);
219 g_value_init (value, G_TYPE_STRING);
222 case PSPPIRE_SPREADSHEET_MODEL_COL_NAME:
225 spreadsheet_get_sheet_name (spreadsheetModel->spreadsheet,
226 (intptr_t) iter->user_data);
228 g_value_set_string (value, x);
231 case PSPPIRE_SPREADSHEET_MODEL_COL_RANGE:
234 spreadsheet_get_sheet_range (spreadsheetModel->spreadsheet,
235 (intptr_t) iter->user_data);
237 g_value_set_string (value, x ? x : _("(empty)"));
242 g_error ("%s:%d Invalid column in spreadsheet model",
249 tree_model_nth_child (GtkTreeModel * model, GtkTreeIter * iter,
250 GtkTreeIter * parent, gint n)
252 PsppireSpreadsheetModel *spreadsheetModel =
253 PSPPIRE_SPREADSHEET_MODEL (model);
258 if (n >= spreadsheetModel->spreadsheet->n_sheets)
261 iter->stamp = spreadsheetModel->stamp;
262 iter->user_data = (gpointer) (intptr_t) n;
268 tree_model_n_children (GtkTreeModel * model, GtkTreeIter * iter)
270 PsppireSpreadsheetModel *spreadsheetModel =
271 PSPPIRE_SPREADSHEET_MODEL (model);
274 return spreadsheetModel->spreadsheet->n_sheets;
280 tree_model_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter)
286 tree_model_get_path (GtkTreeModel * model, GtkTreeIter * iter)
288 PsppireSpreadsheetModel *spreadsheetModel =
289 PSPPIRE_SPREADSHEET_MODEL (model);
291 gint index = (intptr_t) iter->user_data;
293 g_return_val_if_fail (iter->stamp == spreadsheetModel->stamp, NULL);
295 path = gtk_tree_path_new ();
297 gtk_tree_path_append_index (path, index);
304 tree_model_children (GtkTreeModel *model, GtkTreeIter *iter, GtkTreeIter *parent)
306 PsppireSpreadsheetModel *spreadsheetModel = PSPPIRE_SPREADSHEET_MODEL (model);
311 iter->stamp = spreadsheetModel->stamp;
320 spreadsheet_tree_model_init (GtkTreeModelIface * iface)
322 iface->get_flags = tree_model_get_flags;
323 iface->get_n_columns = tree_model_n_columns;
324 iface->get_column_type = tree_model_column_type;
325 iface->get_iter = tree_model_get_iter;
326 iface->iter_next = tree_model_iter_next;
327 iface->get_value = tree_model_get_value;
329 iface->iter_children = tree_model_children;
330 iface->iter_parent = NULL;
332 iface->get_path = tree_model_get_path;
333 iface->iter_has_child = tree_model_iter_has_child;
334 iface->iter_n_children = tree_model_n_children;
335 iface->iter_nth_child = tree_model_nth_child;