+static gint
+__tree_model_iter_n_children (GtkTreeModel *tree_model,
+ GtkTreeIter *iter)
+{
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (tree_model);
+
+ gint n = datasheet_get_n_rows (store->datasheet);
+
+ return n;
+}
+
+static GtkTreeModelFlags
+__tree_model_get_flags (GtkTreeModel *model)
+{
+ g_return_val_if_fail (PSPPIRE_IS_DATA_STORE (model), (GtkTreeModelFlags) 0);
+
+ return GTK_TREE_MODEL_LIST_ONLY;
+}
+
+static gint
+__tree_model_get_n_columns (GtkTreeModel *tree_model)
+{
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (tree_model);
+
+ return psppire_dict_get_value_cnt (store->dict);
+}
+
+
+static gboolean
+__iter_nth_child (GtkTreeModel *tree_model,
+ GtkTreeIter *iter,
+ GtkTreeIter *parent,
+ gint n)
+{
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (tree_model);
+
+ g_assert (parent == NULL);
+
+ g_return_val_if_fail (store, FALSE);
+ g_return_val_if_fail (store->datasheet, FALSE);
+
+ if (n >= datasheet_get_n_rows (store->datasheet))
+ {
+ iter->stamp = -1;
+ iter->user_data = NULL;
+ return FALSE;
+ }
+
+ iter->user_data = n;
+ return TRUE;
+}
+
+
+
+static void
+__get_value (GtkTreeModel *tree_model,
+ GtkTreeIter *iter,
+ gint column,
+ GValue *value)
+{
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (tree_model);
+
+ const struct variable *variable = psppire_dict_get_variable (store->dict, column);
+
+ if (var_is_numeric (variable))
+ g_value_init (value, G_TYPE_DOUBLE);
+ else
+ g_value_init (value, G_TYPE_STRING);
+
+ gint row = GPOINTER_TO_INT (iter->user_data);
+
+ struct ccase *cc = datasheet_get_row (store->datasheet, row);
+
+ if (var_is_numeric (variable))
+ g_value_set_double (value, case_data_idx (cc, column)->f);
+ else
+ {
+ const gchar *ss = value_str (case_data_idx (cc, column),
+ var_get_width (variable));
+ g_value_set_string (value, ss);
+ }
+ case_unref (cc);
+}
+
+
+static GType
+__get_type (GtkTreeModel *tree_model, gint idx)
+{
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (tree_model);
+
+ const struct variable *variable = psppire_dict_get_variable (store->dict, idx);
+
+ if (var_is_numeric (variable))
+ return G_TYPE_DOUBLE;
+
+ return G_TYPE_STRING;
+}
+
+static void
+__tree_model_init (GtkTreeModelIface *iface)
+{
+ iface->get_flags = __tree_model_get_flags;
+ iface->get_n_columns = __tree_model_get_n_columns ;
+ iface->get_column_type = __get_type;
+ iface->get_iter = NULL;
+ iface->iter_next = NULL;
+ iface->get_path = NULL;
+ iface->get_value = __get_value;
+
+ iface->iter_children = NULL;
+ iface->iter_has_child = NULL;
+ iface->iter_n_children = __tree_model_iter_n_children;
+ iface->iter_nth_child = __iter_nth_child;
+ iface->iter_parent = NULL;
+}
+