-
-/* Update the data_ref_entry with the reference of the active cell */
-static gint
-update_data_ref_entry (const GtkSheet *sheet, gint row, gint col, gpointer data)
-{
- GladeXML *data_editor_xml = data;
-
- PsppireDataStore *data_store =
- PSPPIRE_DATA_STORE (gtk_sheet_get_model (sheet));
-
- g_return_val_if_fail (data_editor_xml, FALSE);
-
- if (data_store)
- {
- const struct variable *var =
- psppire_dict_get_variable (data_store->dict, col);
-
- /* The entry where the reference to the current cell is displayed */
- GtkEntry *cell_ref_entry =
- GTK_ENTRY (get_widget_assert (data_editor_xml,
- "cell_ref_entry"));
- GtkEntry *datum_entry =
- GTK_ENTRY (get_widget_assert (data_editor_xml,
- "datum_entry"));
-
- if ( var )
- {
- gchar *text = g_strdup_printf ("%d: %s", row + FIRST_CASE_NUMBER,
- var_get_name (var));
-
- gchar *s = pspp_locale_to_utf8 (text, -1, 0);
-
- g_free (text);
-
- gtk_entry_set_text (cell_ref_entry, s);
-
- g_free (s);
- }
- else
- gtk_entry_set_text (cell_ref_entry, "");
-
-
- if ( var )
- {
- gchar *text =
- psppire_data_store_get_string (data_store, row,
- var_get_dict_index(var));
- g_strchug (text);
-
- gtk_entry_set_text (datum_entry, text);
-
- free (text);
- }
- else
- gtk_entry_set_text (datum_entry, "");
- }
-
- return FALSE;
-}
-
-
-
-
-
-static void
-do_sort (PsppireDataStore *ds, int var, gboolean descend)
-{
- GString *string = g_string_new ("SORT CASES BY ");
-
- const struct variable *v =
- psppire_dict_get_variable (ds->dict, var);
-
- g_string_append_printf (string, "%s", var_get_name (v));
-
- if ( descend )
- g_string_append (string, " (D)");
-
- g_string_append (string, ".");
-
- execute_syntax (create_syntax_string_source (string->str));
-
- g_string_free (string, TRUE);
-}
-
-
-static void
-sort_up (GtkMenuItem *item, gpointer data)
-{
- GtkSheet *sheet = data;
- GtkSheetRange range;
- gtk_sheet_get_selected_range (sheet, &range);
-
- do_sort (PSPPIRE_DATA_STORE (gtk_sheet_get_model(sheet)),
- range.col0, FALSE);
-
-}
-
-static void
-sort_down (GtkMenuItem *item, gpointer data)
-{
- GtkSheet *sheet = data;
- GtkSheetRange range;
- gtk_sheet_get_selected_range (sheet, &range);
-
- do_sort (PSPPIRE_DATA_STORE (gtk_sheet_get_model(sheet)),
- range.col0, TRUE);
-}
-
-
-
-
-static void