1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2007 Free Software Foundation
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 #include "goto-case-dialog.h"
21 #include "psppire-dialog.h"
22 #include "data-editor.h"
23 #include "psppire-data-store.h"
24 #include <gtksheet/gtksheet.h>
28 refresh (const struct data_editor *de, GladeXML *xml)
30 GtkSheet *data_sheet =
31 GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
33 PsppireDataStore *ds =
34 PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
36 GtkWidget *case_num_entry =
37 get_widget_assert (xml, "goto-case-case-num-entry");
39 casenumber case_count =
40 psppire_data_store_get_case_count (ds);
42 gtk_spin_button_set_range (GTK_SPIN_BUTTON (case_num_entry),
47 goto_case_dialog (GObject *o, gpointer data)
50 GladeXML *xml = XML_NEW ("psppire.glade");
51 struct data_editor *de = data;
53 GtkWidget *dialog = get_widget_assert (xml, "goto-case-dialog");
56 gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
60 response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
62 if ( response == PSPPIRE_RESPONSE_GOTO )
65 GtkSheet *data_sheet =
66 GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
69 GtkWidget *case_num_entry =
70 get_widget_assert (xml, "goto-case-case-num-entry");
72 gtk_sheet_get_active_cell (data_sheet, &row, &column);
75 gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (case_num_entry))
78 gtk_sheet_moveto (data_sheet,
82 gtk_sheet_set_active_cell (data_sheet, row, column);