X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fdialog-common.c;h=0aab294e12ef0b2a8ca937851f60533525847619;hb=d43a876351d94acce0e8d565ad2cb4d690727fe9;hp=3f72522117a08dd8034605125d5a130fc3ca45c7;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp-builds.git
diff --git a/src/ui/gui/dialog-common.c b/src/ui/gui/dialog-common.c
index 3f725221..0aab294e 100644
--- a/src/ui/gui/dialog-common.c
+++ b/src/ui/gui/dialog-common.c
@@ -15,18 +15,22 @@
along with this program. If not, see . */
#include
+
#include "dialog-common.h"
+#include "psppire-var-ptr.h"
+
#include "helper.h"
/* Append the names of selected variables to STRING.
TREEVIEW is the treeview containing the variables.
+ COLUMN is the column in the treeview containing the variables.
DICT is the dictionary for those variables.
*/
gint
append_variable_names (GString *string,
- PsppireDict *dict, GtkTreeView *treeview)
+ PsppireDict *dict, GtkTreeView *treeview, gint column)
{
gint n_vars = 0;
GtkTreeIter iter;
@@ -39,12 +43,23 @@ append_variable_names (GString *string,
do
{
GValue value = {0};
- struct variable *var;
+ struct variable *var = NULL;
GtkTreePath *path = gtk_tree_model_get_path (list_store, &iter);
- gtk_tree_model_get_value (list_store, &iter, 0, &value);
+ gtk_tree_model_get_value (list_store, &iter, column, &value);
+ /* FIXME: G_TYPE_INT should be deprecated.
+ As well as being simpler, it'd be unecessary to pass dict */
+ if ( G_VALUE_TYPE (&value) == G_TYPE_INT )
var = psppire_dict_get_variable (dict, g_value_get_int (&value));
+
+ else if ( G_VALUE_TYPE (&value) == PSPPIRE_VAR_PTR_TYPE)
+ var = g_value_get_boxed (&value);
+
+ else
+ g_critical ("Unsupported type \"%s\", in variable name treeview.",
+ G_VALUE_TYPE_NAME (&value));
+
g_value_unset (&value);
g_string_append (string, " ");
@@ -136,6 +151,153 @@ set_dest_model (GtkTreeView *dest, PsppireDict *dict)
gtk_tree_view_column_set_sizing (col, GTK_TREE_VIEW_COLUMN_FIXED);
- gtk_tree_view_append_column (GTK_TREE_VIEW(dest), col);
+ gtk_tree_view_append_column (GTK_TREE_VIEW (dest), col);
+}
+
+
+
+/* Returns FALSE if the variables represented by the union of the rows
+ currently selected by SOURCE widget, and contents of the DEST
+ widget, are of different types.
+
+ In other words, this function when passed as the argument to
+ psppire_selector_set_allow, ensures that the selector selects only
+ string variables, or only numeric variables, not a mixture.
+*/
+gboolean
+homogeneous_types (GtkWidget *source, GtkWidget *dest)
+{
+ gboolean ok;
+ GtkTreeIter iter;
+ gboolean retval = TRUE;
+
+ GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (source));
+
+ PsppireDict *dict;
+ GtkTreeSelection *selection;
+ enum val_type type = -1;
+ GList *list, *l;
+
+ while (GTK_IS_TREE_MODEL_FILTER (model))
+ {
+ model = gtk_tree_model_filter_get_model (GTK_TREE_MODEL_FILTER (model));
+ }
+
+ dict = PSPPIRE_DICT (model);
+
+ selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (source));
+
+ list = gtk_tree_selection_get_selected_rows (selection, &model);
+
+ /* Iterate through the selection of the source treeview */
+ for (l = list; l ; l = l->next)
+ {
+ GtkTreePath *path = l->data;
+
+ GtkTreePath *fpath =
+ gtk_tree_model_filter_convert_path_to_child_path (GTK_TREE_MODEL_FILTER (model), path);
+
+ gint *idx = gtk_tree_path_get_indices (fpath);
+
+ const struct variable *v = psppire_dict_get_variable (dict, idx[0]);
+
+ gtk_tree_path_free (fpath);
+
+ if ( type != -1 )
+ {
+ if ( var_get_type (v) != type )
+ {
+ retval = FALSE;
+ break;
+ }
+ }
+
+ type = var_get_type (v);
+ }
+
+ g_list_foreach (list, (GFunc) gtk_tree_path_free, NULL);
+ g_list_free (list);
+
+ if ( retval == FALSE )
+ return FALSE;
+
+ /* now deal with the dest widget */
+ model = gtk_tree_view_get_model (GTK_TREE_VIEW (dest));
+
+ for (ok = gtk_tree_model_get_iter_first (model, &iter);
+ ok;
+ ok = gtk_tree_model_iter_next (model, &iter))
+ {
+ gint idx;
+ const struct variable *v;
+ gtk_tree_model_get (model, &iter, 0, &idx, -1);
+
+ v = psppire_dict_get_variable (dict, idx);
+
+ if ( type != -1 )
+ {
+ if ( var_get_type (v) != type )
+ {
+ retval = FALSE;
+ break;
+ }
+ }
+
+ type = var_get_type (v);
+ }
+
+
+ return retval;
+}
+
+
+
+/* Returns true iff the variable selected by SOURCE is numeric */
+gboolean
+numeric_only (GtkWidget *source, GtkWidget *dest)
+{
+ gboolean retval = TRUE;
+
+ GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (source));
+
+ PsppireDict *dict;
+ GtkTreeSelection *selection;
+ GList *list, *l;
+
+ while (GTK_IS_TREE_MODEL_FILTER (model))
+ {
+ model = gtk_tree_model_filter_get_model (GTK_TREE_MODEL_FILTER (model));
+ }
+
+ dict = PSPPIRE_DICT (model);
+
+ selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (source));
+
+ list = gtk_tree_selection_get_selected_rows (selection, &model);
+
+ /* Iterate through the selection of the source treeview */
+ for (l = list; l ; l = l->next)
+ {
+ GtkTreePath *path = l->data;
+ GtkTreePath *fpath = gtk_tree_model_filter_convert_path_to_child_path
+ (GTK_TREE_MODEL_FILTER (model), path);
+
+ gint *idx = gtk_tree_path_get_indices (fpath);
+
+ const struct variable *v = psppire_dict_get_variable (dict, idx[0]);
+
+ gtk_tree_path_free (fpath);
+
+ if ( var_is_alpha (v))
+ {
+ retval = FALSE;
+ break;
+ }
+ }
+
+ g_list_foreach (list, (GFunc) gtk_tree_path_free, NULL);
+ g_list_free (list);
+
+ return retval;
}