- psppire_case_array_delete_cases(data_store->cases,
- data_sheet->range.row0,
- 1 + data_sheet->range.rowi
- - data_sheet->range.row0 );
- }
- break;
-#endif
- case PAGE_VAR_SHEET:
- {
- GtkSheet *var_sheet =
- GTK_SHEET(get_widget_assert(xml, "variable_sheet"));
-
- PsppireVarStore *var_store =
- PSPPIRE_VAR_STORE(gtk_sheet_get_model(var_sheet));
+ switch ( data_sheet->state )
+ {
+ case GTK_SHEET_ROW_SELECTED:
+ psppire_case_file_delete_cases(data_store->case_file,
+ data_sheet->range.rowi
+ - data_sheet->range.row0 + 1,
+ data_sheet->range.row0);
+ break;
+ case GTK_SHEET_COLUMN_SELECTED:
+ {
+ gint fv;
+ struct PsppireVariable *pv =
+ psppire_dict_get_variable(the_dictionary,
+ data_sheet->range.col0);
+ fv = psppire_variable_get_fv(pv);
+
+
+ psppire_dict_delete_variables(the_dictionary,
+ data_sheet->range.col0,
+ 1);
+
+ psppire_case_file_insert_values(data_store->case_file,
+ -1, fv);
+ }
+ break;
+ default:
+ gtk_sheet_cell_clear(data_sheet,
+ data_sheet->active_cell.row,
+ data_sheet->active_cell.col);
+ break;
+ }