/* GTK - The GIMP Toolkit

 * Copyright (C) 2005 Ronald S. Bultje

 * Copyright (C) 2006, 2007 Christian Persch

 * Copyright (C) 2006 Jan Arne Petersen

 * Copyright (C) 2005-2007 Red Hat, Inc.

 *

 * Authors:

 * - Ronald S. Bultje <rbultje@ronald.bitfreak.net>

 * - Bastien Nocera <bnocera@redhat.com>

 * - Jan Arne Petersen <jpetersen@jpetersen.org>

 * - Christian Persch <chpe@svn.gnome.org>

 *

 * This library is free software; you can redistribute it and/or

 * 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

 * Lesser General Public License for more details.

 *

 * 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.

 */

/*

 * Modified by the GTK+ Team and others 2007.  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/.

 */

#include "config.h"

#ifndef _WIN32

#define _GNU_SOURCE

#endif

#include <math.h>

#include <stdlib.h>

#include <string.h>

#include <gdk-pixbuf/gdk-pixbuf.h>

#include <gdk/gdkkeysyms.h>

#include "gtkbindings.h"

#include "gtkframe.h"

#include "gtkmain.h"

#include "gtkmarshalers.h"

#include "gtkorientable.h"

#include "gtkprivate.h"

#include "gtkscale.h"

#include "gtkscalebutton.h"

#include "gtkstock.h"

#include "gtkvbox.h"

#include "gtkwindow.h"

#include "gtkintl.h"

#include "gtkalias.h"

#define SCALE_SIZE 100

#define CLICK_TIMEOUT 250

enum

{

  VALUE_CHANGED,

  POPUP,

  POPDOWN,

  LAST_SIGNAL

};

enum

{

  PROP_0,

  PROP_ORIENTATION,

  PROP_VALUE,

  PROP_SIZE,

  PROP_ADJUSTMENT,

  PROP_ICONS

};

#define GET_PRIVATE(obj)        (G_TYPE_INSTANCE_GET_PRIVATE ((obj), GTK_TYPE_SCALE_BUTTON, GtkScaleButtonPrivate))

struct _GtkScaleButtonPrivate

{

  GtkWidget *dock;

  GtkWidget *box;

  GtkWidget *scale;

  GtkWidget *image;

  GtkIconSize size;

  GtkOrientation orientation;

  guint click_id;

  gint click_timeout;

  guint timeout : 1;

  gdouble direction;

  guint32 pop_time;

  gchar **icon_list;

  GtkAdjustment *adjustment; /* needed because it must be settable in init() */

};

static GObject* gtk_scale_button_constructor    (GType                  type,

                                                 guint                  n_construct_properties,

                                                 GObjectConstructParam *construct_params);

static void	gtk_scale_button_dispose	(GObject             *object);

static void     gtk_scale_button_finalize       (GObject             *object);

static void	gtk_scale_button_set_property	(GObject             *object,

						 guint                prop_id,

						 const GValue        *value,

						 GParamSpec          *pspec);

static void	gtk_scale_button_get_property	(GObject             *object,

						 guint                prop_id,

						 GValue              *value,

						 GParamSpec          *pspec);

static void gtk_scale_button_set_orientation_private (GtkScaleButton *button,

                                                      GtkOrientation  orientation);

static gboolean	gtk_scale_button_scroll		(GtkWidget           *widget,

						 GdkEventScroll      *event);

static void gtk_scale_button_screen_changed	(GtkWidget           *widget,

						 GdkScreen           *previous_screen);

static gboolean	gtk_scale_button_press		(GtkWidget           *widget,

						 GdkEventButton      *event);

static gboolean gtk_scale_button_key_release	(GtkWidget           *widget,

    						 GdkEventKey         *event);

static void     gtk_scale_button_popup          (GtkWidget           *widget);

static void     gtk_scale_button_popdown        (GtkWidget           *widget);

static gboolean cb_dock_button_press		(GtkWidget           *widget,

						 GdkEventButton      *event,

						 gpointer             user_data);

static gboolean cb_dock_key_release		(GtkWidget           *widget,

						 GdkEventKey         *event,

						 gpointer             user_data);

static gboolean cb_button_press			(GtkWidget           *widget,

						 GdkEventButton      *event,

						 gpointer             user_data);

static gboolean cb_button_release		(GtkWidget           *widget,

						 GdkEventButton      *event,

						 gpointer             user_data);

static void cb_dock_grab_notify			(GtkWidget           *widget,

						 gboolean             was_grabbed,

						 gpointer             user_data);

static gboolean cb_dock_grab_broken_event	(GtkWidget           *widget,

						 gboolean             was_grabbed,

						 gpointer             user_data);

static void cb_scale_grab_notify		(GtkWidget           *widget,

						 gboolean             was_grabbed,

						 gpointer             user_data);

static void gtk_scale_button_update_icon	(GtkScaleButton      *button);

static void gtk_scale_button_scale_value_changed(GtkRange            *range);

/* see below for scale definitions */

static GtkWidget *gtk_scale_button_scale_new    (GtkScaleButton      *button);

G_DEFINE_TYPE_WITH_CODE (GtkScaleButton, gtk_scale_button, GTK_TYPE_BUTTON,

                         G_IMPLEMENT_INTERFACE (GTK_TYPE_ORIENTABLE,

                                                NULL))

static guint signals[LAST_SIGNAL] = { 0, };

static void

gtk_scale_button_class_init (GtkScaleButtonClass *klass)

{

  GObjectClass *gobject_class = G_OBJECT_CLASS (klass);

  GtkWidgetClass *widget_class = GTK_WIDGET_CLASS (klass);

  GtkBindingSet *binding_set;

  g_type_class_add_private (klass, sizeof (GtkScaleButtonPrivate));

  gobject_class->constructor = gtk_scale_button_constructor;

  gobject_class->finalize = gtk_scale_button_finalize;

  gobject_class->dispose = gtk_scale_button_dispose;

  gobject_class->set_property = gtk_scale_button_set_property;

  gobject_class->get_property = gtk_scale_button_get_property;

  widget_class->button_press_event = gtk_scale_button_press;

  widget_class->key_release_event = gtk_scale_button_key_release;

  widget_class->scroll_event = gtk_scale_button_scroll;

  widget_class->screen_changed = gtk_scale_button_screen_changed;

  /**

   * GtkScaleButton:orientation:

   *

   * The orientation of the #GtkScaleButton's popup window.

   *

   * Note that since GTK+ 2.16, #GtkScaleButton implements the

   * #GtkOrientable interface which has its own @orientation

   * property. However we redefine the property here in order to

   * override its default horizontal orientation.

   *

   * Since: 2.14

   **/

  g_object_class_override_property (gobject_class,

				    PROP_ORIENTATION,

				    "orientation");

  g_object_class_install_property (gobject_class,

				   PROP_VALUE,

				   g_param_spec_double ("value",

							P_("Value"),

							P_("The value of the scale"),

							-G_MAXDOUBLE,

							G_MAXDOUBLE,

							0,

							GTK_PARAM_READWRITE));

  g_object_class_install_property (gobject_class,

				   PROP_SIZE,

				   g_param_spec_enum ("size",

						      P_("Icon size"),

						      P_("The icon size"),

						      GTK_TYPE_ICON_SIZE,

						      GTK_ICON_SIZE_SMALL_TOOLBAR,

						      GTK_PARAM_READWRITE));

  g_object_class_install_property (gobject_class,

                                   PROP_ADJUSTMENT,

                                   g_param_spec_object ("adjustment",

							P_("Adjustment"),

							P_("The GtkAdjustment that contains the current value of this scale button object"),

                                                        GTK_TYPE_ADJUSTMENT,

                                                        GTK_PARAM_READWRITE));

  /**

   * GtkScaleButton:icons:

   *

   * The names of the icons to be used by the scale button.

   * The first item in the array will be used in the button

   * when the current value is the lowest value, the second

   * item for the highest value. All the subsequent icons will

   * be used for all the other values, spread evenly over the

   * range of values.

   *

   * If there's only one icon name in the @icons array, it will

   * be used for all the values. If only two icon names are in

   * the @icons array, the first one will be used for the bottom

   * 50% of the scale, and the second one for the top 50%.

   *

   * It is recommended to use at least 3 icons so that the

   * #GtkScaleButton reflects the current value of the scale

   * better for the users.

   *

   * Since: 2.12

   */

  g_object_class_install_property (gobject_class,

                                   PROP_ICONS,

                                   g_param_spec_boxed ("icons",

                                                       P_("Icons"),

                                                       P_("List of icon names"),

                                                       G_TYPE_STRV,

                                                       GTK_PARAM_READWRITE));

  /**

   * GtkScaleButton::value-changed:

   * @button: the object which received the signal

   * @value: the new value

   *

   * The ::value-changed signal is emitted when the value field has

   * changed.

   *

   * Since: 2.12

   */

  signals[VALUE_CHANGED] =

    g_signal_new (I_("value-changed"),

		  G_TYPE_FROM_CLASS (klass),

		  G_SIGNAL_RUN_LAST,

		  G_STRUCT_OFFSET (GtkScaleButtonClass, value_changed),

		  NULL, NULL,

		  _gtk_marshal_VOID__DOUBLE,

		  G_TYPE_NONE, 1, G_TYPE_DOUBLE);

  /**

   * GtkScaleButton::popup:

   * @button: the object which received the signal

   *

   * The ::popup signal is a

   * <link linkend="keybinding-signals">keybinding signal</link>

   * which gets emitted to popup the scale widget.

   *

   * The default bindings for this signal are Space, Enter and Return.

   *

   * Since: 2.12

   */

  signals[POPUP] =

    g_signal_new_class_handler (I_("popup"),

                                G_OBJECT_CLASS_TYPE (klass),

                                G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,

                                G_CALLBACK (gtk_scale_button_popup),

                                NULL, NULL,

                                g_cclosure_marshal_VOID__VOID,

                                G_TYPE_NONE, 0);

  /**

   * GtkScaleButton::popdown:

   * @button: the object which received the signal

   *

   * The ::popdown signal is a

   * <link linkend="keybinding-signals">keybinding signal</link>

   * which gets emitted to popdown the scale widget.

   *

   * The default binding for this signal is Escape.

   *

   * Since: 2.12

   */

  signals[POPDOWN] =

    g_signal_new_class_handler (I_("popdown"),

                                G_OBJECT_CLASS_TYPE (klass),

                                G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,

                                G_CALLBACK (gtk_scale_button_popdown),

                                NULL, NULL,

                                g_cclosure_marshal_VOID__VOID,

                                G_TYPE_NONE, 0);

  /* Key bindings */

  binding_set = gtk_binding_set_by_class (widget_class);

  gtk_binding_entry_add_signal (binding_set, GDK_space, 0,

				"popup", 0);

  gtk_binding_entry_add_signal (binding_set, GDK_KP_Space, 0,

				"popup", 0);

  gtk_binding_entry_add_signal (binding_set, GDK_Return, 0,

				"popup", 0);

  gtk_binding_entry_add_signal (binding_set, GDK_ISO_Enter, 0,

				"popup", 0);

  gtk_binding_entry_add_signal (binding_set, GDK_KP_Enter, 0,

				"popup", 0);

  gtk_binding_entry_add_signal (binding_set, GDK_Escape, 0,

				"popdown", 0);

}

static void

gtk_scale_button_init (GtkScaleButton *button)

{

  GtkScaleButtonPrivate *priv;

  GtkWidget *frame;

  button->priv = priv = GET_PRIVATE (button);

  priv->timeout = FALSE;

  priv->click_id = 0;

  priv->click_timeout = CLICK_TIMEOUT;

  priv->orientation = GTK_ORIENTATION_VERTICAL;

  gtk_button_set_relief (GTK_BUTTON (button), GTK_RELIEF_NONE);

  gtk_button_set_focus_on_click (GTK_BUTTON (button), FALSE);

  /* image */

  priv->image = gtk_image_new ();

  gtk_container_add (GTK_CONTAINER (button), priv->image);

  gtk_widget_show_all (priv->image);

  /* window */

  priv->dock = gtk_window_new (GTK_WINDOW_POPUP);

  gtk_widget_set_name (priv->dock, "gtk-scalebutton-popup-window");

  g_signal_connect (priv->dock, "button-press-event",

		    G_CALLBACK (cb_dock_button_press), button);

  g_signal_connect (priv->dock, "key-release-event",

		    G_CALLBACK (cb_dock_key_release), button);

  g_signal_connect (priv->dock, "grab-notify",

		    G_CALLBACK (cb_dock_grab_notify), button);

  g_signal_connect (priv->dock, "grab-broken-event",

		    G_CALLBACK (cb_dock_grab_broken_event), button);

  gtk_window_set_decorated (GTK_WINDOW (priv->dock), FALSE);

  /* frame */

  frame = gtk_frame_new (NULL);

  gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_OUT);

  gtk_container_add (GTK_CONTAINER (priv->dock), frame);

  /* box for scale and +/- buttons */

  priv->box = gtk_vbox_new (FALSE, 0);

  gtk_container_add (GTK_CONTAINER (frame), priv->box);

  /* + */

  button->plus_button = gtk_button_new_with_label ("+");

  gtk_button_set_relief (GTK_BUTTON (button->plus_button), GTK_RELIEF_NONE);

  g_signal_connect (button->plus_button, "button-press-event",

		    G_CALLBACK (cb_button_press), button);

  g_signal_connect (button->plus_button, "button-release-event",

		    G_CALLBACK (cb_button_release), button);

  gtk_box_pack_start (GTK_BOX (priv->box), button->plus_button, FALSE, FALSE, 0);

  /* - */

  button->minus_button = gtk_button_new_with_label ("-");

  gtk_button_set_relief (GTK_BUTTON (button->minus_button), GTK_RELIEF_NONE);

  g_signal_connect (button->minus_button, "button-press-event",

		   G_CALLBACK (cb_button_press), button);

  g_signal_connect (button->minus_button, "button-release-event",

		    G_CALLBACK (cb_button_release), button);

  gtk_box_pack_end (GTK_BOX (priv->box), button->minus_button, FALSE, FALSE, 0);

  priv->adjustment = GTK_ADJUSTMENT (gtk_adjustment_new (0.0, 0.0, 100.0, 2, 20, 0));

  g_object_ref_sink (priv->adjustment);

  /* the scale */

  priv->scale = gtk_scale_button_scale_new (button);

  gtk_container_add (GTK_CONTAINER (priv->box), priv->scale);

}

static GObject *

gtk_scale_button_constructor (GType                  type,

                              guint                  n_construct_properties,

                              GObjectConstructParam *construct_params)

{

  GObject *object;

  GtkScaleButton *button;

  GtkScaleButtonPrivate *priv;

  object = G_OBJECT_CLASS (gtk_scale_button_parent_class)->constructor (type, n_construct_properties, construct_params);

  button = GTK_SCALE_BUTTON (object);

  priv = button->priv;

  /* set button text and size */

  priv->size = GTK_ICON_SIZE_SMALL_TOOLBAR;

  gtk_scale_button_update_icon (button);

  return object;

}

static void

gtk_scale_button_set_property (GObject       *object,

			       guint          prop_id,

			       const GValue  *value,

			       GParamSpec    *pspec)

{

  GtkScaleButton *button = GTK_SCALE_BUTTON (object);

  switch (prop_id)

    {

    case PROP_ORIENTATION:

      gtk_scale_button_set_orientation_private (button, g_value_get_enum (value));

      break;

    case PROP_VALUE:

      gtk_scale_button_set_value (button, g_value_get_double (value));

      break;

    case PROP_SIZE:

      {

	GtkIconSize size;

	size = g_value_get_enum (value);

	if (button->priv->size != size)

	  {

	    button->priv->size = size;

	    gtk_scale_button_update_icon (button);

	  }

      }

      break;

    case PROP_ADJUSTMENT:

      gtk_scale_button_set_adjustment (button, g_value_get_object (value));

      break;

    case PROP_ICONS:

      gtk_scale_button_set_icons (button,

                                  (const gchar **)g_value_get_boxed (value));

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

      break;

    }

}

static void

gtk_scale_button_get_property (GObject     *object,

			       guint        prop_id,

			       GValue      *value,

			       GParamSpec  *pspec)

{

  GtkScaleButton *button = GTK_SCALE_BUTTON (object);

  GtkScaleButtonPrivate *priv = button->priv;

  switch (prop_id)

    {

    case PROP_ORIENTATION:

      g_value_set_enum (value, priv->orientation);

      break;

    case PROP_VALUE:

      g_value_set_double (value, gtk_scale_button_get_value (button));

      break;

    case PROP_SIZE:

      g_value_set_enum (value, priv->size);

      break;

    case PROP_ADJUSTMENT:

      g_value_set_object (value, gtk_scale_button_get_adjustment (button));

      break;

    case PROP_ICONS:

      g_value_set_boxed (value, priv->icon_list);

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

      break;

    }

}

static void

gtk_scale_button_finalize (GObject *object)

{

  GtkScaleButton *button = GTK_SCALE_BUTTON (object);

  GtkScaleButtonPrivate *priv = button->priv;

  if (priv->icon_list)

    {

      g_strfreev (priv->icon_list);

      priv->icon_list = NULL;

    }

  if (priv->adjustment)

    {

      g_object_unref (priv->adjustment);

      priv->adjustment = NULL;

    }

  G_OBJECT_CLASS (gtk_scale_button_parent_class)->finalize (object);

}

static void

gtk_scale_button_dispose (GObject *object)

{

  GtkScaleButton *button = GTK_SCALE_BUTTON (object);

  GtkScaleButtonPrivate *priv = button->priv;

  if (priv->dock)

    {

      gtk_widget_destroy (priv->dock);

      priv->dock = NULL;

    }

  if (priv->click_id != 0)

    {

      g_source_remove (priv->click_id);

      priv->click_id = 0;

    }

  G_OBJECT_CLASS (gtk_scale_button_parent_class)->dispose (object);

}

/**

 * gtk_scale_button_new:

 * @size: (int): a stock icon size

 * @min: the minimum value of the scale (usually 0)

 * @max: the maximum value of the scale (usually 100)

 * @step: the stepping of value when a scroll-wheel event,

 *        or up/down arrow event occurs (usually 2)

 * @icons: (allow-none) (array zero-terminated=1): a %NULL-terminated

 *         array of icon names, or %NULL if you want to set the list

 *         later with gtk_scale_button_set_icons()

 *

 * Creates a #GtkScaleButton, with a range between @min and @max, with

 * a stepping of @step.

 *

 * Return value: a new #GtkScaleButton

 *

 * Since: 2.12

 */

GtkWidget *

gtk_scale_button_new (GtkIconSize   size,

		      gdouble       min,

		      gdouble       max,

		      gdouble       step,

		      const gchar **icons)

{

  GtkScaleButton *button;

  GtkObject *adj;

  adj = gtk_adjustment_new (min, min, max, step, 10 * step, 0);

  button = g_object_new (GTK_TYPE_SCALE_BUTTON,

                         "adjustment", adj,

                         "icons", icons,

                         "size", size,

                         NULL);

  return GTK_WIDGET (button);

}

/**

 * gtk_scale_button_get_value:

 * @button: a #GtkScaleButton

 *

 * Gets the current value of the scale button.

 *

 * Return value: current value of the scale button

 *

 * Since: 2.12

 */

gdouble

gtk_scale_button_get_value (GtkScaleButton * button)

{

  GtkScaleButtonPrivate *priv;

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), 0);

  priv = button->priv;

  return gtk_adjustment_get_value (priv->adjustment);

}

/**

 * gtk_scale_button_set_value:

 * @button: a #GtkScaleButton

 * @value: new value of the scale button

 *

 * Sets the current value of the scale; if the value is outside

 * the minimum or maximum range values, it will be clamped to fit

 * inside them. The scale button emits the #GtkScaleButton::value-changed

 * signal if the value changes.

 *

 * Since: 2.12

 */

void

gtk_scale_button_set_value (GtkScaleButton *button,

			    gdouble         value)

{

  GtkScaleButtonPrivate *priv;

  g_return_if_fail (GTK_IS_SCALE_BUTTON (button));

  priv = button->priv;

  gtk_range_set_value (GTK_RANGE (priv->scale), value);

}

/**

 * gtk_scale_button_set_icons:

 * @button: a #GtkScaleButton

 * @icons: (array zero-terminated=1): a %NULL-terminated array of icon names

 *

 * Sets the icons to be used by the scale button.

 * For details, see the #GtkScaleButton:icons property.

 *

 * Since: 2.12

 */

void

gtk_scale_button_set_icons (GtkScaleButton  *button,

			    const gchar    **icons)

{

  GtkScaleButtonPrivate *priv;

  gchar **tmp;

  g_return_if_fail (GTK_IS_SCALE_BUTTON (button));

  priv = button->priv;

  tmp = priv->icon_list;

  priv->icon_list = g_strdupv ((gchar **) icons);

  g_strfreev (tmp);

  gtk_scale_button_update_icon (button);

  g_object_notify (G_OBJECT (button), "icons");

}

/**

 * gtk_scale_button_get_adjustment:

 * @button: a #GtkScaleButton

 *

 * Gets the #GtkAdjustment associated with the #GtkScaleButton's scale.

 * See gtk_range_get_adjustment() for details.

 *

 * Returns: (transfer none): the adjustment associated with the scale

 *

 * Since: 2.12

 */

GtkAdjustment*

gtk_scale_button_get_adjustment	(GtkScaleButton *button)

{

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), NULL);

  return button->priv->adjustment;

}

/**

 * gtk_scale_button_set_adjustment:

 * @button: a #GtkScaleButton

 * @adjustment: a #GtkAdjustment

 *

 * Sets the #GtkAdjustment to be used as a model

 * for the #GtkScaleButton's scale.

 * See gtk_range_set_adjustment() for details.

 *

 * Since: 2.12

 */

void

gtk_scale_button_set_adjustment	(GtkScaleButton *button,

				 GtkAdjustment  *adjustment)

{

  g_return_if_fail (GTK_IS_SCALE_BUTTON (button));

  if (!adjustment)

    adjustment = (GtkAdjustment*) gtk_adjustment_new (0.0, 0.0, 0.0, 0.0, 0.0, 0.0);

  else

    g_return_if_fail (GTK_IS_ADJUSTMENT (adjustment));

  if (button->priv->adjustment != adjustment)

    {

      if (button->priv->adjustment)

        g_object_unref (button->priv->adjustment);

      button->priv->adjustment = g_object_ref_sink (adjustment);

      if (button->priv->scale)

        gtk_range_set_adjustment (GTK_RANGE (button->priv->scale), adjustment);

      g_object_notify (G_OBJECT (button), "adjustment");

    }

}

/**

 * gtk_scale_button_get_orientation:

 * @button: a #GtkScaleButton

 *

 * Gets the orientation of the #GtkScaleButton's popup window.

 *

 * Returns: the #GtkScaleButton's orientation.

 *

 * Since: 2.14

 *

 * Deprecated: 2.16: Use gtk_orientable_get_orientation() instead.

 **/

GtkOrientation

gtk_scale_button_get_orientation (GtkScaleButton *button)

{

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), GTK_ORIENTATION_VERTICAL);

  return button->priv->orientation;

}

/**

 * gtk_scale_button_set_orientation:

 * @button: a #GtkScaleButton

 * @orientation: the new orientation

 *

 * Sets the orientation of the #GtkScaleButton's popup window.

 *

 * Since: 2.14

 *

 * Deprecated: 2.16: Use gtk_orientable_set_orientation() instead.

 **/

void

gtk_scale_button_set_orientation (GtkScaleButton *button,

                                  GtkOrientation  orientation)

{

  g_return_if_fail (GTK_IS_SCALE_BUTTON (button));

  gtk_scale_button_set_orientation_private (button, orientation);

}

/**

 * gtk_scale_button_get_plus_button:

 * @button: a #GtkScaleButton

 *

 * Retrieves the plus button of the #GtkScaleButton.

 *

 * Returns: (transfer none): the plus button of the #GtkScaleButton

 *

 * Since: 2.14

 */

GtkWidget *

gtk_scale_button_get_plus_button (GtkScaleButton *button)

{

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), NULL);

  return button->plus_button;

}

/**

 * gtk_scale_button_get_minus_button:

 * @button: a #GtkScaleButton

 *

 * Retrieves the minus button of the #GtkScaleButton.

 *

 * Returns: (transfer none): the minus button of the #GtkScaleButton

 *

 * Since: 2.14

 */

GtkWidget *

gtk_scale_button_get_minus_button (GtkScaleButton *button)

{

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), NULL);

  return button->minus_button;

}

/**

 * gtk_scale_button_get_popup:

 * @button: a #GtkScaleButton

 *

 * Retrieves the popup of the #GtkScaleButton.

 *

 * Returns: (transfer none): the popup of the #GtkScaleButton

 *

 * Since: 2.14

 */

GtkWidget *

gtk_scale_button_get_popup (GtkScaleButton *button)

{

  g_return_val_if_fail (GTK_IS_SCALE_BUTTON (button), NULL);

  return button->priv->dock;

}

static void

gtk_scale_button_set_orientation_private (GtkScaleButton *button,

                                          GtkOrientation  orientation)

{

  GtkScaleButtonPrivate *priv = button->priv;

  if (orientation != priv->orientation)

    {

      priv->orientation = orientation;

      gtk_orientable_set_orientation (GTK_ORIENTABLE (priv->box),

                                      orientation);

      gtk_container_child_set (GTK_CONTAINER (priv->box),

                               button->plus_button,

                               "pack-type",

                               orientation == GTK_ORIENTATION_VERTICAL ?

                               GTK_PACK_START : GTK_PACK_END,

                               NULL);

      gtk_container_child_set (GTK_CONTAINER (priv->box),

                               button->minus_button,

                               "pack-type",

                               orientation == GTK_ORIENTATION_VERTICAL ?

                               GTK_PACK_END : GTK_PACK_START,

                               NULL);

      gtk_orientable_set_orientation (GTK_ORIENTABLE (priv->scale),

                                      orientation);

      if (orientation == GTK_ORIENTATION_VERTICAL)

        {

          gtk_widget_set_size_request (GTK_WIDGET (priv->scale),

                                       -1, SCALE_SIZE);

          gtk_range_set_inverted (GTK_RANGE (priv->scale), TRUE);

        }

      else

        {

          gtk_widget_set_size_request (GTK_WIDGET (priv->scale),

                                       SCALE_SIZE, -1);

          gtk_range_set_inverted (GTK_RANGE (priv->scale), FALSE);

        }

      /* FIXME: without this, the popup window appears as a square

       * after changing the orientation

       */

      gtk_window_resize (GTK_WINDOW (priv->dock), 1, 1);

      g_object_notify (G_OBJECT (button), "orientation");

    }

}

/*

 * button callbacks.

 */

static gboolean

gtk_scale_button_scroll (GtkWidget      *widget,

			 GdkEventScroll *event)

{

  GtkScaleButton *button;

  GtkScaleButtonPrivate *priv;

  GtkAdjustment *adj;

  gdouble d;

  button = GTK_SCALE_BUTTON (widget);

  priv = button->priv;

  adj = priv->adjustment;

  if (event->type != GDK_SCROLL)

    return FALSE;

  d = gtk_scale_button_get_value (button);

  if (event->direction == GDK_SCROLL_UP)

    {

      d += adj->step_increment;

      if (d > adj->upper)

	d = adj->upper;

    }