+ /* Iterate through the selection of the source treeview */
+ have_type = false;
+ 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 (have_type && var_get_type (v) != type)
+ {
+ retval = FALSE;
+ break;
+ }
+
+ type = var_get_type (v);
+ have_type = true;
+ }
+
+ 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))
+ {
+ const struct variable *v;
+ gtk_tree_model_get (model, &iter, 0, &v, -1);
+
+ if ( have_type && var_get_type (v) != type )
+ {
+ retval = FALSE;
+ break;
+ }
+
+ type = var_get_type (v);
+ have_type = true;