1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 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/>. */
22 #include "psppire-conf.h"
23 #include "dict-display.h"
25 #include "psppire-dict.h"
26 #include "psppire-dictview.h"
27 #include "psppire-means-layer.h"
28 #include "psppire-var-ptr.h"
29 #include "psppire-var-view.h"
30 #include "psppire-select-dest.h"
31 #include <libpspp/i18n.h>
33 #include <data/variable.h>
34 #include <data/format.h>
36 #define _(msgid) gettext (msgid)
37 #define N_(msgid) msgid
40 get_base_model (GtkTreeModel *top_model, GtkTreeIter *top_iter,
41 GtkTreeModel **model, GtkTreeIter *iter
46 while (GTK_IS_TREE_MODEL_FILTER (*model))
48 GtkTreeIter parent_iter = *iter;
49 GtkTreeModelFilter *parent_model = GTK_TREE_MODEL_FILTER (*model);
51 *model = gtk_tree_model_filter_get_model (parent_model);
53 gtk_tree_model_filter_convert_iter_to_child_iter (parent_model,
58 g_assert (PSPPIRE_IS_DICT (*model));
63 insert_source_row_into_entry (GtkTreeIter iter,
73 GtkTreeIter dict_iter;
75 g_return_if_fail (GTK_IS_ENTRY(dest));
77 get_base_model (model, &iter, &dict, &dict_iter);
79 path = gtk_tree_model_get_path (GTK_TREE_MODEL (dict), &dict_iter);
81 idx = gtk_tree_path_get_indices (path);
83 var = psppire_dict_get_variable (PSPPIRE_DICT (dict), *idx);
85 gtk_tree_path_free (path);
87 gtk_entry_set_text (GTK_ENTRY (dest), var_get_name (var));
93 insert_source_row_into_tree_model (GtkTreeIter source_iter,
94 GtkTreeModel *dest_model,
95 GtkTreeModel *source_model,
99 GtkTreeIter dest_iter;
100 GtkTreeIter dict_iter;
103 const struct variable *var;
106 get_base_model (source_model, &source_iter, &dict, &dict_iter);
108 path = gtk_tree_model_get_path (dict, &dict_iter);
110 row = gtk_tree_path_get_indices (path);
112 var = psppire_dict_get_variable (PSPPIRE_DICT (dict), *row);
114 gtk_list_store_append (GTK_LIST_STORE (dest_model), &dest_iter);
116 gtk_list_store_set (GTK_LIST_STORE (dest_model), &dest_iter, 0, var, -1);
118 gtk_tree_path_free (path);
124 insert_source_row_into_tree_view (GtkTreeIter iter,
129 GtkTreeModel *destmodel = gtk_tree_view_get_model (GTK_TREE_VIEW (dest));
131 insert_source_row_into_tree_model (iter, destmodel, model, data);
136 insert_source_row_into_layers (GtkTreeIter iter,
141 GtkTreeModel *destmodel = psppire_means_layer_get_model (PSPPIRE_MEANS_LAYER (dest));
143 insert_source_row_into_tree_model (iter, destmodel, model, data);
145 psppire_means_layer_update (PSPPIRE_MEANS_LAYER (dest));
152 is_currently_in_entry (GtkTreeModel *model, GtkTreeIter *iter,
153 PsppireSelector *selector)
156 GtkTreeIter dict_iter;
158 struct variable *var;
162 GtkWidget *entry = NULL;
163 const gchar *text = NULL;
165 g_object_get (selector, "dest-widget", &entry, NULL);
167 text = gtk_entry_get_text (GTK_ENTRY (entry));
169 get_base_model (model, iter, &dict, &dict_iter);
171 path = gtk_tree_model_get_path (dict, &dict_iter);
173 indeces = gtk_tree_path_get_indices (path);
175 dict_index = indeces [0];
177 var = psppire_dict_get_variable (PSPPIRE_DICT (dict), dict_index);
179 gtk_tree_path_free (path);
181 result = ( 0 == strcmp (text, var_get_name (var) ));
187 is_currently_in_varview (GtkTreeModel *model, GtkTreeIter *iter, PsppireSelector *sel)
189 gboolean ret = false;
191 /* First, fetch the variable from the source */
193 PsppireDictView *dv = PSPPIRE_DICT_VIEW (sel->source);
195 GtkTreePath *path = gtk_tree_model_get_path (model, iter);
197 gint *idx = gtk_tree_path_get_indices (path);
199 const struct variable *var = psppire_dict_get_variable (dv->dict, *idx);
202 /* Now test if that variable exists in the destination */
206 g_value_init (&value, PSPPIRE_VAR_PTR_TYPE);
207 g_value_set_boxed (&value, var);
209 ret = psppire_select_dest_widget_contains_var (PSPPIRE_SELECT_DEST_WIDGET (sel->dest), &value);
211 g_value_unset (&value);