+static gboolean
+indicate_filtered_case (GtkWidget *widget, cairo_t *cr, PsppireDataStore *store)
+{
+ guint row = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (widget), "row"));
+
+ if (!psppire_data_store_filtered (store, row))
+ return FALSE;
+
+ /* Draw a diagonal line through the widget */
+ guint width = gtk_widget_get_allocated_width (widget);
+ guint height = gtk_widget_get_allocated_height (widget);
+
+ GtkStyleContext *sc = gtk_widget_get_style_context (widget);
+ gtk_render_line (sc, cr, 0, 0, width, height);
+
+ return FALSE;
+}
+
+static void
+button_post_create (GtkWidget *button, guint i, gpointer user_data)
+{
+ PsppireDataStore *data_store = PSPPIRE_DATA_STORE (user_data);
+
+ g_object_set_data (G_OBJECT (button), "row", GUINT_TO_POINTER (i));
+ g_signal_connect_after (button, "draw", G_CALLBACK (indicate_filtered_case), data_store);
+}
+
+
+static gboolean
+resize_display_width (PsppireDict *dict, gint pos, gint size, gpointer user_data)
+{
+ if (pos < 0)
+ return FALSE;
+
+ PsppireDataSheet *sheet = PSPPIRE_DATA_SHEET (user_data);
+ PangoContext *context = gtk_widget_create_pango_context (GTK_WIDGET (sheet));
+ PangoLayout *layout = pango_layout_new (context);
+ PangoRectangle rect;
+
+ pango_layout_set_text (layout, "M", 1);
+ pango_layout_get_extents (layout, NULL, &rect);
+
+ gdouble width_of_M = rect.width / (gdouble) PANGO_SCALE;
+
+ g_object_unref (G_OBJECT (layout));
+ g_object_unref (G_OBJECT (context));
+
+ gint Ms = round ((size / width_of_M) - 0.25);
+ struct variable *var = psppire_dict_get_variable (dict, pos);
+ g_return_val_if_fail (var, TRUE);
+ var_set_display_width (var, Ms);
+ return TRUE;
+}
+
+static void
+set_dictionary (PsppireDataSheet *sheet)
+{
+ GtkTreeModel *data_model = NULL;
+ g_object_get (sheet, "data-model", &data_model, NULL);
+
+ PsppireDataStore *store = PSPPIRE_DATA_STORE (data_model);
+ g_object_set (sheet, "hmodel", store->dict, NULL);
+
+ g_signal_connect (store->dict, "resize-item", G_CALLBACK (resize_display_width),
+ sheet);
+
+ SswAxisModel *vmodel = NULL;
+ g_object_get (sheet, "vmodel", &vmodel, NULL);
+ g_assert (SSW_IS_AXIS_MODEL (vmodel));
+
+ g_object_set (vmodel,
+ "post-button-create-func", button_post_create,
+ "post-button-create-func-data", store,
+ NULL);
+}
+
+static void
+move_variable (PsppireDataSheet *sheet, gint from, gint to, gpointer ud)
+{
+ PsppireDataStore *data_store = NULL;
+ g_object_get (sheet, "data-model", &data_store, NULL);
+
+ if (data_store == NULL)
+ return;
+
+ PsppireDict *dict = data_store->dict;
+ struct variable *var = psppire_dict_get_variable (dict, from);
+
+ if (var == NULL)
+ return;
+ gint new_pos = to;
+ /* The index refers to the final position, so if the source
+ is less than the destination, then we must subtract 1, to
+ account for the position vacated by the source */
+ if (from < to)
+ new_pos--;
+ dict_reorder_var (dict->dict, var, new_pos);
+}
+