+static gboolean
+on_key_press_event (GtkWindow *window, GdkEventKey *event, gpointer userdata)
+{
+ GtkWidget *focused;
+
+ focused = gtk_window_get_focus (window);
+ if (GTK_IS_SCROLLED_WINDOW (focused)) {
+ GtkAdjustment *vadj;
+ gboolean return_value;
+
+ vadj = gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (focused));
+ switch (event->keyval) {
+ case GDK_Up:
+ case GDK_KP_Up:
+ if (vadj->value > 0.0) {
+ g_signal_emit_by_name (G_OBJECT (focused), "scroll-child", GTK_SCROLL_STEP_UP, FALSE,
+ &return_value);
+ return TRUE;
+ }
+ break;
+ case GDK_Down:
+ case GDK_KP_Down:
+ if (vadj->value < vadj->upper - vadj->page_size) {
+ g_signal_emit_by_name (G_OBJECT (focused), "scroll-child", GTK_SCROLL_STEP_DOWN, FALSE,
+ &return_value);
+ return TRUE;
+ }
+ break;
+ }
+ }
+
+ return FALSE;
+}
+