+
+
+
+void
+on_sort_cases_activate (GtkMenuItem *menuitem,
+ gpointer user_data)
+{
+ gint response;
+ PsppireDataStore *data_store ;
+
+ struct sort_criteria criteria;
+ static struct sort_cases_dialog *dialog ;
+
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+
+ data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
+ if ( NULL == dialog)
+ dialog = sort_cases_dialog_create(xml);
+
+ response = sort_cases_dialog_run(dialog, the_dictionary, &criteria);
+
+ switch ( response)
+ {
+ case GTK_RESPONSE_OK:
+ psppire_case_file_sort(data_store->case_file, &criteria);
+ break;
+ }
+}
+
+
+static void
+insert_case(void)
+{
+ gint row, col;
+ PsppireDataStore *data_store ;
+ GtkSheet *data_sheet = GTK_SHEET(get_widget_assert(xml, "data_sheet"));
+
+ data_store = PSPPIRE_DATA_STORE(gtk_sheet_get_model(data_sheet));
+
+ gtk_sheet_get_active_cell(data_sheet, &row, &col);
+
+ psppire_data_store_insert_new_case(data_store, row);
+}
+
+void
+on_insert_case_clicked (GtkButton *button, gpointer user_data)
+{
+ insert_case();
+}
+
+void
+on_insert_cases (GtkMenuItem *menuitem, gpointer user_data)
+{
+ insert_case();
+}
+
+
+void
+on_insert_variable (GtkMenuItem *menuitem, gpointer user_data)
+{
+ gint row, col;
+ GtkSheet *var_sheet = GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
+
+ gtk_sheet_get_active_cell(var_sheet, &row, &col);
+
+ psppire_dict_insert_variable(the_dictionary, row, NULL);
+}
+
+