+
+
+
+/* Callback for when the Clear item in the edit menu is activated */
+static void
+on_clear_activate (GtkMenuItem *menuitem, gpointer data)
+{
+ struct data_editor *de = data;
+
+ GtkNotebook *notebook = GTK_NOTEBOOK (get_widget_assert (de->xml,
+ "notebook"));
+
+ switch ( gtk_notebook_get_current_page (notebook) )
+ {
+ case PAGE_VAR_SHEET:
+ {
+ GtkSheet *var_sheet =
+ GTK_SHEET (get_widget_assert (de->xml, "variable_sheet"));
+
+ PsppireVarStore *vs = PSPPIRE_VAR_STORE
+ (gtk_sheet_get_model (var_sheet) );
+
+ /* This shouldn't be able to happen, because the menuitem
+ should be disabled */
+ g_return_if_fail (var_sheet->state == GTK_SHEET_ROW_SELECTED );
+
+ psppire_dict_delete_variables (vs->dict,
+ var_sheet->range.row0,
+ 1 +
+ var_sheet->range.rowi -
+ var_sheet->range.row0 );
+ }
+ break;
+ case PAGE_DATA_SHEET:
+ break;
+ default:
+ g_assert_not_reached ();
+ }
+}