Implemented the goto-case dialog

[pspp-builds.git] / src / ui / gui / goto-case-dialog.c

diff --git a/src/ui/gui/goto-case-dialog.c b/src/ui/gui/goto-case-dialog.c
new file mode 100644 (file)
index 0000000..32e93db
--- /dev/null
+++ b/src/ui/gui/goto-case-dialog.c
@@ -0,0 +1,83 @@
+/* PSPPIRE - a graphical user interface for PSPP.
+   Copyright (C) 2007  Free Software Foundation
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>. */
+
+
+#include "goto-case-dialog.h"
+#include "helper.h"
+#include "psppire-dialog.h"
+#include "data-editor.h"
+#include "psppire-data-store.h"
+#include <gtksheet/gtksheet.h>
+
+
+static void
+refresh (const struct data_editor *de, GladeXML *xml)
+{
+  GtkSheet *data_sheet =
+    GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
+
+  PsppireDataStore *ds =
+    PSPPIRE_DATA_STORE (gtk_sheet_get_model (data_sheet));
+
+  GtkWidget *case_num_entry =
+    get_widget_assert (xml, "goto-case-case-num-entry");
+
+  casenumber case_count =
+    psppire_data_store_get_case_count (ds);
+
+  gtk_spin_button_set_range (GTK_SPIN_BUTTON (case_num_entry),
+                            1, case_count);
+}
+
+void
+goto_case_dialog (GObject *o, gpointer data)
+{
+  gint response;
+  GladeXML *xml = XML_NEW ("psppire.glade");
+  struct data_editor *de = data;
+
+  GtkWidget *dialog = get_widget_assert   (xml, "goto-case-dialog");
+
+
+  gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window);
+
+  refresh (de, xml);
+
+  response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
+
+  if ( response == PSPPIRE_RESPONSE_GOTO )
+    {
+      gint row, column;
+      GtkSheet *data_sheet =
+       GTK_SHEET (get_widget_assert (de->xml, "data_sheet"));
+
+
+      GtkWidget *case_num_entry =
+       get_widget_assert (xml, "goto-case-case-num-entry");
+
+      gtk_sheet_get_active_cell (data_sheet, &row, &column);
+
+      row =
+       gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (case_num_entry))
+       - FIRST_CASE_NUMBER ;
+
+      gtk_sheet_moveto (data_sheet,
+                       row, column,
+                       0.5, 0.5);
+
+      gtk_sheet_set_active_cell (data_sheet, row, column);
+    }
+}