]> Pileus Git - ~andy/gtk/blobdiff - gtk/gtkvscale.c
Updated galician translations
[~andy/gtk] / gtk / gtkvscale.c
index b60425ce2c2dae57d73ab1ffd2e2bee90b4d0085..af7fa4073ab8b49dc1c51aa600b6888b52b9510f 100644 (file)
 /* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ * Copyright (C) 2001 Red Hat, Inc.
  *
  * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
+ * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2 of the License, or (at your option) any later version.
  *
  * This library 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
- * Library General Public License for more details.
+ * Lesser General Public License for more details.
  *
- * You should have received a copy of the GNU Library General Public
+ * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the
  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  * Boston, MA 02111-1307, USA.
  */
-#include <stdio.h>
-#include "gtkvscale.h"
-#include "gtksignal.h"
-#include "gdk/gdkkeysyms.h"
 
+/*
+ * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
+ * file for a list of people on the GTK+ Team.  See the ChangeLog
+ * files for a list of changes.  These files are distributed with
+ * GTK+ at ftp://ftp.gtk.org/pub/gtk/.
+ */
 
-#define SCALE_CLASS(w)  GTK_SCALE_CLASS (GTK_OBJECT (w)->klass)
-#define RANGE_CLASS(w)  GTK_RANGE_CLASS (GTK_OBJECT (w)->klass)
+#include "config.h"
 
-enum {
-  ARG_0,
-  ARG_ADJUSTMENT,
-};
+#include <math.h>
+#include <stdlib.h>
 
-static void gtk_vscale_class_init    (GtkVScaleClass *klass);
-static void gtk_vscale_init          (GtkVScale      *vscale);
-static void gtk_vscale_set_arg       (GtkObject      *object,
-                                      GtkArg         *arg,
-                                      guint           arg_id);
-static void gtk_vscale_get_arg       (GtkObject      *object,
-                                      GtkArg         *arg,
-                                      guint           arg_id);
-static void gtk_vscale_realize       (GtkWidget      *widget);
-static void gtk_vscale_size_request  (GtkWidget      *widget,
-                                      GtkRequisition *requisition);
-static void gtk_vscale_size_allocate (GtkWidget      *widget,
-                                      GtkAllocation  *allocation);
-static void gtk_vscale_pos_trough    (GtkVScale      *vscale,
-                                      gint           *x,
-                                      gint           *y,
-                                      gint           *w,
-                                      gint           *h);
-static void gtk_vscale_pos_background (GtkVScale     *vscale,
-                                       gint          *x,
-                                       gint          *y,
-                                       gint          *w,
-                                       gint          *h);
-static void gtk_vscale_draw_slider   (GtkRange       *range);
-static void gtk_vscale_draw_value    (GtkScale       *scale);
-static void gtk_vscale_draw          (GtkWidget      *widget,
-                                      GdkRectangle   *area);
-static gint gtk_vscale_trough_keys   (GtkRange *range,
-                                      GdkEventKey *key,
-                                      GtkScrollType *scroll,
-                                      GtkTroughType *pos);
-static void gtk_vscale_clear_background (GtkRange    *range);
+#include "gtkvscale.h"
+#include "gtkorientable.h"
 
-GtkType
-gtk_vscale_get_type (void)
-{
-  static GtkType vscale_type = 0;
-  
-  if (!vscale_type)
-    {
-      GtkTypeInfo vscale_info =
-      {
-        "GtkVScale",
-        sizeof (GtkVScale),
-        sizeof (GtkVScaleClass),
-        (GtkClassInitFunc) gtk_vscale_class_init,
-        (GtkObjectInitFunc) gtk_vscale_init,
-        /* reserved_1 */ NULL,
-        /* reserved_2 */ NULL,
-        (GtkClassInitFunc) NULL,
-      };
-      
-      vscale_type = gtk_type_unique (GTK_TYPE_SCALE, &vscale_info);
-    }
-  
-  return vscale_type;
-}
 
-static void
-gtk_vscale_class_init (GtkVScaleClass *class)
-{
-  GtkObjectClass *object_class;
-  GtkWidgetClass *widget_class;
-  GtkRangeClass *range_class;
-  GtkScaleClass *scale_class;
-  
-  object_class = (GtkObjectClass*) class;
-  widget_class = (GtkWidgetClass*) class;
-  range_class = (GtkRangeClass*) class;
-  scale_class = (GtkScaleClass*) class;
-  
-  gtk_object_add_arg_type ("GtkVScale::adjustment",
-                           GTK_TYPE_ADJUSTMENT,
-                           GTK_ARG_READWRITE | GTK_ARG_CONSTRUCT,
-                           ARG_ADJUSTMENT);
-  
-  object_class->set_arg = gtk_vscale_set_arg;
-  object_class->get_arg = gtk_vscale_get_arg;
-  
-  widget_class->realize = gtk_vscale_realize;
-  widget_class->size_request = gtk_vscale_size_request;
-  widget_class->size_allocate = gtk_vscale_size_allocate;
-  widget_class->draw = gtk_vscale_draw;
-  
-  range_class->slider_update = gtk_range_default_vslider_update;
-  range_class->trough_click = gtk_range_default_vtrough_click;
-  range_class->motion = gtk_range_default_vmotion;
-  range_class->draw_slider = gtk_vscale_draw_slider;
-  range_class->trough_keys = gtk_vscale_trough_keys;
-  range_class->clear_background = gtk_vscale_clear_background;
-  
-  scale_class->draw_value = gtk_vscale_draw_value;
-}
+/**
+ * SECTION:gtkvscale
+ * @Short_description: A vertical slider widget for selecting a value from a range
+ * @Title: GtkVScale
+ *
+ * The #GtkVScale widget is used to allow the user to select a value using
+ * a vertical slider. To create one, use gtk_hscale_new_with_range().
+ *
+ * The position to show the current value, and the number of decimal places
+ * shown can be set using the parent #GtkScale class's functions.
+ */
 
-static void
-gtk_vscale_set_arg (GtkObject          *object,
-                    GtkArg             *arg,
-                    guint               arg_id)
-{
-  GtkVScale *vscale;
-  
-  vscale = GTK_VSCALE (object);
-  
-  switch (arg_id)
-    {
-    case ARG_ADJUSTMENT:
-      gtk_range_set_adjustment (GTK_RANGE (vscale), GTK_VALUE_POINTER (*arg));
-      break;
-    default:
-      break;
-    }
-}
+G_DEFINE_TYPE (GtkVScale, gtk_vscale, GTK_TYPE_SCALE)
 
 static void
-gtk_vscale_get_arg (GtkObject          *object,
-                    GtkArg             *arg,
-                    guint               arg_id)
+gtk_vscale_class_init (GtkVScaleClass *class)
 {
-  GtkVScale *vscale;
-  
-  vscale = GTK_VSCALE (object);
-  
-  switch (arg_id)
-    {
-    case ARG_ADJUSTMENT:
-      GTK_VALUE_POINTER (*arg) = GTK_RANGE (vscale);
-      break;
-    default:
-      arg->type = GTK_TYPE_INVALID;
-      break;
-    }
+  GtkRangeClass *range_class = GTK_RANGE_CLASS (class);
+
+  range_class->slider_detail = "vscale";
 }
 
 static void
 gtk_vscale_init (GtkVScale *vscale)
 {
-  GTK_WIDGET_SET_FLAGS (vscale, GTK_NO_WINDOW);
+  gtk_orientable_set_orientation (GTK_ORIENTABLE (vscale),
+                                  GTK_ORIENTATION_VERTICAL);
 }
-
-GtkWidget*
+/**
+ * gtk_vscale_new:
+ * @adjustment: the #GtkAdjustment which sets the range of the scale.
+ *
+ * Creates a new #GtkVScale.
+ *
+ * Returns: a new #GtkVScale.
+ */
+GtkWidget *
 gtk_vscale_new (GtkAdjustment *adjustment)
 {
-  GtkWidget *vscale;
-  
-  vscale = gtk_widget_new (GTK_TYPE_VSCALE,
-                          "adjustment", adjustment,
-                          NULL);
-  
-  return vscale;
-}
-
-
-static void
-gtk_vscale_realize (GtkWidget *widget)
-{
-  GtkRange *range;
-  GdkWindowAttr attributes;
-  gint attributes_mask;
-  gint x, y, w, h;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (widget));
-  
-  GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
-  range = GTK_RANGE (widget);
-  
-  widget->window = gtk_widget_get_parent_window (widget);
-  gdk_window_ref (widget->window);
-  
-  gtk_vscale_pos_trough (GTK_VSCALE (widget), &x, &y, &w, &h);
-  
-  attributes.x = x;
-  attributes.y = y;
-  attributes.width = w;
-  attributes.height = h;
-  attributes.wclass = GDK_INPUT_OUTPUT;
-  attributes.window_type = GDK_WINDOW_CHILD;
-         
-  attributes.event_mask = gtk_widget_get_events (widget) | 
-    (GDK_EXPOSURE_MASK |
-     GDK_BUTTON_PRESS_MASK |
-     GDK_BUTTON_RELEASE_MASK |
-     GDK_ENTER_NOTIFY_MASK |
-     GDK_LEAVE_NOTIFY_MASK);
-  attributes.visual = gtk_widget_get_visual (widget);
-  attributes.colormap = gtk_widget_get_colormap (widget);
-  
-  attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP;
-  
-  range->trough = gdk_window_new (widget->window, &attributes, attributes_mask);
-  
-  attributes.width = RANGE_CLASS (range)->slider_width;
-  attributes.height = SCALE_CLASS (range)->slider_length;
-  attributes.event_mask |= (GDK_BUTTON_MOTION_MASK |
-                            GDK_POINTER_MOTION_HINT_MASK);
-  
-  range->slider = gdk_window_new (range->trough, &attributes, attributes_mask);
-  
-  widget->style = gtk_style_attach (widget->style, widget->window);
-  
-  gdk_window_set_user_data (range->trough, widget);
-  gdk_window_set_user_data (range->slider, widget);
-  
-  gtk_style_set_background (widget->style, range->trough, GTK_STATE_ACTIVE);
-  gtk_style_set_background (widget->style, range->slider, GTK_STATE_NORMAL);
-  
-  gtk_range_slider_update (GTK_RANGE (widget));
-  
-  gdk_window_show (range->slider);
-}
+  g_return_val_if_fail (adjustment == NULL || GTK_IS_ADJUSTMENT (adjustment),
+                        NULL);
 
-static void
-gtk_vscale_draw (GtkWidget    *widget,
-                 GdkRectangle *area)
-{
-  GtkRange *range;
-  GdkRectangle tmp_area;
-  GdkRectangle child_area;
-  gint x, y, width, height;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_RANGE (widget));
-  g_return_if_fail (area != NULL);
-  
-  if (GTK_WIDGET_VISIBLE (widget) && GTK_WIDGET_MAPPED (widget))
-    {
-      range = GTK_RANGE (widget);
-      
-      gtk_vscale_pos_background (GTK_VSCALE (widget), &x, &y, &width, &height);
-      
-      tmp_area.x = x;
-      tmp_area.y = y;
-      tmp_area.width = width;
-      tmp_area.height = height;
-      
-      if (gdk_rectangle_intersect (area, &tmp_area, &child_area))
-        gtk_range_draw_background (range);
-      
-      gtk_vscale_pos_trough (GTK_VSCALE (widget), &x, &y, &width, &height);
-      
-      tmp_area.x = x;
-      tmp_area.y = y;
-      tmp_area.width = width;
-      tmp_area.height = height;
-      
-      if (gdk_rectangle_intersect (area, &tmp_area, &child_area))
-        {
-          gtk_range_draw_trough (range);
-          gtk_range_draw_slider (range);
-          gtk_range_draw_step_forw (range);
-          gtk_range_draw_step_back (range);
-        }
-    }
+  return g_object_new (GTK_TYPE_VSCALE,
+                       "adjustment", adjustment,
+                       NULL);
 }
 
-static void
-gtk_vscale_clear_background (GtkRange    *range)
-{
-  GtkWidget *widget;
+/**
+ * gtk_vscale_new_with_range:
+ * @min: minimum value
+ * @max: maximum value
+ * @step: step increment (tick size) used with keyboard shortcuts
+ *
+ * Creates a new vertical scale widget that lets the user input a
+ * number between @min and @max (including @min and @max) with the
+ * increment @step.  @step must be nonzero; it's the distance the
+ * slider moves when using the arrow keys to adjust the scale value.
+ *
+ * Note that the way in which the precision is derived works best if @step
+ * is a power of ten. If the resulting precision is not suitable for your
+ * needs, use gtk_scale_set_digits() to correct it.
+ *
+ * Return value: a new #GtkVScale
+ **/
+GtkWidget *
+gtk_vscale_new_with_range (gdouble min,
+                           gdouble max,
+                           gdouble step)
+{
+  GtkAdjustment *adj;
   GtkScale *scale;
-  gint x, y, width, height;
-  
-  g_return_if_fail (range != NULL);
-  g_return_if_fail (GTK_IS_SCALE (range));
-  
-  widget = GTK_WIDGET (range);
-  scale = GTK_SCALE (range);
-  
-  gtk_vscale_pos_background (GTK_VSCALE (widget), &x, &y, &width, &height);
-  
-  gtk_widget_queue_clear_area (GTK_WIDGET (range),
-                               x, y, width, height);
-}
+  gint digits;
 
-static void
-gtk_vscale_size_request (GtkWidget      *widget,
-                         GtkRequisition *requisition)
-{
-  GtkScale *scale;
-  gint value_width;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (widget));
-  g_return_if_fail (requisition != NULL);
-  
-  scale = GTK_SCALE (widget);
-  
-  requisition->width = (RANGE_CLASS (scale)->slider_width +
-                        widget->style->klass->ythickness * 2);
-  requisition->height = (SCALE_CLASS (scale)->slider_length +
-                         widget->style->klass->xthickness) * 2;
-  
-  if (scale->draw_value)
-    {
-      value_width = gtk_scale_get_value_width (scale);
-      
-      if ((scale->value_pos == GTK_POS_LEFT) ||
-          (scale->value_pos == GTK_POS_RIGHT))
-        {
-          requisition->width += value_width + SCALE_CLASS (scale)->value_spacing;
-          if (requisition->height < (widget->style->font->ascent + widget->style->font->descent))
-            requisition->height = widget->style->font->ascent + widget->style->font->descent;
-        }
-      else if ((scale->value_pos == GTK_POS_TOP) ||
-               (scale->value_pos == GTK_POS_BOTTOM))
-        {
-          if (requisition->width < value_width)
-            requisition->width = value_width;
-          requisition->height += widget->style->font->ascent + widget->style->font->descent;
-        }
-    }
-}
+  g_return_val_if_fail (min < max, NULL);
+  g_return_val_if_fail (step != 0.0, NULL);
 
-static void
-gtk_vscale_size_allocate (GtkWidget     *widget,
-                          GtkAllocation *allocation)
-{
-  GtkRange *range;
-  GtkScale *scale;
-  gint width, height;
-  gint x, y;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (widget));
-  g_return_if_fail (allocation != NULL);
-  
-  widget->allocation = *allocation;
-  if (GTK_WIDGET_REALIZED (widget))
-    {
-      range = GTK_RANGE (widget);
-      scale = GTK_SCALE (widget);
-      
-      gtk_vscale_pos_trough (GTK_VSCALE (widget), &x, &y, &width, &height);
-      
-      gdk_window_move_resize (range->trough, x, y, width, height);
-      gtk_range_slider_update (GTK_RANGE (widget));
-    }
-}
+  adj = gtk_adjustment_new (min, min, max, step, 10 * step, 0);
 
-static void
-gtk_vscale_pos_trough (GtkVScale *vscale,
-                       gint      *x,
-                       gint      *y,
-                       gint      *w,
-                       gint      *h)
-{
-  GtkWidget *widget;
-  GtkScale *scale;
-  
-  g_return_if_fail (vscale != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (vscale));
-  g_return_if_fail ((x != NULL) && (y != NULL) && (w != NULL) && (h != NULL));
-  
-  widget = GTK_WIDGET (vscale);
-  scale = GTK_SCALE (vscale);
-  
-  *w = (RANGE_CLASS (scale)->slider_width +
-        widget->style->klass->xthickness * 2);
-  *h = widget->allocation.height;
-  
-  if (scale->draw_value)
+  if (fabs (step) >= 1.0 || step == 0.0)
     {
-      *x = 0;
-      *y = 0;
-      
-      switch (scale->value_pos)
-        {
-        case GTK_POS_LEFT:
-          *x = (gtk_scale_get_value_width (scale) +
-                (widget->allocation.width - widget->requisition.width) / 2);
-          break;
-        case GTK_POS_RIGHT:
-          *x = (widget->allocation.width - widget->requisition.width) / 2;
-          break;
-        case GTK_POS_TOP:
-          *x = (widget->allocation.width - *w) / 2;
-          *y = widget->style->font->ascent + widget->style->font->descent;
-          *h -= *y;
-          break;
-        case GTK_POS_BOTTOM:
-          *x = (widget->allocation.width - *w) / 2;
-          *h -= widget->style->font->ascent + widget->style->font->descent;
-          break;
-        }
+      digits = 0;
     }
   else
     {
-      *x = (widget->allocation.width - *w) / 2;
-      *y = 0;
-    }
-  *y += 1;
-  *h -= 2;
-  
-  *x += widget->allocation.x;
-  *y += widget->allocation.y;
-}
-
-static void
-gtk_vscale_pos_background (GtkVScale *vscale,
-                           gint      *x,
-                           gint      *y,
-                           gint      *w,
-                           gint      *h)
-{
-  GtkWidget *widget;
-  GtkScale *scale;
-  
-  gint tx, ty, twidth, theight;
-  
-  g_return_if_fail (vscale != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (vscale));
-  g_return_if_fail ((x != NULL) && (y != NULL) && (w != NULL) && (h != NULL));
-  
-  gtk_vscale_pos_trough (vscale, &tx, &ty, &twidth, &theight);
-  
-  widget = GTK_WIDGET (vscale);
-  scale = GTK_SCALE (vscale);
-  
-  *x = widget->allocation.x;
-  *y = widget->allocation.y;
-  *w = widget->allocation.width;
-  *h = widget->allocation.height;
-  
-  switch (scale->value_pos)
-    {
-    case GTK_POS_LEFT:
-      *w -= twidth;
-      break;
-    case GTK_POS_RIGHT:
-      *x = tx;
-      *w -= twidth;
-      break;
-    case GTK_POS_TOP:
-      *h -= theight;
-      break;
-    case GTK_POS_BOTTOM:
-      *y = ty;
-      *h -= theight;
-      break;
-    }
-}
-
-static void
-gtk_vscale_draw_slider (GtkRange *range)
-{
-  GtkStateType state_type;
-  
-  g_return_if_fail (range != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (range));
-  
-  if (range->slider)
-    {
-      if ((range->in_child == RANGE_CLASS (range)->slider) ||
-          (range->click_child == RANGE_CLASS (range)->slider))
-        state_type = GTK_STATE_PRELIGHT;
-      else
-        state_type = GTK_STATE_NORMAL;
-      
-      gtk_paint_slider (GTK_WIDGET (range)->style, range->slider, state_type, 
-                       GTK_SHADOW_OUT, 
-                       NULL, GTK_WIDGET (range), "vscale",
-                       0, 0, -1, -1, 
-                       GTK_ORIENTATION_VERTICAL); 
+      digits = abs ((gint) floor (log10 (fabs (step))));
+      if (digits > 5)
+        digits = 5;
     }
-}
 
-static void
-gtk_vscale_draw_value (GtkScale *scale)
-{
-  GtkStateType state_type;
-  GtkWidget *widget;
-  gchar buffer[32];
-  gint text_width;
-  gint width, height;
-  gint x, y;
-  
-  g_return_if_fail (scale != NULL);
-  g_return_if_fail (GTK_IS_VSCALE (scale));
-  
-  widget = GTK_WIDGET (scale);
-  
-  if (scale->draw_value)
-    {
-      sprintf (buffer, "%0.*f", GTK_RANGE (scale)->digits, GTK_RANGE (scale)->adjustment->value);
-      text_width = gdk_string_measure (GTK_WIDGET (scale)->style->font, buffer);
-      
-      switch (scale->value_pos)
-        {
-        case GTK_POS_LEFT:
-          gdk_window_get_position (GTK_RANGE (scale)->trough, &x, NULL);
-          gdk_window_get_position (GTK_RANGE (scale)->slider, NULL, &y);
-          gdk_window_get_size (GTK_RANGE (scale)->trough, &width, NULL);
-          gdk_window_get_size (GTK_RANGE (scale)->slider, NULL, &height);
-          
-          x -= SCALE_CLASS (scale)->value_spacing + text_width;
-          y += widget->allocation.y + ((height -
-                                        (GTK_WIDGET (scale)->style->font->ascent +
-                                         GTK_WIDGET (scale)->style->font->descent)) / 2 +
-                                       GTK_WIDGET (scale)->style->font->ascent);
-          break;
-        case GTK_POS_RIGHT:
-          gdk_window_get_position (GTK_RANGE (scale)->trough, &x, NULL);
-          gdk_window_get_position (GTK_RANGE (scale)->slider, NULL, &y);
-          gdk_window_get_size (GTK_RANGE (scale)->trough, &width, NULL);
-          gdk_window_get_size (GTK_RANGE (scale)->slider, NULL, &height);
-          
-          x += width + SCALE_CLASS (scale)->value_spacing;
-          y += widget->allocation.y + ((height -
-                                        (GTK_WIDGET (scale)->style->font->ascent +
-                                         GTK_WIDGET (scale)->style->font->descent)) / 2 +
-                                       GTK_WIDGET (scale)->style->font->ascent);
-          break;
-        case GTK_POS_TOP:
-          gdk_window_get_position (GTK_RANGE (scale)->trough, &x, &y);
-          gdk_window_get_size (GTK_RANGE (scale)->slider, &width, NULL);
-          gdk_window_get_size (GTK_RANGE (scale)->trough, NULL, &height);
-          
-          x += (width - text_width) / 2;
-          y -= GTK_WIDGET (scale)->style->font->descent;
-          break;
-        case GTK_POS_BOTTOM:
-          gdk_window_get_position (GTK_RANGE (scale)->trough, &x, &y);
-          gdk_window_get_size (GTK_RANGE (scale)->slider, &width, NULL);
-          gdk_window_get_size (GTK_RANGE (scale)->trough, NULL, &height);
-          
-          x += (width - text_width) / 2;
-          y += height + GTK_WIDGET (scale)->style->font->ascent;
-          break;
-        }
-      
-      state_type = GTK_STATE_NORMAL;
-      if (!GTK_WIDGET_IS_SENSITIVE (scale))
-        state_type = GTK_STATE_INSENSITIVE;
-      
-      gtk_paint_string (GTK_WIDGET (scale)->style,
-                        GTK_WIDGET (scale)->window,
-                        state_type, 
-                        NULL, GTK_WIDGET (scale), "vscale",
-                        x, y, buffer);
-    }
-}
+  scale = g_object_new (GTK_TYPE_VSCALE,
+                        "adjustment", adj,
+                        "digits", digits,
+                        NULL);
 
-static gint
-gtk_vscale_trough_keys (GtkRange *range,
-                       GdkEventKey *key,
-                       GtkScrollType *scroll,
-                       GtkTroughType *pos)
-{
-  gint return_val = FALSE;
-  switch (key->keyval)
-    {
-    case GDK_Up:
-      return_val = TRUE;
-      *scroll = GTK_SCROLL_STEP_BACKWARD;
-      break;
-    case GDK_Down:
-      return_val = TRUE;
-      *scroll = GTK_SCROLL_STEP_FORWARD;
-      break;
-    case GDK_Page_Up:
-      return_val = TRUE;
-      *scroll = GTK_SCROLL_PAGE_BACKWARD;
-      break;
-    case GDK_Page_Down:
-      return_val = TRUE;
-      *scroll = GTK_SCROLL_PAGE_FORWARD;
-      break;
-    case GDK_Home:
-      return_val = TRUE;
-      *pos = GTK_TROUGH_START;
-      break;
-    case GDK_End:
-      return_val = TRUE;
-      *pos = GTK_TROUGH_END;
-      break;
-    }
-  return return_val;
+  return GTK_WIDGET (scale);
 }