Pileus Git - ~andy/gtk/blob - gtk/gtkrange.c

   1 /* GTK - The GIMP Toolkit
   2  * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
   3  * Copyright (C) 2001 Red Hat, Inc.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  */
  20
  21 /*
  22  * Modified by the GTK+ Team and others 1997-2004.  See the AUTHORS
  23  * file for a list of people on the GTK+ Team.  See the ChangeLog
  24  * files for a list of changes.  These files are distributed with
  25  * GTK+ at ftp://ftp.gtk.org/pub/gtk/.
  26  */
  27
  28 #include "config.h"
  29
  30 #include <stdio.h>
  31 #include <math.h>
  32
  33 #include "gtkmainprivate.h"
  34 #include "gtkmarshalers.h"
  35 #include "gtkorientableprivate.h"
  36 #include "gtkrange.h"
  37 #include "gtkscale.h"
  38 #include "gtkscrollbar.h"
  39 #include "gtkwindow.h"
  40 #include "gtkprivate.h"
  41 #include "gtkintl.h"
  42 #include "gtktypebuiltins.h"
  43
  44 /**
  45  * SECTION:gtkrange
  46  * @Short_description: Base class for widgets which visualize an adjustment
  47  * @Title: GtkRange
  48  *
  49  * #GtkRange is the common base class for widgets which visualize an
  50  * adjustment, e.g #GtkScale or #GtkScrollbar.
  51  *
  52  * Apart from signals for monitoring the parameters of the adjustment,
  53  * #GtkRange provides properties and methods for influencing the sensitivity
  54  * of the "steppers". It also provides properties and methods for setting a
  55  * "fill level" on range widgets. See gtk_range_set_fill_level().
  56  */
  57
  58
  59 #define SCROLL_DELAY_FACTOR 5    /* Scroll repeat multiplier */
  60 #define UPDATE_DELAY        300  /* Delay for queued update */
  61
  62 typedef struct _GtkRangeStepTimer GtkRangeStepTimer;
  63
  64 typedef enum {
  65   MOUSE_OUTSIDE,
  66   MOUSE_STEPPER_A,
  67   MOUSE_STEPPER_B,
  68   MOUSE_STEPPER_C,
  69   MOUSE_STEPPER_D,
  70   MOUSE_TROUGH,
  71   MOUSE_SLIDER,
  72   MOUSE_WIDGET /* inside widget but not in any of the above GUI elements */
  73 } MouseLocation;
  74
  75 struct _GtkRangePrivate
  76 {
  77   MouseLocation      mouse_location;
  78   /* last mouse coords we got, or -1 if mouse is outside the range */
  79   gint  mouse_x;
  80   gint  mouse_y;
  81   MouseLocation      grab_location;   /* "grabbed" mouse location, OUTSIDE for no grab */
  82   guint              grab_button : 8; /* 0 if none */
  83
  84   GtkRangeStepTimer *timer;
  85
  86   GtkAdjustment     *adjustment;
  87   GtkOrientation     orientation;
  88   GtkSensitivityType lower_sensitivity;
  89   GtkSensitivityType upper_sensitivity;
  90
  91   GdkDevice         *grab_device;
  92   GdkRectangle       range_rect;     /* Area of entire stepper + trough assembly in widget->window coords */
  93   /* These are in widget->window coordinates */
  94   GdkRectangle       stepper_a;
  95   GdkRectangle       stepper_b;
  96   GdkRectangle       stepper_c;
  97   GdkRectangle       stepper_d;
  98   GdkRectangle       trough;         /* The trough rectangle is the area the thumb can slide in, not the entire range_rect */
  99   GdkRectangle       slider;
 100   GdkWindow         *event_window;
 101
 102   GQuark             slider_detail_quark;
 103   GQuark             stepper_detail_quark[4];
 104
 105   gboolean recalc_marks;
 106
 107   gdouble  fill_level;
 108   gdouble *marks;
 109
 110   gint *mark_pos;
 111   gint  min_slider_size;
 112   gint  n_marks;
 113   gint  round_digits;                /* Round off value to this many digits, -1 for no rounding */
 114   gint  slide_initial_slider_position;
 115   gint  slide_initial_coordinate;
 116   gint  slider_start;                /* Slider range along the long dimension, in widget->window coords */
 117   gint  slider_end;
 118
 119   guint repaint_id;
 120
 121   /* Steppers are: < > ---- < >
 122    *               a b      c d
 123    */
 124   guint has_stepper_a          : 1;
 125   guint has_stepper_b          : 1;
 126   guint has_stepper_c          : 1;
 127   guint has_stepper_d          : 1;
 128
 129   guint flippable              : 1;
 130   guint inverted               : 1;
 131   guint need_recalc            : 1;
 132   guint slider_size_fixed      : 1;
 133   guint trough_click_forward   : 1;  /* trough click was on the forward side of slider */
 134
 135   /* Stepper sensitivity */
 136   guint lower_sensitive        : 1;
 137   guint upper_sensitive        : 1;
 138
 139   /* Fill level */
 140   guint show_fill_level        : 1;
 141   guint restrict_to_fill_level : 1;
 142 };
 143
 144
 145 enum {
 146   PROP_0,
 147   PROP_ORIENTATION,
 148   PROP_ADJUSTMENT,
 149   PROP_INVERTED,
 150   PROP_LOWER_STEPPER_SENSITIVITY,
 151   PROP_UPPER_STEPPER_SENSITIVITY,
 152   PROP_SHOW_FILL_LEVEL,
 153   PROP_RESTRICT_TO_FILL_LEVEL,
 154   PROP_FILL_LEVEL,
 155   PROP_ROUND_DIGITS
 156 };
 157
 158 enum {
 159   VALUE_CHANGED,
 160   ADJUST_BOUNDS,
 161   MOVE_SLIDER,
 162   CHANGE_VALUE,
 163   LAST_SIGNAL
 164 };
 165
 166 typedef enum {
 167   STEPPER_A,
 168   STEPPER_B,
 169   STEPPER_C,
 170   STEPPER_D
 171 } Stepper;
 172
 173 static void gtk_range_set_property   (GObject          *object,
 174                                       guint             prop_id,
 175                                       const GValue     *value,
 176                                       GParamSpec       *pspec);
 177 static void gtk_range_get_property   (GObject          *object,
 178                                       guint             prop_id,
 179                                       GValue           *value,
 180                                       GParamSpec       *pspec);
 181 static void gtk_range_destroy        (GtkWidget        *widget);
 182 static void gtk_range_get_preferred_width
 183                                      (GtkWidget        *widget,
 184                                       gint             *minimum,
 185                                       gint             *natural);
 186 static void gtk_range_get_preferred_height
 187                                      (GtkWidget        *widget,
 188                                       gint             *minimum,
 189                                       gint             *natural);
 190 static void gtk_range_size_allocate  (GtkWidget        *widget,
 191                                       GtkAllocation    *allocation);
 192 static void gtk_range_hierarchy_changed (GtkWidget     *widget,
 193                                          GtkWidget     *previous_toplevel);
 194 static void gtk_range_realize        (GtkWidget        *widget);
 195 static void gtk_range_unrealize      (GtkWidget        *widget);
 196 static void gtk_range_map            (GtkWidget        *widget);
 197 static void gtk_range_unmap          (GtkWidget        *widget);
 198 static gboolean gtk_range_draw       (GtkWidget        *widget,
 199                                       cairo_t          *cr);
 200 static gboolean gtk_range_button_press   (GtkWidget        *widget,
 201                                       GdkEventButton   *event);
 202 static gboolean gtk_range_button_release (GtkWidget        *widget,
 203                                       GdkEventButton   *event);
 204 static gboolean gtk_range_motion_notify  (GtkWidget        *widget,
 205                                       GdkEventMotion   *event);
 206 static gboolean gtk_range_enter_notify   (GtkWidget        *widget,
 207                                       GdkEventCrossing *event);
 208 static gboolean gtk_range_leave_notify   (GtkWidget        *widget,
 209                                       GdkEventCrossing *event);
 210 static gboolean gtk_range_grab_broken (GtkWidget          *widget,
 211                                        GdkEventGrabBroken *event);
 212 static void gtk_range_grab_notify    (GtkWidget          *widget,
 213                                       gboolean            was_grabbed);
 214 static void gtk_range_state_flags_changed  (GtkWidget      *widget,
 215                                             GtkStateFlags   previous_state);
 216 static gboolean gtk_range_scroll_event   (GtkWidget        *widget,
 217                                       GdkEventScroll   *event);
 218 static void gtk_range_style_updated  (GtkWidget        *widget);
 219 static void update_slider_position   (GtkRange         *range,
 220                                       gint              mouse_x,
 221                                       gint              mouse_y);
 222 static void stop_scrolling           (GtkRange         *range);
 223 static gboolean modify_allocation_for_window_grip (GtkWidget     *widget,
 224                                                    GtkAllocation *allocation);
 225
 226 /* Range methods */
 227
 228 static void gtk_range_move_slider              (GtkRange         *range,
 229                                                 GtkScrollType     scroll);
 230
 231 /* Internals */
 232 static gboolean      gtk_range_scroll                   (GtkRange      *range,
 233                                                          GtkScrollType  scroll);
 234 static gboolean      gtk_range_update_mouse_location    (GtkRange      *range);
 235 static void          gtk_range_calc_layout              (GtkRange      *range,
 236                                                          gdouble        adjustment_value);
 237 static void          gtk_range_calc_marks               (GtkRange      *range);
 238 static void          gtk_range_get_props                (GtkRange      *range,
 239                                                          gint          *slider_width,
 240                                                          gint          *stepper_size,
 241                                                          gint          *focus_width,
 242                                                          gint          *trough_border,
 243                                                          gint          *stepper_spacing,
 244                                                          gboolean      *trough_under_steppers,
 245                                                          gint          *arrow_displacement_x,
 246                                                          gint          *arrow_displacement_y);
 247 static void          gtk_range_calc_request             (GtkRange      *range,
 248                                                          gint           slider_width,
 249                                                          gint           stepper_size,
 250                                                          gint           focus_width,
 251                                                          gint           trough_border,
 252                                                          gint           stepper_spacing,
 253                                                          GdkRectangle  *range_rect,
 254                                                          GtkBorder     *border,
 255                                                          gint          *n_steppers_p,
 256                                                          gboolean      *has_steppers_ab,
 257                                                          gboolean      *has_steppers_cd,
 258                                                          gint          *slider_length_p);
 259 static void          gtk_range_adjustment_value_changed (GtkAdjustment *adjustment,
 260                                                          gpointer       data);
 261 static void          gtk_range_adjustment_changed       (GtkAdjustment *adjustment,
 262                                                          gpointer       data);
 263 static void          gtk_range_add_step_timer           (GtkRange      *range,
 264                                                          GtkScrollType  step);
 265 static void          gtk_range_remove_step_timer        (GtkRange      *range);
 266 static GdkRectangle* get_area                           (GtkRange      *range,
 267                                                          MouseLocation  location);
 268 static gboolean      gtk_range_real_change_value        (GtkRange      *range,
 269                                                          GtkScrollType  scroll,
 270                                                          gdouble        value);
 271 static gboolean      gtk_range_key_press                (GtkWidget     *range,
 272                                                          GdkEventKey   *event);
 273
 274
 275 G_DEFINE_ABSTRACT_TYPE_WITH_CODE (GtkRange, gtk_range, GTK_TYPE_WIDGET,
 276                                   G_IMPLEMENT_INTERFACE (GTK_TYPE_ORIENTABLE,
 277                                                          NULL))
 278
 279 static guint signals[LAST_SIGNAL];
 280
 281
 282 static void
 283 gtk_range_class_init (GtkRangeClass *class)
 284 {
 285   GObjectClass   *gobject_class;
 286   GtkWidgetClass *widget_class;
 287
 288   gobject_class = G_OBJECT_CLASS (class);
 289   widget_class = (GtkWidgetClass*) class;
 290
 291   gobject_class->set_property = gtk_range_set_property;
 292   gobject_class->get_property = gtk_range_get_property;
 293
 294   widget_class->destroy = gtk_range_destroy;
 295   widget_class->get_preferred_width = gtk_range_get_preferred_width;
 296   widget_class->get_preferred_height = gtk_range_get_preferred_height;
 297   widget_class->size_allocate = gtk_range_size_allocate;
 298   widget_class->hierarchy_changed = gtk_range_hierarchy_changed;
 299   widget_class->realize = gtk_range_realize;
 300   widget_class->unrealize = gtk_range_unrealize;
 301   widget_class->map = gtk_range_map;
 302   widget_class->unmap = gtk_range_unmap;
 303   widget_class->draw = gtk_range_draw;
 304   widget_class->button_press_event = gtk_range_button_press;
 305   widget_class->button_release_event = gtk_range_button_release;
 306   widget_class->motion_notify_event = gtk_range_motion_notify;
 307   widget_class->scroll_event = gtk_range_scroll_event;
 308   widget_class->enter_notify_event = gtk_range_enter_notify;
 309   widget_class->leave_notify_event = gtk_range_leave_notify;
 310   widget_class->grab_broken_event = gtk_range_grab_broken;
 311   widget_class->grab_notify = gtk_range_grab_notify;
 312   widget_class->state_flags_changed = gtk_range_state_flags_changed;
 313   widget_class->style_updated = gtk_range_style_updated;
 314   widget_class->key_press_event = gtk_range_key_press;
 315
 316   class->move_slider = gtk_range_move_slider;
 317   class->change_value = gtk_range_real_change_value;
 318
 319   class->slider_detail = "slider";
 320   class->stepper_detail = "stepper";
 321
 322   /**
 323    * GtkRange::value-changed:
 324    * @range: the #GtkRange that received the signal
 325    *
 326    * Emitted when the range value changes.
 327    */
 328   signals[VALUE_CHANGED] =
 329     g_signal_new (I_("value-changed"),
 330                   G_TYPE_FROM_CLASS (gobject_class),
 331                   G_SIGNAL_RUN_LAST,
 332                   G_STRUCT_OFFSET (GtkRangeClass, value_changed),
 333                   NULL, NULL,
 334                   _gtk_marshal_VOID__VOID,
 335                   G_TYPE_NONE, 0);
 336
 337   /**
 338    * GtkRange::adjust-bounds:
 339    * @range: the #GtkRange that received the signal
 340    * @value: the value before we clamp
 341    *
 342    * Emitted before clamping a value, to give the application a
 343    * chance to adjust the bounds.
 344    */
 345   signals[ADJUST_BOUNDS] =
 346     g_signal_new (I_("adjust-bounds"),
 347                   G_TYPE_FROM_CLASS (gobject_class),
 348                   G_SIGNAL_RUN_LAST,
 349                   G_STRUCT_OFFSET (GtkRangeClass, adjust_bounds),
 350                   NULL, NULL,
 351                   _gtk_marshal_VOID__DOUBLE,
 352                   G_TYPE_NONE, 1,
 353                   G_TYPE_DOUBLE);
 354
 355   /**
 356    * GtkRange::move-slider:
 357    * @range: the #GtkRange that received the signal
 358    * @step: how to move the slider
 359    *
 360    * Virtual function that moves the slider. Used for keybindings.
 361    */
 362   signals[MOVE_SLIDER] =
 363     g_signal_new (I_("move-slider"),
 364                   G_TYPE_FROM_CLASS (gobject_class),
 365                   G_SIGNAL_RUN_LAST | G_SIGNAL_ACTION,
 366                   G_STRUCT_OFFSET (GtkRangeClass, move_slider),
 367                   NULL, NULL,
 368                   _gtk_marshal_VOID__ENUM,
 369                   G_TYPE_NONE, 1,
 370                   GTK_TYPE_SCROLL_TYPE);
 371
 372   /**
 373    * GtkRange::change-value:
 374    * @range: the #GtkRange that received the signal
 375    * @scroll: the type of scroll action that was performed
 376    * @value: the new value resulting from the scroll action
 377    * @returns: %TRUE to prevent other handlers from being invoked for the
 378    * signal, %FALSE to propagate the signal further
 379    *
 380    * The #GtkRange::change-value signal is emitted when a scroll action is
 381    * performed on a range.  It allows an application to determine the
 382    * type of scroll event that occurred and the resultant new value.
 383    * The application can handle the event itself and return %TRUE to
 384    * prevent further processing.  Or, by returning %FALSE, it can pass
 385    * the event to other handlers until the default GTK+ handler is
 386    * reached.
 387    *
 388    * The value parameter is unrounded.  An application that overrides
 389    * the GtkRange::change-value signal is responsible for clamping the
 390    * value to the desired number of decimal digits; the default GTK+
 391    * handler clamps the value based on #GtkRange:round-digits.
 392    *
 393    * It is not possible to use delayed update policies in an overridden
 394    * #GtkRange::change-value handler.
 395    *
 396    * Since: 2.6
 397    */
 398   signals[CHANGE_VALUE] =
 399     g_signal_new (I_("change-value"),
 400                   G_TYPE_FROM_CLASS (gobject_class),
 401                   G_SIGNAL_RUN_LAST,
 402                   G_STRUCT_OFFSET (GtkRangeClass, change_value),
 403                   _gtk_boolean_handled_accumulator, NULL,
 404                   _gtk_marshal_BOOLEAN__ENUM_DOUBLE,
 405                   G_TYPE_BOOLEAN, 2,
 406                   GTK_TYPE_SCROLL_TYPE,
 407                   G_TYPE_DOUBLE);
 408
 409   g_object_class_override_property (gobject_class,
 410                                     PROP_ORIENTATION,
 411                                     "orientation");
 412
 413   g_object_class_install_property (gobject_class,
 414                                    PROP_ADJUSTMENT,
 415                                    g_param_spec_object ("adjustment",
 416                                                         P_("Adjustment"),
 417                                                         P_("The GtkAdjustment that contains the current value of this range object"),
 418                                                         GTK_TYPE_ADJUSTMENT,
 419                                                         GTK_PARAM_READWRITE | G_PARAM_CONSTRUCT));
 420
 421   g_object_class_install_property (gobject_class,
 422                                    PROP_INVERTED,
 423                                    g_param_spec_boolean ("inverted",
 424                                                         P_("Inverted"),
 425                                                         P_("Invert direction slider moves to increase range value"),
 426                                                          FALSE,
 427                                                          GTK_PARAM_READWRITE));
 428
 429   g_object_class_install_property (gobject_class,
 430                                    PROP_LOWER_STEPPER_SENSITIVITY,
 431                                    g_param_spec_enum ("lower-stepper-sensitivity",
 432                                                       P_("Lower stepper sensitivity"),
 433                                                       P_("The sensitivity policy for the stepper that points to the adjustment's lower side"),
 434                                                       GTK_TYPE_SENSITIVITY_TYPE,
 435                                                       GTK_SENSITIVITY_AUTO,
 436                                                       GTK_PARAM_READWRITE));
 437
 438   g_object_class_install_property (gobject_class,
 439                                    PROP_UPPER_STEPPER_SENSITIVITY,
 440                                    g_param_spec_enum ("upper-stepper-sensitivity",
 441                                                       P_("Upper stepper sensitivity"),
 442                                                       P_("The sensitivity policy for the stepper that points to the adjustment's upper side"),
 443                                                       GTK_TYPE_SENSITIVITY_TYPE,
 444                                                       GTK_SENSITIVITY_AUTO,
 445                                                       GTK_PARAM_READWRITE));
 446
 447   /**
 448    * GtkRange:show-fill-level:
 449    *
 450    * The show-fill-level property controls whether fill level indicator
 451    * graphics are displayed on the trough. See
 452    * gtk_range_set_show_fill_level().
 453    *
 454    * Since: 2.12
 455    **/
 456   g_object_class_install_property (gobject_class,
 457                                    PROP_SHOW_FILL_LEVEL,
 458                                    g_param_spec_boolean ("show-fill-level",
 459                                                          P_("Show Fill Level"),
 460                                                          P_("Whether to display a fill level indicator graphics on trough."),
 461                                                          FALSE,
 462                                                          GTK_PARAM_READWRITE));
 463
 464   /**
 465    * GtkRange:restrict-to-fill-level:
 466    *
 467    * The restrict-to-fill-level property controls whether slider
 468    * movement is restricted to an upper boundary set by the
 469    * fill level. See gtk_range_set_restrict_to_fill_level().
 470    *
 471    * Since: 2.12
 472    **/
 473   g_object_class_install_property (gobject_class,
 474                                    PROP_RESTRICT_TO_FILL_LEVEL,
 475                                    g_param_spec_boolean ("restrict-to-fill-level",
 476                                                          P_("Restrict to Fill Level"),
 477                                                          P_("Whether to restrict the upper boundary to the fill level."),
 478                                                          TRUE,
 479                                                          GTK_PARAM_READWRITE));
 480
 481   /**
 482    * GtkRange:fill-level:
 483    *
 484    * The fill level (e.g. prebuffering of a network stream).
 485    * See gtk_range_set_fill_level().
 486    *
 487    * Since: 2.12
 488    **/
 489   g_object_class_install_property (gobject_class,
 490                                    PROP_FILL_LEVEL,
 491                                    g_param_spec_double ("fill-level",
 492                                                         P_("Fill Level"),
 493                                                         P_("The fill level."),
 494                                                         -G_MAXDOUBLE,
 495                                                         G_MAXDOUBLE,
 496                                                         G_MAXDOUBLE,
 497                                                         GTK_PARAM_READWRITE));
 498
 499   /**
 500    * GtkRange:round-digits:
 501    *
 502    * The number of digits to round the value to when
 503    * it changes, or -1. See #GtkRange::change-value.
 504    *
 505    * Since: 2.24
 506    */
 507   g_object_class_install_property (gobject_class,
 508                                    PROP_ROUND_DIGITS,
 509                                    g_param_spec_int ("round-digits",
 510                                                      P_("Round Digits"),
 511                                                      P_("The number of digits to round the value to."),
 512                                                      -1,
 513                                                      G_MAXINT,
 514                                                      -1,
 515                                                      GTK_PARAM_READWRITE));
 516
 517   gtk_widget_class_install_style_property (widget_class,
 518                                            g_param_spec_int ("slider-width",
 519                                                              P_("Slider Width"),
 520                                                              P_("Width of scrollbar or scale thumb"),
 521                                                              0,
 522                                                              G_MAXINT,
 523                                                              14,
 524                                                              GTK_PARAM_READABLE));
 525   gtk_widget_class_install_style_property (widget_class,
 526                                            g_param_spec_int ("trough-border",
 527                                                              P_("Trough Border"),
 528                                                              P_("Spacing between thumb/steppers and outer trough bevel"),
 529                                                              0,
 530                                                              G_MAXINT,
 531                                                              1,
 532                                                              GTK_PARAM_READABLE));
 533   gtk_widget_class_install_style_property (widget_class,
 534                                            g_param_spec_int ("stepper-size",
 535                                                              P_("Stepper Size"),
 536                                                              P_("Length of step buttons at ends"),
 537                                                              0,
 538                                                              G_MAXINT,
 539                                                              14,
 540                                                              GTK_PARAM_READABLE));
 541   /**
 542    * GtkRange:stepper-spacing:
 543    *
 544    * The spacing between the stepper buttons and thumb. Note that
 545    * setting this value to anything > 0 will automatically set the
 546    * trough-under-steppers style property to %TRUE as well. Also,
 547    * stepper-spacing won't have any effect if there are no steppers.
 548    */
 549   gtk_widget_class_install_style_property (widget_class,
 550                                            g_param_spec_int ("stepper-spacing",
 551                                                              P_("Stepper Spacing"),
 552                                                              P_("Spacing between step buttons and thumb"),
 553                                                              0,
 554                                                              G_MAXINT,
 555                                                              0,
 556                                                              GTK_PARAM_READABLE));
 557   gtk_widget_class_install_style_property (widget_class,
 558                                            g_param_spec_int ("arrow-displacement-x",
 559                                                              P_("Arrow X Displacement"),
 560                                                              P_("How far in the x direction to move the arrow when the button is depressed"),
 561                                                              G_MININT,
 562                                                              G_MAXINT,
 563                                                              0,
 564                                                              GTK_PARAM_READABLE));
 565   gtk_widget_class_install_style_property (widget_class,
 566                                            g_param_spec_int ("arrow-displacement-y",
 567                                                              P_("Arrow Y Displacement"),
 568                                                              P_("How far in the y direction to move the arrow when the button is depressed"),
 569                                                              G_MININT,
 570                                                              G_MAXINT,
 571                                                              0,
 572                                                              GTK_PARAM_READABLE));
 573
 574   /**
 575    * GtkRange:trough-under-steppers:
 576    *
 577    * Whether to draw the trough across the full length of the range or
 578    * to exclude the steppers and their spacing. Note that setting the
 579    * #GtkRange:stepper-spacing style property to any value > 0 will
 580    * automatically enable trough-under-steppers too.
 581    *
 582    * Since: 2.10
 583    */
 584   gtk_widget_class_install_style_property (widget_class,
 585                                            g_param_spec_boolean ("trough-under-steppers",
 586                                                                  P_("Trough Under Steppers"),
 587                                                                  P_("Whether to draw trough for full length of range or exclude the steppers and spacing"),
 588                                                                  TRUE,
 589                                                                  GTK_PARAM_READABLE));
 590
 591   /**
 592    * GtkRange:arrow-scaling:
 593    *
 594    * The arrow size proportion relative to the scroll button size.
 595    *
 596    * Since: 2.14
 597    */
 598   gtk_widget_class_install_style_property (widget_class,
 599                                            g_param_spec_float ("arrow-scaling",
 600                                                                P_("Arrow scaling"),
 601                                                                P_("Arrow scaling with regard to scroll button size"),
 602                                                                0.0, 1.0, 0.5,
 603                                                                GTK_PARAM_READABLE));
 604
 605   g_type_class_add_private (class, sizeof (GtkRangePrivate));
 606 }
 607
 608 static void
 609 gtk_range_set_property (GObject      *object,
 610                         guint         prop_id,
 611                         const GValue *value,
 612                         GParamSpec   *pspec)
 613 {
 614   GtkRange *range = GTK_RANGE (object);
 615   GtkRangePrivate *priv = range->priv;
 616
 617   switch (prop_id)
 618     {
 619     case PROP_ORIENTATION:
 620       priv->orientation = g_value_get_enum (value);
 621
 622       priv->slider_detail_quark = 0;
 623       priv->stepper_detail_quark[0] = 0;
 624       priv->stepper_detail_quark[1] = 0;
 625       priv->stepper_detail_quark[2] = 0;
 626       priv->stepper_detail_quark[3] = 0;
 627
 628       _gtk_orientable_set_style_classes (GTK_ORIENTABLE (range));
 629       gtk_widget_queue_resize (GTK_WIDGET (range));
 630       break;
 631     case PROP_ADJUSTMENT:
 632       gtk_range_set_adjustment (range, g_value_get_object (value));
 633       break;
 634     case PROP_INVERTED:
 635       gtk_range_set_inverted (range, g_value_get_boolean (value));
 636       break;
 637     case PROP_LOWER_STEPPER_SENSITIVITY:
 638       gtk_range_set_lower_stepper_sensitivity (range, g_value_get_enum (value));
 639       break;
 640     case PROP_UPPER_STEPPER_SENSITIVITY:
 641       gtk_range_set_upper_stepper_sensitivity (range, g_value_get_enum (value));
 642       break;
 643     case PROP_SHOW_FILL_LEVEL:
 644       gtk_range_set_show_fill_level (range, g_value_get_boolean (value));
 645       break;
 646     case PROP_RESTRICT_TO_FILL_LEVEL:
 647       gtk_range_set_restrict_to_fill_level (range, g_value_get_boolean (value));
 648       break;
 649     case PROP_FILL_LEVEL:
 650       gtk_range_set_fill_level (range, g_value_get_double (value));
 651       break;
 652     case PROP_ROUND_DIGITS:
 653       gtk_range_set_round_digits (range, g_value_get_int (value));
 654       break;
 655     default:
 656       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 657       break;
 658     }
 659 }
 660
 661 static void
 662 gtk_range_get_property (GObject      *object,
 663                         guint         prop_id,
 664                         GValue       *value,
 665                         GParamSpec   *pspec)
 666 {
 667   GtkRange *range = GTK_RANGE (object);
 668   GtkRangePrivate *priv = range->priv;
 669
 670   switch (prop_id)
 671     {
 672     case PROP_ORIENTATION:
 673       g_value_set_enum (value, priv->orientation);
 674       break;
 675     case PROP_ADJUSTMENT:
 676       g_value_set_object (value, priv->adjustment);
 677       break;
 678     case PROP_INVERTED:
 679       g_value_set_boolean (value, priv->inverted);
 680       break;
 681     case PROP_LOWER_STEPPER_SENSITIVITY:
 682       g_value_set_enum (value, gtk_range_get_lower_stepper_sensitivity (range));
 683       break;
 684     case PROP_UPPER_STEPPER_SENSITIVITY:
 685       g_value_set_enum (value, gtk_range_get_upper_stepper_sensitivity (range));
 686       break;
 687     case PROP_SHOW_FILL_LEVEL:
 688       g_value_set_boolean (value, gtk_range_get_show_fill_level (range));
 689       break;
 690     case PROP_RESTRICT_TO_FILL_LEVEL:
 691       g_value_set_boolean (value, gtk_range_get_restrict_to_fill_level (range));
 692       break;
 693     case PROP_FILL_LEVEL:
 694       g_value_set_double (value, gtk_range_get_fill_level (range));
 695       break;
 696     case PROP_ROUND_DIGITS:
 697       g_value_set_int (value, gtk_range_get_round_digits (range));
 698       break;
 699     default:
 700       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 701       break;
 702     }
 703 }
 704
 705 static void
 706 gtk_range_init (GtkRange *range)
 707 {
 708   GtkRangePrivate *priv;
 709
 710   range->priv = G_TYPE_INSTANCE_GET_PRIVATE (range,
 711                                              GTK_TYPE_RANGE,
 712                                              GtkRangePrivate);
 713   priv = range->priv;
 714
 715   gtk_widget_set_has_window (GTK_WIDGET (range), FALSE);
 716
 717   priv->orientation = GTK_ORIENTATION_HORIZONTAL;
 718   priv->adjustment = NULL;
 719   priv->inverted = FALSE;
 720   priv->flippable = FALSE;
 721   priv->min_slider_size = 1;
 722   priv->has_stepper_a = FALSE;
 723   priv->has_stepper_b = FALSE;
 724   priv->has_stepper_c = FALSE;
 725   priv->has_stepper_d = FALSE;
 726   priv->need_recalc = TRUE;
 727   priv->round_digits = -1;
 728   priv->mouse_location = MOUSE_OUTSIDE;
 729   priv->mouse_x = -1;
 730   priv->mouse_y = -1;
 731   priv->grab_location = MOUSE_OUTSIDE;
 732   priv->grab_button = 0;
 733   priv->lower_sensitivity = GTK_SENSITIVITY_AUTO;
 734   priv->upper_sensitivity = GTK_SENSITIVITY_AUTO;
 735   priv->lower_sensitive = TRUE;
 736   priv->upper_sensitive = TRUE;
 737   priv->show_fill_level = FALSE;
 738   priv->restrict_to_fill_level = TRUE;
 739   priv->fill_level = G_MAXDOUBLE;
 740   priv->timer = NULL;
 741 }
 742
 743 /**
 744  * gtk_range_get_adjustment:
 745  * @range: a #GtkRange
 746  *
 747  * Get the #GtkAdjustment which is the "model" object for #GtkRange.
 748  * See gtk_range_set_adjustment() for details.
 749  * The return value does not have a reference added, so should not
 750  * be unreferenced.
 751  *
 752  * Return value: (transfer none): a #GtkAdjustment
 753  **/
 754 GtkAdjustment*
 755 gtk_range_get_adjustment (GtkRange *range)
 756 {
 757   GtkRangePrivate *priv;
 758
 759   g_return_val_if_fail (GTK_IS_RANGE (range), NULL);
 760
 761   priv = range->priv;
 762
 763   if (!priv->adjustment)
 764     gtk_range_set_adjustment (range, NULL);
 765
 766   return priv->adjustment;
 767 }
 768
 769 /**
 770  * gtk_range_set_adjustment:
 771  * @range: a #GtkRange
 772  * @adjustment: a #GtkAdjustment
 773  *
 774  * Sets the adjustment to be used as the "model" object for this range
 775  * widget. The adjustment indicates the current range value, the
 776  * minimum and maximum range values, the step/page increments used
 777  * for keybindings and scrolling, and the page size. The page size
 778  * is normally 0 for #GtkScale and nonzero for #GtkScrollbar, and
 779  * indicates the size of the visible area of the widget being scrolled.
 780  * The page size affects the size of the scrollbar slider.
 781  **/
 782 void
 783 gtk_range_set_adjustment (GtkRange      *range,
 784                           GtkAdjustment *adjustment)
 785 {
 786   GtkRangePrivate *priv;
 787
 788   g_return_if_fail (GTK_IS_RANGE (range));
 789
 790   priv = range->priv;
 791
 792   if (!adjustment)
 793     adjustment = gtk_adjustment_new (0.0, 0.0, 0.0, 0.0, 0.0, 0.0);
 794   else
 795     g_return_if_fail (GTK_IS_ADJUSTMENT (adjustment));
 796
 797   if (priv->adjustment != adjustment)
 798     {
 799       if (priv->adjustment)
 800         {
 801           g_signal_handlers_disconnect_by_func (priv->adjustment,
 802                                                 gtk_range_adjustment_changed,
 803                                                 range);
 804           g_signal_handlers_disconnect_by_func (priv->adjustment,
 805                                                 gtk_range_adjustment_value_changed,
 806                                                 range);
 807           g_object_unref (priv->adjustment);
 808         }
 809
 810       priv->adjustment = adjustment;
 811       g_object_ref_sink (adjustment);
 812
 813       g_signal_connect (adjustment, "changed",
 814                         G_CALLBACK (gtk_range_adjustment_changed),
 815                         range);
 816       g_signal_connect (adjustment, "value-changed",
 817                         G_CALLBACK (gtk_range_adjustment_value_changed),
 818                         range);
 819
 820       gtk_range_adjustment_changed (adjustment, range);
 821       g_object_notify (G_OBJECT (range), "adjustment");
 822     }
 823 }
 824
 825 /**
 826  * gtk_range_set_inverted:
 827  * @range: a #GtkRange
 828  * @setting: %TRUE to invert the range
 829  *
 830  * Ranges normally move from lower to higher values as the
 831  * slider moves from top to bottom or left to right. Inverted
 832  * ranges have higher values at the top or on the right rather than
 833  * on the bottom or left.
 834  **/
 835 void
 836 gtk_range_set_inverted (GtkRange *range,
 837                         gboolean  setting)
 838 {
 839   GtkRangePrivate *priv;
 840
 841   g_return_if_fail (GTK_IS_RANGE (range));
 842
 843   priv = range->priv;
 844
 845   setting = setting != FALSE;
 846
 847   if (setting != priv->inverted)
 848     {
 849       priv->inverted = setting;
 850       g_object_notify (G_OBJECT (range), "inverted");
 851       gtk_widget_queue_resize (GTK_WIDGET (range));
 852     }
 853 }
 854
 855 /**
 856  * gtk_range_get_inverted:
 857  * @range: a #GtkRange
 858  *
 859  * Gets the value set by gtk_range_set_inverted().
 860  *
 861  * Return value: %TRUE if the range is inverted
 862  **/
 863 gboolean
 864 gtk_range_get_inverted (GtkRange *range)
 865 {
 866   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
 867
 868   return range->priv->inverted;
 869 }
 870
 871 /**
 872  * gtk_range_set_flippable:
 873  * @range: a #GtkRange
 874  * @flippable: %TRUE to make the range flippable
 875  *
 876  * If a range is flippable, it will switch its direction if it is
 877  * horizontal and its direction is %GTK_TEXT_DIR_RTL.
 878  *
 879  * See gtk_widget_get_direction().
 880  *
 881  * Since: 2.18
 882  **/
 883 void
 884 gtk_range_set_flippable (GtkRange *range,
 885                          gboolean  flippable)
 886 {
 887   GtkRangePrivate *priv;
 888
 889   g_return_if_fail (GTK_IS_RANGE (range));
 890
 891   priv = range->priv;
 892
 893   flippable = flippable ? TRUE : FALSE;
 894
 895   if (flippable != priv->flippable)
 896     {
 897       priv->flippable = flippable;
 898
 899       gtk_widget_queue_draw (GTK_WIDGET (range));
 900     }
 901 }
 902
 903 /**
 904  * gtk_range_get_flippable:
 905  * @range: a #GtkRange
 906  *
 907  * Gets the value set by gtk_range_set_flippable().
 908  *
 909  * Return value: %TRUE if the range is flippable
 910  *
 911  * Since: 2.18
 912  **/
 913 gboolean
 914 gtk_range_get_flippable (GtkRange *range)
 915 {
 916   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
 917
 918   return range->priv->flippable;
 919 }
 920
 921 /**
 922  * gtk_range_set_slider_size_fixed:
 923  * @range: a #GtkRange
 924  * @size_fixed: %TRUE to make the slider size constant
 925  *
 926  * Sets whether the range's slider has a fixed size, or a size that
 927  * depends on its adjustment's page size.
 928  *
 929  * This function is useful mainly for #GtkRange subclasses.
 930  *
 931  * Since: 2.20
 932  **/
 933 void
 934 gtk_range_set_slider_size_fixed (GtkRange *range,
 935                                  gboolean  size_fixed)
 936 {
 937   GtkRangePrivate *priv;
 938
 939   g_return_if_fail (GTK_IS_RANGE (range));
 940
 941   priv = range->priv;
 942
 943   if (size_fixed != priv->slider_size_fixed)
 944     {
 945       priv->slider_size_fixed = size_fixed ? TRUE : FALSE;
 946
 947       if (priv->adjustment && gtk_widget_get_mapped (GTK_WIDGET (range)))
 948         {
 949           priv->need_recalc = TRUE;
 950           gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
 951           gtk_widget_queue_draw (GTK_WIDGET (range));
 952         }
 953     }
 954 }
 955
 956 /**
 957  * gtk_range_get_slider_size_fixed:
 958  * @range: a #GtkRange
 959  *
 960  * This function is useful mainly for #GtkRange subclasses.
 961  *
 962  * See gtk_range_set_slider_size_fixed().
 963  *
 964  * Return value: whether the range's slider has a fixed size.
 965  *
 966  * Since: 2.20
 967  **/
 968 gboolean
 969 gtk_range_get_slider_size_fixed (GtkRange *range)
 970 {
 971   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
 972
 973   return range->priv->slider_size_fixed;
 974 }
 975
 976 /**
 977  * gtk_range_set_min_slider_size:
 978  * @range: a #GtkRange
 979  * @min_size: The slider's minimum size
 980  *
 981  * Sets the minimum size of the range's slider.
 982  *
 983  * This function is useful mainly for #GtkRange subclasses.
 984  *
 985  * Since: 2.20
 986  **/
 987 void
 988 gtk_range_set_min_slider_size (GtkRange *range,
 989                                gint      min_size)
 990 {
 991   GtkRangePrivate *priv;
 992
 993   g_return_if_fail (GTK_IS_RANGE (range));
 994   g_return_if_fail (min_size > 0);
 995
 996   priv = range->priv;
 997
 998   if (min_size != priv->min_slider_size)
 999     {
1000       priv->min_slider_size = min_size;
1001
1002       if (gtk_widget_is_drawable (GTK_WIDGET (range)))
1003         {
1004           priv->need_recalc = TRUE;
1005           gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1006           gtk_widget_queue_draw (GTK_WIDGET (range));
1007         }
1008     }
1009 }
1010
1011 /**
1012  * gtk_range_get_min_slider_size:
1013  * @range: a #GtkRange
1014  *
1015  * This function is useful mainly for #GtkRange subclasses.
1016  *
1017  * See gtk_range_set_min_slider_size().
1018  *
1019  * Return value: The minimum size of the range's slider.
1020  *
1021  * Since: 2.20
1022  **/
1023 gint
1024 gtk_range_get_min_slider_size (GtkRange *range)
1025 {
1026   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
1027
1028   return range->priv->min_slider_size;
1029 }
1030
1031 /**
1032  * gtk_range_get_range_rect:
1033  * @range: a #GtkRange
1034  * @range_rect: (out): return location for the range rectangle
1035  *
1036  * This function returns the area that contains the range's trough
1037  * and its steppers, in widget->window coordinates.
1038  *
1039  * This function is useful mainly for #GtkRange subclasses.
1040  *
1041  * Since: 2.20
1042  **/
1043 void
1044 gtk_range_get_range_rect (GtkRange     *range,
1045                           GdkRectangle *range_rect)
1046 {
1047   GtkRangePrivate *priv;
1048
1049   g_return_if_fail (GTK_IS_RANGE (range));
1050   g_return_if_fail (range_rect != NULL);
1051
1052   priv = range->priv;
1053
1054   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1055
1056   *range_rect = priv->range_rect;
1057 }
1058
1059 /**
1060  * gtk_range_get_slider_range:
1061  * @range: a #GtkRange
1062  * @slider_start: (out) (allow-none): return location for the slider's
1063  *     start, or %NULL
1064  * @slider_end: (out) (allow-none): return location for the slider's
1065  *     end, or %NULL
1066  *
1067  * This function returns sliders range along the long dimension,
1068  * in widget->window coordinates.
1069  *
1070  * This function is useful mainly for #GtkRange subclasses.
1071  *
1072  * Since: 2.20
1073  **/
1074 void
1075 gtk_range_get_slider_range (GtkRange *range,
1076                             gint     *slider_start,
1077                             gint     *slider_end)
1078 {
1079   GtkRangePrivate *priv;
1080
1081   g_return_if_fail (GTK_IS_RANGE (range));
1082
1083   priv = range->priv;
1084
1085   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1086
1087   if (slider_start)
1088     *slider_start = priv->slider_start;
1089
1090   if (slider_end)
1091     *slider_end = priv->slider_end;
1092 }
1093
1094 /**
1095  * gtk_range_set_lower_stepper_sensitivity:
1096  * @range:       a #GtkRange
1097  * @sensitivity: the lower stepper's sensitivity policy.
1098  *
1099  * Sets the sensitivity policy for the stepper that points to the
1100  * 'lower' end of the GtkRange's adjustment.
1101  *
1102  * Since: 2.10
1103  **/
1104 void
1105 gtk_range_set_lower_stepper_sensitivity (GtkRange           *range,
1106                                          GtkSensitivityType  sensitivity)
1107 {
1108   GtkRangePrivate *priv;
1109
1110   g_return_if_fail (GTK_IS_RANGE (range));
1111
1112   priv = range->priv;
1113
1114   if (priv->lower_sensitivity != sensitivity)
1115     {
1116       priv->lower_sensitivity = sensitivity;
1117
1118       priv->need_recalc = TRUE;
1119       gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1120       gtk_widget_queue_draw (GTK_WIDGET (range));
1121
1122       g_object_notify (G_OBJECT (range), "lower-stepper-sensitivity");
1123     }
1124 }
1125
1126 /**
1127  * gtk_range_get_lower_stepper_sensitivity:
1128  * @range: a #GtkRange
1129  *
1130  * Gets the sensitivity policy for the stepper that points to the
1131  * 'lower' end of the GtkRange's adjustment.
1132  *
1133  * Return value: The lower stepper's sensitivity policy.
1134  *
1135  * Since: 2.10
1136  **/
1137 GtkSensitivityType
1138 gtk_range_get_lower_stepper_sensitivity (GtkRange *range)
1139 {
1140   g_return_val_if_fail (GTK_IS_RANGE (range), GTK_SENSITIVITY_AUTO);
1141
1142   return range->priv->lower_sensitivity;
1143 }
1144
1145 /**
1146  * gtk_range_set_upper_stepper_sensitivity:
1147  * @range:       a #GtkRange
1148  * @sensitivity: the upper stepper's sensitivity policy.
1149  *
1150  * Sets the sensitivity policy for the stepper that points to the
1151  * 'upper' end of the GtkRange's adjustment.
1152  *
1153  * Since: 2.10
1154  **/
1155 void
1156 gtk_range_set_upper_stepper_sensitivity (GtkRange           *range,
1157                                          GtkSensitivityType  sensitivity)
1158 {
1159   GtkRangePrivate *priv;
1160
1161   g_return_if_fail (GTK_IS_RANGE (range));
1162
1163   priv = range->priv;
1164
1165   if (priv->upper_sensitivity != sensitivity)
1166     {
1167       priv->upper_sensitivity = sensitivity;
1168
1169       priv->need_recalc = TRUE;
1170       gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1171       gtk_widget_queue_draw (GTK_WIDGET (range));
1172
1173       g_object_notify (G_OBJECT (range), "upper-stepper-sensitivity");
1174     }
1175 }
1176
1177 /**
1178  * gtk_range_get_upper_stepper_sensitivity:
1179  * @range: a #GtkRange
1180  *
1181  * Gets the sensitivity policy for the stepper that points to the
1182  * 'upper' end of the GtkRange's adjustment.
1183  *
1184  * Return value: The upper stepper's sensitivity policy.
1185  *
1186  * Since: 2.10
1187  **/
1188 GtkSensitivityType
1189 gtk_range_get_upper_stepper_sensitivity (GtkRange *range)
1190 {
1191   g_return_val_if_fail (GTK_IS_RANGE (range), GTK_SENSITIVITY_AUTO);
1192
1193   return range->priv->upper_sensitivity;
1194 }
1195
1196 /**
1197  * gtk_range_set_increments:
1198  * @range: a #GtkRange
1199  * @step: step size
1200  * @page: page size
1201  *
1202  * Sets the step and page sizes for the range.
1203  * The step size is used when the user clicks the #GtkScrollbar
1204  * arrows or moves #GtkScale via arrow keys. The page size
1205  * is used for example when moving via Page Up or Page Down keys.
1206  **/
1207 void
1208 gtk_range_set_increments (GtkRange *range,
1209                           gdouble   step,
1210                           gdouble   page)
1211 {
1212   GtkAdjustment *adjustment;
1213
1214   g_return_if_fail (GTK_IS_RANGE (range));
1215
1216   adjustment = range->priv->adjustment;
1217
1218   gtk_adjustment_configure (adjustment,
1219                             gtk_adjustment_get_value (adjustment),
1220                             gtk_adjustment_get_lower (adjustment),
1221                             gtk_adjustment_get_upper (adjustment),
1222                             step,
1223                             page,
1224                             gtk_adjustment_get_page_size (adjustment));
1225 }
1226
1227 /**
1228  * gtk_range_set_range:
1229  * @range: a #GtkRange
1230  * @min: minimum range value
1231  * @max: maximum range value
1232  *
1233  * Sets the allowable values in the #GtkRange, and clamps the range
1234  * value to be between @min and @max. (If the range has a non-zero
1235  * page size, it is clamped between @min and @max - page-size.)
1236  **/
1237 void
1238 gtk_range_set_range (GtkRange *range,
1239                      gdouble   min,
1240                      gdouble   max)
1241 {
1242   GtkRangePrivate *priv;
1243   GtkAdjustment *adjustment;
1244   gdouble value;
1245
1246   g_return_if_fail (GTK_IS_RANGE (range));
1247   g_return_if_fail (min <= max);
1248
1249   priv = range->priv;
1250   adjustment = priv->adjustment;
1251
1252   value = gtk_adjustment_get_value (adjustment);
1253   if (priv->restrict_to_fill_level)
1254     value = MIN (value, MAX (gtk_adjustment_get_lower (adjustment),
1255                              priv->fill_level));
1256
1257   gtk_adjustment_configure (adjustment,
1258                             value,
1259                             min,
1260                             max,
1261                             gtk_adjustment_get_step_increment (adjustment),
1262                             gtk_adjustment_get_page_increment (adjustment),
1263                             gtk_adjustment_get_page_size (adjustment));
1264 }
1265
1266 /**
1267  * gtk_range_set_value:
1268  * @range: a #GtkRange
1269  * @value: new value of the range
1270  *
1271  * Sets the current value of the range; if the value is outside the
1272  * minimum or maximum range values, it will be clamped to fit inside
1273  * them. The range emits the #GtkRange::value-changed signal if the
1274  * value changes.
1275  **/
1276 void
1277 gtk_range_set_value (GtkRange *range,
1278                      gdouble   value)
1279 {
1280   GtkRangePrivate *priv;
1281
1282   g_return_if_fail (GTK_IS_RANGE (range));
1283
1284   priv = range->priv;
1285
1286   if (priv->restrict_to_fill_level)
1287     value = MIN (value, MAX (gtk_adjustment_get_lower (priv->adjustment),
1288                              priv->fill_level));
1289
1290   gtk_adjustment_set_value (priv->adjustment, value);
1291 }
1292
1293 /**
1294  * gtk_range_get_value:
1295  * @range: a #GtkRange
1296  *
1297  * Gets the current value of the range.
1298  *
1299  * Return value: current value of the range.
1300  **/
1301 gdouble
1302 gtk_range_get_value (GtkRange *range)
1303 {
1304   g_return_val_if_fail (GTK_IS_RANGE (range), 0.0);
1305
1306   return gtk_adjustment_get_value (range->priv->adjustment);
1307 }
1308
1309 /**
1310  * gtk_range_set_show_fill_level:
1311  * @range:           A #GtkRange
1312  * @show_fill_level: Whether a fill level indicator graphics is shown.
1313  *
1314  * Sets whether a graphical fill level is show on the trough. See
1315  * gtk_range_set_fill_level() for a general description of the fill
1316  * level concept.
1317  *
1318  * Since: 2.12
1319  **/
1320 void
1321 gtk_range_set_show_fill_level (GtkRange *range,
1322                                gboolean  show_fill_level)
1323 {
1324   GtkRangePrivate *priv;
1325
1326   g_return_if_fail (GTK_IS_RANGE (range));
1327
1328   priv = range->priv;
1329
1330   show_fill_level = show_fill_level ? TRUE : FALSE;
1331
1332   if (show_fill_level != priv->show_fill_level)
1333     {
1334       priv->show_fill_level = show_fill_level;
1335       g_object_notify (G_OBJECT (range), "show-fill-level");
1336       gtk_widget_queue_draw (GTK_WIDGET (range));
1337     }
1338 }
1339
1340 /**
1341  * gtk_range_get_show_fill_level:
1342  * @range: A #GtkRange
1343  *
1344  * Gets whether the range displays the fill level graphically.
1345  *
1346  * Return value: %TRUE if @range shows the fill level.
1347  *
1348  * Since: 2.12
1349  **/
1350 gboolean
1351 gtk_range_get_show_fill_level (GtkRange *range)
1352 {
1353   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
1354
1355   return range->priv->show_fill_level;
1356 }
1357
1358 /**
1359  * gtk_range_set_restrict_to_fill_level:
1360  * @range:                  A #GtkRange
1361  * @restrict_to_fill_level: Whether the fill level restricts slider movement.
1362  *
1363  * Sets whether the slider is restricted to the fill level. See
1364  * gtk_range_set_fill_level() for a general description of the fill
1365  * level concept.
1366  *
1367  * Since: 2.12
1368  **/
1369 void
1370 gtk_range_set_restrict_to_fill_level (GtkRange *range,
1371                                       gboolean  restrict_to_fill_level)
1372 {
1373   GtkRangePrivate *priv;
1374
1375   g_return_if_fail (GTK_IS_RANGE (range));
1376
1377   priv = range->priv;
1378
1379   restrict_to_fill_level = restrict_to_fill_level ? TRUE : FALSE;
1380
1381   if (restrict_to_fill_level != priv->restrict_to_fill_level)
1382     {
1383       priv->restrict_to_fill_level = restrict_to_fill_level;
1384       g_object_notify (G_OBJECT (range), "restrict-to-fill-level");
1385
1386       gtk_range_set_value (range, gtk_range_get_value (range));
1387     }
1388 }
1389
1390 /**
1391  * gtk_range_get_restrict_to_fill_level:
1392  * @range: A #GtkRange
1393  *
1394  * Gets whether the range is restricted to the fill level.
1395  *
1396  * Return value: %TRUE if @range is restricted to the fill level.
1397  *
1398  * Since: 2.12
1399  **/
1400 gboolean
1401 gtk_range_get_restrict_to_fill_level (GtkRange *range)
1402 {
1403   g_return_val_if_fail (GTK_IS_RANGE (range), FALSE);
1404
1405   return range->priv->restrict_to_fill_level;
1406 }
1407
1408 /**
1409  * gtk_range_set_fill_level:
1410  * @range: a #GtkRange
1411  * @fill_level: the new position of the fill level indicator
1412  *
1413  * Set the new position of the fill level indicator.
1414  *
1415  * The "fill level" is probably best described by its most prominent
1416  * use case, which is an indicator for the amount of pre-buffering in
1417  * a streaming media player. In that use case, the value of the range
1418  * would indicate the current play position, and the fill level would
1419  * be the position up to which the file/stream has been downloaded.
1420  *
1421  * This amount of prebuffering can be displayed on the range's trough
1422  * and is themeable separately from the trough. To enable fill level
1423  * display, use gtk_range_set_show_fill_level(). The range defaults
1424  * to not showing the fill level.
1425  *
1426  * Additionally, it's possible to restrict the range's slider position
1427  * to values which are smaller than the fill level. This is controller
1428  * by gtk_range_set_restrict_to_fill_level() and is by default
1429  * enabled.
1430  *
1431  * Since: 2.12
1432  **/
1433 void
1434 gtk_range_set_fill_level (GtkRange *range,
1435                           gdouble   fill_level)
1436 {
1437   GtkRangePrivate *priv;
1438
1439   g_return_if_fail (GTK_IS_RANGE (range));
1440
1441   priv = range->priv;
1442
1443   if (fill_level != priv->fill_level)
1444     {
1445       priv->fill_level = fill_level;
1446       g_object_notify (G_OBJECT (range), "fill-level");
1447
1448       if (priv->show_fill_level)
1449         gtk_widget_queue_draw (GTK_WIDGET (range));
1450
1451       if (priv->restrict_to_fill_level)
1452         gtk_range_set_value (range, gtk_range_get_value (range));
1453     }
1454 }
1455
1456 /**
1457  * gtk_range_get_fill_level:
1458  * @range: A #GtkRange
1459  *
1460  * Gets the current position of the fill level indicator.
1461  *
1462  * Return value: The current fill level
1463  *
1464  * Since: 2.12
1465  **/
1466 gdouble
1467 gtk_range_get_fill_level (GtkRange *range)
1468 {
1469   g_return_val_if_fail (GTK_IS_RANGE (range), 0.0);
1470
1471   return range->priv->fill_level;
1472 }
1473
1474 static gboolean
1475 should_invert (GtkRange *range)
1476 {
1477   GtkRangePrivate *priv = range->priv;
1478
1479   if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
1480     return
1481       (priv->inverted && !priv->flippable) ||
1482       (priv->inverted && priv->flippable && gtk_widget_get_direction (GTK_WIDGET (range)) == GTK_TEXT_DIR_LTR) ||
1483       (!priv->inverted && priv->flippable && gtk_widget_get_direction (GTK_WIDGET (range)) == GTK_TEXT_DIR_RTL);
1484   else
1485     return priv->inverted;
1486 }
1487
1488 static void
1489 gtk_range_destroy (GtkWidget *widget)
1490 {
1491   GtkRange *range = GTK_RANGE (widget);
1492   GtkRangePrivate *priv = range->priv;
1493
1494   gtk_range_remove_step_timer (range);
1495
1496   if (priv->repaint_id)
1497     g_source_remove (priv->repaint_id);
1498   priv->repaint_id = 0;
1499
1500   if (priv->adjustment)
1501     {
1502       g_signal_handlers_disconnect_by_func (priv->adjustment,
1503                                             gtk_range_adjustment_changed,
1504                                             range);
1505       g_signal_handlers_disconnect_by_func (priv->adjustment,
1506                                             gtk_range_adjustment_value_changed,
1507                                             range);
1508       g_object_unref (priv->adjustment);
1509       priv->adjustment = NULL;
1510     }
1511
1512   if (priv->n_marks)
1513     {
1514       g_free (priv->marks);
1515       priv->marks = NULL;
1516       g_free (priv->mark_pos);
1517       priv->mark_pos = NULL;
1518       priv->n_marks = 0;
1519     }
1520
1521   GTK_WIDGET_CLASS (gtk_range_parent_class)->destroy (widget);
1522 }
1523
1524 static void
1525 gtk_range_get_preferred_width (GtkWidget *widget,
1526                                gint      *minimum,
1527                                gint      *natural)
1528 {
1529   GtkRange *range;
1530   gint slider_width, stepper_size, focus_width, trough_border, stepper_spacing;
1531   GdkRectangle range_rect;
1532   GtkBorder border;
1533
1534   range = GTK_RANGE (widget);
1535
1536   gtk_range_get_props (range,
1537                        &slider_width, &stepper_size,
1538                        &focus_width, &trough_border,
1539                        &stepper_spacing, NULL,
1540                        NULL, NULL);
1541
1542   gtk_range_calc_request (range,
1543                           slider_width, stepper_size,
1544                           focus_width, trough_border, stepper_spacing,
1545                           &range_rect, &border, NULL, NULL, NULL, NULL);
1546
1547   *minimum = *natural = range_rect.width + border.left + border.right;
1548 }
1549
1550 static void
1551 gtk_range_get_preferred_height (GtkWidget *widget,
1552                                 gint      *minimum,
1553                                 gint      *natural)
1554 {
1555   GtkRange *range;
1556   gint slider_width, stepper_size, focus_width, trough_border, stepper_spacing;
1557   GdkRectangle range_rect;
1558   GtkBorder border;
1559
1560   range = GTK_RANGE (widget);
1561
1562   gtk_range_get_props (range,
1563                        &slider_width, &stepper_size,
1564                        &focus_width, &trough_border,
1565                        &stepper_spacing, NULL,
1566                        NULL, NULL);
1567
1568   gtk_range_calc_request (range,
1569                           slider_width, stepper_size,
1570                           focus_width, trough_border, stepper_spacing,
1571                           &range_rect, &border, NULL, NULL, NULL, NULL);
1572
1573   *minimum = *natural = range_rect.height + border.top + border.bottom;
1574 }
1575
1576 static gboolean
1577 modify_allocation_for_window_grip (GtkWidget     *widget,
1578                                    GtkAllocation *allocation)
1579 {
1580   GtkRange *range = GTK_RANGE (widget);
1581   GtkRangePrivate *priv = range->priv;
1582   GtkWidget *window, *parent;
1583   GdkRectangle grip_rect;
1584   GdkRectangle translated_rect;
1585   gint x;
1586   gint y;
1587
1588   window = gtk_widget_get_toplevel (widget);
1589   if (!GTK_IS_WINDOW (window))
1590     return FALSE;
1591
1592   if (!gtk_window_resize_grip_is_visible (GTK_WINDOW (window)))
1593     return FALSE;
1594
1595   /* Get the area of the window's corner grip */
1596   gtk_window_get_resize_grip_area (GTK_WINDOW (window), &grip_rect);
1597
1598   x = 0;
1599   y = 0;
1600
1601   /* Translate the stepper's area into window coords.
1602    * This is slightly tricky. We can't just use
1603    * gtk_widget_translate_coordinates (widget, window, 0, 0, &x, &y)
1604    * since that translates wrt to the _current_ allocation
1605    * and will lead to alternating between overlap and nonoverlap
1606    * for successive allocations.
1607    * Therefore, we find the window-widget to whose window allocation
1608    * is relative, and translate from there upwards.
1609    */
1610   parent = widget;
1611   while (gtk_widget_get_window (parent) == gtk_widget_get_window (widget) &&
1612          parent != window)
1613     {
1614       parent = gtk_widget_get_parent (parent);
1615     }
1616
1617   if (parent == window)
1618     translated_rect = *allocation;
1619   else
1620     {
1621       gtk_widget_translate_coordinates (gtk_widget_get_parent (widget),
1622                                         window,
1623                                         allocation->x, allocation->y,
1624                                         &x, &y);
1625       translated_rect.x = x;
1626       translated_rect.y = y;
1627       translated_rect.width = allocation->width;
1628       translated_rect.height = allocation->height;
1629     }
1630
1631   /* If the stepper button intersects the window resize grip.. */
1632   if (gdk_rectangle_intersect (&grip_rect, &translated_rect, NULL))
1633     {
1634       if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
1635         {
1636           allocation->width -= grip_rect.width;
1637           if (gtk_widget_get_direction (window) == GTK_TEXT_DIR_RTL)
1638             allocation->x += grip_rect.width;
1639         }
1640       else
1641         {
1642           allocation->height -= grip_rect.height;
1643         }
1644
1645       return TRUE;
1646     }
1647
1648   return FALSE;
1649 }
1650
1651 static void
1652 gtk_range_size_allocate (GtkWidget     *widget,
1653                          GtkAllocation *allocation)
1654 {
1655   GtkRange *range = GTK_RANGE (widget);
1656   GtkRangePrivate *priv = range->priv;
1657
1658   modify_allocation_for_window_grip (widget, allocation);
1659   gtk_widget_set_allocation (widget, allocation);
1660
1661   priv->recalc_marks = TRUE;
1662
1663   priv->need_recalc = TRUE;
1664   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1665
1666   if (gtk_widget_get_realized (widget))
1667     gdk_window_move_resize (priv->event_window,
1668                             allocation->x, allocation->y,
1669                             allocation->width, allocation->height);
1670 }
1671
1672 static void
1673 resize_grip_visible_changed (GObject    *object,
1674                              GParamSpec *pspec,
1675                              gpointer    user_data)
1676 {
1677   gtk_widget_queue_resize (GTK_WIDGET (user_data));
1678 }
1679
1680 static void
1681 gtk_range_hierarchy_changed (GtkWidget *widget,
1682                              GtkWidget *previous_toplevel)
1683 {
1684   GtkWidget *window;
1685
1686   if (previous_toplevel)
1687     g_signal_handlers_disconnect_by_func (previous_toplevel,
1688                                           G_CALLBACK (resize_grip_visible_changed),
1689                                           widget);
1690   window = gtk_widget_get_toplevel (widget);
1691   if (gtk_widget_is_toplevel (window))
1692     g_signal_connect (window, "notify::resize-grip-visible",
1693                       G_CALLBACK (resize_grip_visible_changed), widget);
1694 }
1695
1696 static void
1697 gtk_range_realize (GtkWidget *widget)
1698 {
1699   GtkAllocation allocation;
1700   GtkRange *range = GTK_RANGE (widget);
1701   GtkRangePrivate *priv = range->priv;
1702   GdkWindow *window;
1703   GdkWindowAttr attributes;
1704   gint attributes_mask;
1705
1706   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
1707
1708   gtk_widget_set_realized (widget, TRUE);
1709
1710   window = gtk_widget_get_parent_window (widget);
1711   gtk_widget_set_window (widget, window);
1712   g_object_ref (window);
1713
1714   gtk_widget_get_allocation (widget, &allocation);
1715   if (modify_allocation_for_window_grip (widget, &allocation))
1716     gtk_widget_set_allocation (widget, &allocation);
1717
1718   attributes.window_type = GDK_WINDOW_CHILD;
1719   attributes.x = allocation.x;
1720   attributes.y = allocation.y;
1721   attributes.width = allocation.width;
1722   attributes.height = allocation.height;
1723   attributes.wclass = GDK_INPUT_ONLY;
1724   attributes.event_mask = gtk_widget_get_events (widget);
1725   attributes.event_mask |= (GDK_BUTTON_PRESS_MASK |
1726                             GDK_BUTTON_RELEASE_MASK |
1727                             GDK_ENTER_NOTIFY_MASK |
1728                             GDK_LEAVE_NOTIFY_MASK |
1729                             GDK_POINTER_MOTION_MASK |
1730                             GDK_POINTER_MOTION_HINT_MASK);
1731
1732   attributes_mask = GDK_WA_X | GDK_WA_Y;
1733
1734   priv->event_window = gdk_window_new (gtk_widget_get_parent_window (widget),
1735                                         &attributes, attributes_mask);
1736   gdk_window_set_user_data (priv->event_window, range);
1737 }
1738
1739 static void
1740 gtk_range_unrealize (GtkWidget *widget)
1741 {
1742   GtkRange *range = GTK_RANGE (widget);
1743   GtkRangePrivate *priv = range->priv;
1744
1745   gtk_range_remove_step_timer (range);
1746
1747   gdk_window_set_user_data (priv->event_window, NULL);
1748   gdk_window_destroy (priv->event_window);
1749   priv->event_window = NULL;
1750
1751   GTK_WIDGET_CLASS (gtk_range_parent_class)->unrealize (widget);
1752 }
1753
1754 static void
1755 gtk_range_map (GtkWidget *widget)
1756 {
1757   GtkRange *range = GTK_RANGE (widget);
1758   GtkRangePrivate *priv = range->priv;
1759
1760   gdk_window_show (priv->event_window);
1761
1762   GTK_WIDGET_CLASS (gtk_range_parent_class)->map (widget);
1763 }
1764
1765 static void
1766 gtk_range_unmap (GtkWidget *widget)
1767 {
1768   GtkRange *range = GTK_RANGE (widget);
1769   GtkRangePrivate *priv = range->priv;
1770
1771   stop_scrolling (range);
1772
1773   gdk_window_hide (priv->event_window);
1774
1775   GTK_WIDGET_CLASS (gtk_range_parent_class)->unmap (widget);
1776 }
1777
1778 static void
1779 _gtk_range_update_context_for_stepper (GtkRange        *range,
1780                                        GtkStyleContext *context,
1781                                        Stepper          stepper)
1782 {
1783   GtkRangePrivate *priv = range->priv;
1784   GtkJunctionSides sides = 0;
1785   gboolean vertical, is_rtl;
1786
1787   vertical = (priv->orientation == GTK_ORIENTATION_VERTICAL);
1788   is_rtl = (gtk_widget_get_direction (GTK_WIDGET (range)) == GTK_TEXT_DIR_RTL);
1789
1790   /* Take junction sides from what's been
1791    * previously set to the widget itself
1792    */
1793   sides = gtk_style_context_get_junction_sides (context);
1794
1795   if (vertical)
1796     sides &= ~(GTK_JUNCTION_TOP | GTK_JUNCTION_BOTTOM);
1797   else
1798     sides &= ~(GTK_JUNCTION_LEFT | GTK_JUNCTION_RIGHT);
1799
1800   switch (stepper)
1801     {
1802     case STEPPER_A:
1803       if (vertical)
1804         sides |= GTK_JUNCTION_BOTTOM;
1805       else
1806         sides |= (is_rtl) ? GTK_JUNCTION_LEFT : GTK_JUNCTION_RIGHT;
1807       break;
1808     case STEPPER_B:
1809       if (priv->has_stepper_a)
1810         {
1811           if (vertical)
1812             sides |= GTK_JUNCTION_TOP;
1813           else
1814             sides |= (is_rtl) ? GTK_JUNCTION_RIGHT : GTK_JUNCTION_LEFT;
1815         }
1816
1817       if (vertical)
1818         sides |= GTK_JUNCTION_BOTTOM;
1819       else
1820         sides |= (is_rtl) ? GTK_JUNCTION_LEFT : GTK_JUNCTION_RIGHT;
1821       break;
1822     case STEPPER_C:
1823       if (priv->has_stepper_d)
1824         {
1825           if (vertical)
1826             sides |= GTK_JUNCTION_BOTTOM;
1827           else
1828             sides |= (is_rtl) ? GTK_JUNCTION_LEFT : GTK_JUNCTION_RIGHT;
1829         }
1830
1831       if (vertical)
1832         sides |= GTK_JUNCTION_TOP;
1833       else
1834         sides |= (is_rtl) ? GTK_JUNCTION_RIGHT : GTK_JUNCTION_LEFT;
1835       break;
1836     case STEPPER_D:
1837       if (vertical)
1838         sides |= GTK_JUNCTION_TOP;
1839       else
1840         sides |= (is_rtl) ? GTK_JUNCTION_RIGHT : GTK_JUNCTION_LEFT;
1841       break;
1842     }
1843
1844   gtk_style_context_set_junction_sides (context, sides);
1845 }
1846
1847 static void
1848 draw_stepper (GtkRange     *range,
1849               Stepper       stepper,
1850               cairo_t      *cr,
1851               GtkArrowType  arrow_type,
1852               gboolean      clicked,
1853               gboolean      prelighted)
1854 {
1855   GtkRangePrivate *priv = range->priv;
1856   GtkAllocation allocation;
1857   GtkStateFlags state = 0;
1858   GtkStyleContext *context;
1859   GtkWidget *widget = GTK_WIDGET (range);
1860   gfloat arrow_scaling;
1861   GdkRectangle *rect;
1862   gdouble arrow_x;
1863   gdouble arrow_y;
1864   gdouble arrow_size, angle;
1865   gboolean arrow_sensitive;
1866
1867   switch (stepper)
1868     {
1869     case STEPPER_A:
1870       rect = &priv->stepper_a;
1871       break;
1872     case STEPPER_B:
1873       rect = &priv->stepper_b;
1874       break;
1875     case STEPPER_C:
1876       rect = &priv->stepper_c;
1877       break;
1878     case STEPPER_D:
1879       rect = &priv->stepper_d;
1880       break;
1881     default:
1882       g_assert_not_reached ();
1883     };
1884
1885   arrow_sensitive = TRUE;
1886
1887   gtk_widget_get_allocation (widget, &allocation);
1888
1889   if ((!priv->inverted && (arrow_type == GTK_ARROW_DOWN ||
1890                             arrow_type == GTK_ARROW_RIGHT)) ||
1891       (priv->inverted  && (arrow_type == GTK_ARROW_UP ||
1892                             arrow_type == GTK_ARROW_LEFT)))
1893     {
1894       arrow_sensitive = priv->upper_sensitive;
1895     }
1896   else
1897     {
1898       arrow_sensitive = priv->lower_sensitive;
1899     }
1900
1901   if (!gtk_widget_is_sensitive (GTK_WIDGET (range)) || !arrow_sensitive)
1902     state = GTK_STATE_FLAG_INSENSITIVE;
1903   else
1904     {
1905       if (clicked)
1906         state |= GTK_STATE_FLAG_ACTIVE;
1907       if (prelighted)
1908         state |= GTK_STATE_FLAG_PRELIGHT;
1909     }
1910
1911   context = gtk_widget_get_style_context (widget);
1912
1913   gtk_style_context_save (context);
1914
1915   /* don't set juction sides on scrollbar steppers */
1916   if (gtk_style_context_has_class (context, GTK_STYLE_CLASS_SCROLLBAR))
1917     gtk_style_context_set_junction_sides (context, GTK_JUNCTION_NONE);
1918   else
1919     _gtk_range_update_context_for_stepper (range, context, stepper);
1920
1921   gtk_style_context_add_class (context, GTK_STYLE_CLASS_BUTTON);
1922   gtk_style_context_set_state (context, state);
1923
1924   gtk_render_background (context, cr,
1925                          rect->x, rect->y,
1926                          rect->width, rect->height);
1927   gtk_render_frame (context, cr,
1928                     rect->x, rect->y,
1929                     rect->width, rect->height);
1930
1931   gtk_widget_style_get (widget, "arrow-scaling", &arrow_scaling, NULL);
1932
1933   arrow_size = MIN (rect->width, rect->height) * arrow_scaling;
1934   arrow_x = rect->x + (rect->width - arrow_size) / 2;
1935   arrow_y = rect->y + (rect->height - arrow_size) / 2;
1936
1937   if (clicked && arrow_sensitive)
1938     {
1939       gint arrow_displacement_x;
1940       gint arrow_displacement_y;
1941
1942       gtk_range_get_props (GTK_RANGE (widget),
1943                            NULL, NULL, NULL, NULL, NULL, NULL,
1944                            &arrow_displacement_x, &arrow_displacement_y);
1945
1946       arrow_x += arrow_displacement_x;
1947       arrow_y += arrow_displacement_y;
1948     }
1949
1950   switch (arrow_type)
1951     {
1952     case GTK_ARROW_RIGHT:
1953       angle = G_PI / 2;
1954       break;
1955     case GTK_ARROW_DOWN:
1956       angle = G_PI;
1957       break;
1958     case GTK_ARROW_LEFT:
1959       angle = 3 * (G_PI / 2);
1960       break;
1961     case GTK_ARROW_UP:
1962     default:
1963       angle = 0;
1964       break;
1965     }
1966
1967   gtk_render_arrow (context, cr,
1968                     angle,
1969                     arrow_x, arrow_y,
1970                     arrow_size);
1971
1972   gtk_style_context_restore (context);
1973 }
1974
1975 static gboolean
1976 gtk_range_draw (GtkWidget *widget,
1977                 cairo_t   *cr)
1978 {
1979   GtkRange *range = GTK_RANGE (widget);
1980   GtkRangePrivate *priv = range->priv;
1981   gboolean sensitive;
1982   GtkStateFlags state = 0;
1983   gint focus_line_width = 0;
1984   gint focus_padding = 0;
1985   gboolean touchscreen;
1986   gboolean draw_trough = TRUE;
1987   GtkStyleContext *context;
1988
1989   context = gtk_widget_get_style_context (widget);
1990   g_object_get (gtk_widget_get_settings (widget),
1991                 "gtk-touchscreen-mode", &touchscreen,
1992                 NULL);
1993
1994   if (GTK_IS_SCALE (widget) &&
1995       gtk_adjustment_get_upper (priv->adjustment) == gtk_adjustment_get_lower (priv->adjustment))
1996     draw_trough = FALSE;
1997
1998   if (gtk_widget_get_can_focus (GTK_WIDGET (range)))
1999     gtk_widget_style_get (GTK_WIDGET (range),
2000                           "focus-line-width", &focus_line_width,
2001                           "focus-padding", &focus_padding,
2002                           NULL);
2003
2004   /* we're now exposing, so there's no need to force early repaints */
2005   if (priv->repaint_id)
2006     g_source_remove (priv->repaint_id);
2007   priv->repaint_id = 0;
2008
2009   gtk_range_calc_marks (range);
2010   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
2011
2012   sensitive = gtk_widget_is_sensitive (widget);
2013
2014   /* Just to be confusing, we draw the trough for the whole
2015    * range rectangle, not the trough rectangle (the trough
2016    * rectangle is just for hit detection)
2017    */
2018   cairo_save (cr);
2019   gdk_cairo_rectangle (cr, &priv->range_rect);
2020   cairo_clip (cr);
2021
2022     {
2023       gint     x      = (priv->range_rect.x +
2024                          focus_line_width + focus_padding);
2025       gint     y      = (priv->range_rect.y +
2026                          focus_line_width + focus_padding);
2027       gint     width  = (priv->range_rect.width -
2028                          2 * (focus_line_width + focus_padding));
2029       gint     height = (priv->range_rect.height -
2030                          2 * (focus_line_width + focus_padding));
2031       gboolean trough_under_steppers;
2032       gint     stepper_size;
2033       gint     stepper_spacing;
2034
2035       gtk_widget_style_get (GTK_WIDGET (range),
2036                             "trough-under-steppers", &trough_under_steppers,
2037                             "stepper-size",          &stepper_size,
2038                             "stepper-spacing",       &stepper_spacing,
2039                             NULL);
2040
2041       gtk_style_context_save (context);
2042
2043       if (!sensitive)
2044         gtk_style_context_set_state (context, GTK_STATE_FLAG_INSENSITIVE);
2045
2046       if (stepper_spacing > 0)
2047         trough_under_steppers = FALSE;
2048
2049       if (!trough_under_steppers)
2050         {
2051           gint offset  = 0;
2052           gint shorter = 0;
2053
2054           if (priv->has_stepper_a)
2055             offset += stepper_size;
2056
2057           if (priv->has_stepper_b)
2058             offset += stepper_size;
2059
2060           shorter += offset;
2061
2062           if (priv->has_stepper_c)
2063             shorter += stepper_size;
2064
2065           if (priv->has_stepper_d)
2066             shorter += stepper_size;
2067
2068           if (priv->has_stepper_a || priv->has_stepper_b)
2069             {
2070               offset  += stepper_spacing;
2071               shorter += stepper_spacing;
2072             }
2073
2074           if (priv->has_stepper_c || priv->has_stepper_d)
2075             {
2076               shorter += stepper_spacing;
2077             }
2078
2079           if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
2080             {
2081               x     += offset;
2082               width -= shorter;
2083             }
2084           else
2085             {
2086               y      += offset;
2087               height -= shorter;
2088             }
2089         }
2090
2091       gtk_style_context_save (context);
2092       gtk_style_context_add_class (context, GTK_STYLE_CLASS_TROUGH);
2093
2094       if (draw_trough)
2095         {
2096           gint trough_change_pos_x = width;
2097           gint trough_change_pos_y = height;
2098
2099           if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
2100             trough_change_pos_x = (priv->slider.x +
2101                                    priv->slider.width / 2 -
2102                                    x);
2103           else
2104             trough_change_pos_y = (priv->slider.y +
2105                                    priv->slider.height / 2 -
2106                                    y);
2107
2108           /* FIXME: was trough-upper and trough-lower really used,
2109            * in that case, it should still be exposed somehow.
2110            */
2111           gtk_render_background (context, cr, x, y,
2112                                  trough_change_pos_x,
2113                                  trough_change_pos_y);
2114
2115           if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
2116             trough_change_pos_y = 0;
2117           else
2118             trough_change_pos_x = 0;
2119
2120           gtk_render_background (context, cr,
2121                                  x + trough_change_pos_x, y + trough_change_pos_y,
2122                                  width - trough_change_pos_x,
2123                                  height - trough_change_pos_y);
2124
2125           gtk_render_frame (context, cr,
2126                             x, y, width, height);
2127         }
2128       else
2129         {
2130           gtk_render_background (context, cr,
2131                                  x, y, width, height);
2132           gtk_render_frame (context, cr,
2133                             x, y, width, height);
2134         }
2135
2136       gtk_style_context_restore (context);
2137
2138       if (priv->show_fill_level &&
2139           gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment) -
2140           gtk_adjustment_get_lower (priv->adjustment) != 0)
2141         {
2142           gdouble  fill_level  = priv->fill_level;
2143           gint     fill_x      = x;
2144           gint     fill_y      = y;
2145           gint     fill_width  = width;
2146           gint     fill_height = height;
2147
2148           gtk_style_context_save (context);
2149           gtk_style_context_add_class (context, GTK_STYLE_CLASS_PROGRESSBAR);
2150
2151           fill_level = CLAMP (fill_level, gtk_adjustment_get_lower (priv->adjustment),
2152                               gtk_adjustment_get_upper (priv->adjustment) -
2153                               gtk_adjustment_get_page_size (priv->adjustment));
2154
2155           if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
2156             {
2157               fill_x     = priv->trough.x;
2158               fill_width = (priv->slider.width +
2159                             (fill_level - gtk_adjustment_get_lower (priv->adjustment)) /
2160                             (gtk_adjustment_get_upper (priv->adjustment) -
2161                              gtk_adjustment_get_lower (priv->adjustment) -
2162                              gtk_adjustment_get_page_size (priv->adjustment)) *
2163                             (priv->trough.width -
2164                              priv->slider.width));
2165
2166               if (should_invert (range))
2167                 fill_x += priv->trough.width - fill_width;
2168             }
2169           else
2170             {
2171               fill_y      = priv->trough.y;
2172               fill_height = (priv->slider.height +
2173                              (fill_level - gtk_adjustment_get_lower (priv->adjustment)) /
2174                              (gtk_adjustment_get_upper (priv->adjustment) -
2175                               gtk_adjustment_get_lower (priv->adjustment) -
2176                               gtk_adjustment_get_page_size (priv->adjustment)) *
2177                              (priv->trough.height -
2178                               priv->slider.height));
2179
2180               if (should_invert (range))
2181                 fill_y += priv->trough.height - fill_height;
2182             }
2183
2184 #if 0
2185           if (fill_level < gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment))
2186             fill_detail = "trough-fill-level-full";
2187           else
2188             fill_detail = "trough-fill-level";
2189 #endif
2190
2191           gtk_render_activity (context, cr,
2192                                fill_x, fill_y,
2193                                fill_width, fill_height);
2194
2195           gtk_style_context_restore (context);
2196         }
2197
2198       gtk_style_context_restore (context);
2199
2200       if (sensitive && gtk_widget_has_focus (widget))
2201         {
2202           gtk_style_context_save (context);
2203           gtk_style_context_set_state (context,
2204                                        gtk_widget_get_state_flags (widget));
2205
2206           gtk_render_focus (context, cr,
2207                             priv->range_rect.x,
2208                             priv->range_rect.y,
2209                             priv->range_rect.width,
2210                             priv->range_rect.height);
2211
2212           gtk_style_context_restore (context);
2213         }
2214     }
2215
2216   cairo_restore (cr);
2217
2218   if (!sensitive)
2219     state = GTK_STATE_FLAG_INSENSITIVE;
2220   else if (!touchscreen && priv->mouse_location == MOUSE_SLIDER)
2221     state = GTK_STATE_FLAG_PRELIGHT;
2222
2223   if (priv->grab_location == MOUSE_SLIDER)
2224     state |= GTK_STATE_FLAG_ACTIVE;
2225
2226   cairo_save (cr);
2227   gdk_cairo_rectangle (cr, &priv->slider);
2228   cairo_clip (cr);
2229
2230   if (draw_trough)
2231     {
2232       gtk_style_context_save (context);
2233       gtk_style_context_add_class (context, GTK_STYLE_CLASS_SLIDER);
2234       gtk_style_context_set_state (context, state);
2235
2236       gtk_render_slider (context, cr,
2237                          priv->slider.x,
2238                          priv->slider.y,
2239                          priv->slider.width,
2240                          priv->slider.height,
2241                          priv->orientation);
2242
2243       gtk_style_context_restore (context);
2244     }
2245
2246   cairo_restore (cr);
2247
2248   if (priv->has_stepper_a)
2249     draw_stepper (range, STEPPER_A, cr,
2250                   priv->orientation == GTK_ORIENTATION_VERTICAL ? GTK_ARROW_UP : GTK_ARROW_LEFT,
2251                   priv->grab_location == MOUSE_STEPPER_A,
2252                   !touchscreen && priv->mouse_location == MOUSE_STEPPER_A);
2253
2254   if (priv->has_stepper_b)
2255     draw_stepper (range, STEPPER_B, cr,
2256                   priv->orientation == GTK_ORIENTATION_VERTICAL ? GTK_ARROW_DOWN : GTK_ARROW_RIGHT,
2257                   priv->grab_location == MOUSE_STEPPER_B,
2258                   !touchscreen && priv->mouse_location == MOUSE_STEPPER_B);
2259
2260   if (priv->has_stepper_c)
2261     draw_stepper (range, STEPPER_C, cr,
2262                   priv->orientation == GTK_ORIENTATION_VERTICAL ? GTK_ARROW_UP : GTK_ARROW_LEFT,
2263                   priv->grab_location == MOUSE_STEPPER_C,
2264                   !touchscreen && priv->mouse_location == MOUSE_STEPPER_C);
2265
2266   if (priv->has_stepper_d)
2267     draw_stepper (range, STEPPER_D, cr,
2268                   priv->orientation == GTK_ORIENTATION_VERTICAL ? GTK_ARROW_DOWN : GTK_ARROW_RIGHT,
2269                   priv->grab_location == MOUSE_STEPPER_D,
2270                   !touchscreen && priv->mouse_location == MOUSE_STEPPER_D);
2271
2272   return FALSE;
2273 }
2274
2275 static void
2276 range_grab_add (GtkRange      *range,
2277                 GdkDevice     *device,
2278                 MouseLocation  location,
2279                 gint           button)
2280 {
2281   GtkRangePrivate *priv = range->priv;
2282
2283   if (device == priv->grab_device)
2284     return;
2285
2286   if (priv->grab_device != NULL)
2287     {
2288       g_warning ("GtkRange already had a grab device, releasing device grab");
2289       gtk_device_grab_remove (GTK_WIDGET (range), priv->grab_device);
2290     }
2291
2292   /* we don't actually gdk_grab, since a button is down */
2293   gtk_device_grab_add (GTK_WIDGET (range), device, TRUE);
2294
2295   priv->grab_location = location;
2296   priv->grab_button = button;
2297   priv->grab_device = device;
2298
2299   if (gtk_range_update_mouse_location (range))
2300     gtk_widget_queue_draw (GTK_WIDGET (range));
2301 }
2302
2303 static void
2304 range_grab_remove (GtkRange *range)
2305 {
2306   GtkRangePrivate *priv = range->priv;
2307   MouseLocation location;
2308
2309   if (priv->grab_device)
2310     {
2311       gtk_device_grab_remove (GTK_WIDGET (range),
2312                               priv->grab_device);
2313       priv->grab_device = NULL;
2314     }
2315
2316   location = priv->grab_location;
2317   priv->grab_location = MOUSE_OUTSIDE;
2318   priv->grab_button = 0;
2319
2320   if (gtk_range_update_mouse_location (range) ||
2321       location != MOUSE_OUTSIDE)
2322     gtk_widget_queue_draw (GTK_WIDGET (range));
2323 }
2324
2325 static GtkScrollType
2326 range_get_scroll_for_grab (GtkRange      *range)
2327 {
2328   GtkRangePrivate *priv = range->priv;
2329   gboolean invert;
2330
2331   invert = should_invert (range);
2332   switch (priv->grab_location)
2333     {
2334       /* Backward stepper */
2335     case MOUSE_STEPPER_A:
2336     case MOUSE_STEPPER_C:
2337       switch (priv->grab_button)
2338         {
2339         case 1:
2340           return invert ? GTK_SCROLL_STEP_FORWARD : GTK_SCROLL_STEP_BACKWARD;
2341           break;
2342         case 2:
2343           return invert ? GTK_SCROLL_PAGE_FORWARD : GTK_SCROLL_PAGE_BACKWARD;
2344           break;
2345         case 3:
2346           return invert ? GTK_SCROLL_END : GTK_SCROLL_START;
2347           break;
2348         }
2349       break;
2350
2351       /* Forward stepper */
2352     case MOUSE_STEPPER_B:
2353     case MOUSE_STEPPER_D:
2354       switch (priv->grab_button)
2355         {
2356         case 1:
2357           return invert ? GTK_SCROLL_STEP_BACKWARD : GTK_SCROLL_STEP_FORWARD;
2358           break;
2359         case 2:
2360           return invert ? GTK_SCROLL_PAGE_BACKWARD : GTK_SCROLL_PAGE_FORWARD;
2361           break;
2362         case 3:
2363           return invert ? GTK_SCROLL_START : GTK_SCROLL_END;
2364           break;
2365        }
2366       break;
2367
2368       /* In the trough */
2369     case MOUSE_TROUGH:
2370       {
2371         if (priv->trough_click_forward)
2372           return GTK_SCROLL_PAGE_FORWARD;
2373         else
2374           return GTK_SCROLL_PAGE_BACKWARD;
2375       }
2376       break;
2377
2378     case MOUSE_OUTSIDE:
2379     case MOUSE_SLIDER:
2380     case MOUSE_WIDGET:
2381       break;
2382     }
2383
2384   return GTK_SCROLL_NONE;
2385 }
2386
2387 static gdouble
2388 coord_to_value (GtkRange *range,
2389                 gint      coord)
2390 {
2391   GtkRangePrivate *priv = range->priv;
2392   gdouble frac;
2393   gdouble value;
2394   gint    trough_length;
2395   gint    trough_start;
2396   gint    slider_length;
2397   gint    trough_border;
2398   gint    trough_under_steppers;
2399
2400   if (priv->orientation == GTK_ORIENTATION_VERTICAL)
2401     {
2402       trough_length = priv->trough.height;
2403       trough_start  = priv->trough.y;
2404       slider_length = priv->slider.height;
2405     }
2406   else
2407     {
2408       trough_length = priv->trough.width;
2409       trough_start  = priv->trough.x;
2410       slider_length = priv->slider.width;
2411     }
2412
2413   gtk_range_get_props (range, NULL, NULL, NULL, &trough_border, NULL,
2414                        &trough_under_steppers, NULL, NULL);
2415
2416   if (! trough_under_steppers)
2417     {
2418       trough_start += trough_border;
2419       trough_length -= 2 * trough_border;
2420     }
2421
2422   if (trough_length == slider_length)
2423     frac = 1.0;
2424   else
2425     frac = (MAX (0, coord - trough_start) /
2426             (gdouble) (trough_length - slider_length));
2427
2428   if (should_invert (range))
2429     frac = 1.0 - frac;
2430
2431   value = gtk_adjustment_get_lower (priv->adjustment) + frac * (gtk_adjustment_get_upper (priv->adjustment) -
2432                                             gtk_adjustment_get_lower (priv->adjustment) -
2433                                             gtk_adjustment_get_page_size (priv->adjustment));
2434
2435   return value;
2436 }
2437
2438 static gboolean
2439 gtk_range_key_press (GtkWidget   *widget,
2440                      GdkEventKey *event)
2441 {
2442   GdkDevice *device;
2443   GtkRange *range = GTK_RANGE (widget);
2444   GtkRangePrivate *priv = range->priv;
2445
2446   device = gdk_event_get_device ((GdkEvent *) event);
2447   device = gdk_device_get_associated_device (device);
2448
2449   if (device == priv->grab_device &&
2450       event->keyval == GDK_KEY_Escape &&
2451       priv->grab_location != MOUSE_OUTSIDE)
2452     {
2453       stop_scrolling (range);
2454
2455       update_slider_position (range,
2456                               priv->slide_initial_coordinate,
2457                               priv->slide_initial_coordinate);
2458
2459       return TRUE;
2460     }
2461
2462   return GTK_WIDGET_CLASS (gtk_range_parent_class)->key_press_event (widget, event);
2463 }
2464
2465 static gint
2466 gtk_range_button_press (GtkWidget      *widget,
2467                         GdkEventButton *event)
2468 {
2469   GtkRange *range = GTK_RANGE (widget);
2470   GtkRangePrivate *priv = range->priv;
2471   GdkDevice *device;
2472
2473   if (!gtk_widget_has_focus (widget))
2474     gtk_widget_grab_focus (widget);
2475
2476   /* ignore presses when we're already doing something else. */
2477   if (priv->grab_location != MOUSE_OUTSIDE)
2478     return FALSE;
2479
2480   device = gdk_event_get_device ((GdkEvent *) event);
2481   priv->mouse_x = event->x;
2482   priv->mouse_y = event->y;
2483
2484   if (gtk_range_update_mouse_location (range))
2485     gtk_widget_queue_draw (widget);
2486
2487   if (priv->mouse_location == MOUSE_TROUGH  &&
2488       event->button == 1)
2489     {
2490       /* button 1 steps by page increment, as with button 2 on a stepper
2491        */
2492       GtkScrollType scroll;
2493       gdouble click_value;
2494
2495       click_value = coord_to_value (range,
2496                                     priv->orientation == GTK_ORIENTATION_VERTICAL ?
2497                                     event->y : event->x);
2498
2499       priv->trough_click_forward = click_value > gtk_adjustment_get_value (priv->adjustment);
2500       range_grab_add (range, device, MOUSE_TROUGH, event->button);
2501
2502       scroll = range_get_scroll_for_grab (range);
2503
2504       gtk_range_add_step_timer (range, scroll);
2505
2506       return TRUE;
2507     }
2508   else if ((priv->mouse_location == MOUSE_STEPPER_A ||
2509             priv->mouse_location == MOUSE_STEPPER_B ||
2510             priv->mouse_location == MOUSE_STEPPER_C ||
2511             priv->mouse_location == MOUSE_STEPPER_D) &&
2512            (event->button == 1 || event->button == 2 || event->button == 3))
2513     {
2514       GtkAllocation allocation;
2515       GdkRectangle *stepper_area;
2516       GtkScrollType scroll;
2517
2518       range_grab_add (range, device, priv->mouse_location, event->button);
2519
2520       gtk_widget_get_allocation (widget, &allocation);
2521       stepper_area = get_area (range, priv->mouse_location);
2522
2523       gtk_widget_queue_draw_area (widget,
2524                                   allocation.x + stepper_area->x,
2525                                   allocation.y + stepper_area->y,
2526                                   stepper_area->width,
2527                                   stepper_area->height);
2528
2529       scroll = range_get_scroll_for_grab (range);
2530       if (scroll != GTK_SCROLL_NONE)
2531         gtk_range_add_step_timer (range, scroll);
2532
2533       return TRUE;
2534     }
2535   else if ((priv->mouse_location == MOUSE_TROUGH &&
2536             event->button == 2) ||
2537            priv->mouse_location == MOUSE_SLIDER)
2538     {
2539       gboolean need_value_update = FALSE;
2540
2541       /* Any button can be used to drag the slider, but you can start
2542        * dragging the slider with a trough click using button 2;
2543        * On button 2 press, we warp the slider to mouse position,
2544        * then begin the slider drag.
2545        */
2546       if (event->button == 2)
2547         {
2548           gdouble slider_low_value, slider_high_value, new_value;
2549
2550           slider_high_value =
2551             coord_to_value (range,
2552                             priv->orientation == GTK_ORIENTATION_VERTICAL ?
2553                             event->y : event->x);
2554           slider_low_value =
2555             coord_to_value (range,
2556                             priv->orientation == GTK_ORIENTATION_VERTICAL ?
2557                             event->y - priv->slider.height :
2558                             event->x - priv->slider.width);
2559
2560           /* compute new value for warped slider */
2561           new_value = slider_low_value + (slider_high_value - slider_low_value) / 2;
2562
2563           /* recalc slider, so we can set slide_initial_slider_position
2564            * properly
2565            */
2566           priv->need_recalc = TRUE;
2567           gtk_range_calc_layout (range, new_value);
2568
2569           /* defer adjustment updates to update_slider_position() in order
2570            * to keep pixel quantisation
2571            */
2572           need_value_update = TRUE;
2573         }
2574
2575       if (priv->orientation == GTK_ORIENTATION_VERTICAL)
2576         {
2577           priv->slide_initial_slider_position = priv->slider.y;
2578           priv->slide_initial_coordinate = event->y;
2579         }
2580       else
2581         {
2582           priv->slide_initial_slider_position = priv->slider.x;
2583           priv->slide_initial_coordinate = event->x;
2584         }
2585
2586       range_grab_add (range, device, MOUSE_SLIDER, event->button);
2587
2588       gtk_widget_queue_draw (widget);
2589
2590       if (need_value_update)
2591         update_slider_position (range, event->x, event->y);
2592
2593       return TRUE;
2594     }
2595
2596   return FALSE;
2597 }
2598
2599 /* During a slide, move the slider as required given new mouse position */
2600 static void
2601 update_slider_position (GtkRange *range,
2602                         gint      mouse_x,
2603                         gint      mouse_y)
2604 {
2605   GtkRangePrivate *priv = range->priv;
2606   gint delta;
2607   gint c;
2608   gdouble new_value;
2609   gboolean handled;
2610   gdouble next_value;
2611   gdouble mark_value;
2612   gdouble mark_delta;
2613   gint i;
2614
2615   if (priv->orientation == GTK_ORIENTATION_VERTICAL)
2616     delta = mouse_y - priv->slide_initial_coordinate;
2617   else
2618     delta = mouse_x - priv->slide_initial_coordinate;
2619
2620   c = priv->slide_initial_slider_position + delta;
2621
2622   new_value = coord_to_value (range, c);
2623   next_value = coord_to_value (range, c + 1);
2624   mark_delta = fabs (next_value - new_value);
2625
2626   for (i = 0; i < priv->n_marks; i++)
2627     {
2628       mark_value = priv->marks[i];
2629
2630       if (fabs (gtk_adjustment_get_value (priv->adjustment) - mark_value) < 3 * mark_delta)
2631         {
2632           if (fabs (new_value - mark_value) < (priv->slider_end - priv->slider_start) * 0.5 * mark_delta)
2633             {
2634               new_value = mark_value;
2635               break;
2636             }
2637         }
2638     }
2639
2640   g_signal_emit (range, signals[CHANGE_VALUE], 0, GTK_SCROLL_JUMP, new_value,
2641                  &handled);
2642 }
2643
2644 static void
2645 stop_scrolling (GtkRange *range)
2646 {
2647   range_grab_remove (range);
2648   gtk_range_remove_step_timer (range);
2649 }
2650
2651 static gboolean
2652 gtk_range_grab_broken (GtkWidget          *widget,
2653                        GdkEventGrabBroken *event)
2654 {
2655   GtkRange *range = GTK_RANGE (widget);
2656   GtkRangePrivate *priv = range->priv;
2657   GdkDevice *device;
2658
2659   device = gdk_event_get_device ((GdkEvent *) event);
2660
2661   if (device == priv->grab_device &&
2662       priv->grab_location != MOUSE_OUTSIDE)
2663     {
2664       if (priv->grab_location == MOUSE_SLIDER)
2665         update_slider_position (range, priv->mouse_x, priv->mouse_y);
2666
2667       stop_scrolling (range);
2668
2669       return TRUE;
2670     }
2671
2672   return FALSE;
2673 }
2674
2675 static gint
2676 gtk_range_button_release (GtkWidget      *widget,
2677                           GdkEventButton *event)
2678 {
2679   GtkRange *range = GTK_RANGE (widget);
2680   GtkRangePrivate *priv = range->priv;
2681   GdkDevice *device;
2682
2683   if (event->window == priv->event_window)
2684     {
2685       priv->mouse_x = event->x;
2686       priv->mouse_y = event->y;
2687     }
2688   else
2689     {
2690       gdk_window_get_device_position (priv->event_window,
2691                                       event->device,
2692                                       &priv->mouse_x,
2693                                       &priv->mouse_y,
2694                                       NULL);
2695     }
2696
2697   device = gdk_event_get_device ((GdkEvent *) event);
2698
2699   if (priv->grab_device == device &&
2700       priv->grab_button == event->button)
2701     {
2702       if (priv->grab_location == MOUSE_SLIDER)
2703         update_slider_position (range, priv->mouse_x, priv->mouse_y);
2704
2705       stop_scrolling (range);
2706
2707       return TRUE;
2708     }
2709
2710   return FALSE;
2711 }
2712
2713 /**
2714  * _gtk_range_get_wheel_delta:
2715  * @range: a #GtkRange
2716  * @direction: A #GdkScrollDirection
2717  *
2718  * Returns a good step value for the mouse wheel.
2719  *
2720  * Return value: A good step value for the mouse wheel.
2721  *
2722  * Since: 2.4
2723  **/
2724 gdouble
2725 _gtk_range_get_wheel_delta (GtkRange           *range,
2726                             GdkScrollDirection  direction)
2727 {
2728   GtkRangePrivate *priv = range->priv;
2729   GtkAdjustment *adjustment = priv->adjustment;
2730   gdouble delta;
2731
2732   if (GTK_IS_SCROLLBAR (range))
2733     delta = pow (gtk_adjustment_get_page_size (adjustment), 2.0 / 3.0);
2734   else
2735     delta = gtk_adjustment_get_step_increment (adjustment) * 2;
2736
2737   if (direction == GDK_SCROLL_UP ||
2738       direction == GDK_SCROLL_LEFT)
2739     delta = - delta;
2740
2741   if (priv->inverted)
2742     delta = - delta;
2743
2744   return delta;
2745 }
2746
2747 static gboolean
2748 gtk_range_scroll_event (GtkWidget      *widget,
2749                         GdkEventScroll *event)
2750 {
2751   GtkRange *range = GTK_RANGE (widget);
2752   GtkRangePrivate *priv = range->priv;
2753
2754   if (gtk_widget_get_realized (widget))
2755     {
2756       gdouble delta;
2757       gboolean handled;
2758
2759       delta = _gtk_range_get_wheel_delta (range, event->direction);
2760
2761       g_signal_emit (range, signals[CHANGE_VALUE], 0,
2762                      GTK_SCROLL_JUMP, gtk_adjustment_get_value (priv->adjustment) + delta,
2763                      &handled);
2764     }
2765
2766   return TRUE;
2767 }
2768
2769 static gboolean
2770 gtk_range_motion_notify (GtkWidget      *widget,
2771                          GdkEventMotion *event)
2772 {
2773   GtkRange *range = GTK_RANGE (widget);
2774   GtkRangePrivate *priv = range->priv;
2775
2776   gdk_event_request_motions (event);
2777
2778   priv->mouse_x = event->x;
2779   priv->mouse_y = event->y;
2780
2781   if (gtk_range_update_mouse_location (range))
2782     gtk_widget_queue_draw (widget);
2783
2784   if (priv->grab_location == MOUSE_SLIDER)
2785     update_slider_position (range, event->x, event->y);
2786
2787   /* We handled the event if the mouse was in the range_rect */
2788   return priv->mouse_location != MOUSE_OUTSIDE;
2789 }
2790
2791 static gboolean
2792 gtk_range_enter_notify (GtkWidget        *widget,
2793                         GdkEventCrossing *event)
2794 {
2795   GtkRange *range = GTK_RANGE (widget);
2796   GtkRangePrivate *priv = range->priv;
2797
2798   priv->mouse_x = event->x;
2799   priv->mouse_y = event->y;
2800
2801   if (gtk_range_update_mouse_location (range))
2802     gtk_widget_queue_draw (widget);
2803
2804   return TRUE;
2805 }
2806
2807 static gboolean
2808 gtk_range_leave_notify (GtkWidget        *widget,
2809                         GdkEventCrossing *event)
2810 {
2811   GtkRange *range = GTK_RANGE (widget);
2812   GtkRangePrivate *priv = range->priv;
2813
2814   priv->mouse_x = -1;
2815   priv->mouse_y = -1;
2816
2817   if (gtk_range_update_mouse_location (range))
2818     gtk_widget_queue_draw (widget);
2819
2820   return TRUE;
2821 }
2822
2823 static void
2824 gtk_range_grab_notify (GtkWidget *widget,
2825                        gboolean   was_grabbed)
2826 {
2827   GtkRangePrivate *priv = GTK_RANGE (widget)->priv;
2828
2829   if (priv->grab_device &&
2830       gtk_widget_device_is_shadowed (widget, priv->grab_device))
2831     stop_scrolling (GTK_RANGE (widget));
2832 }
2833
2834 static void
2835 gtk_range_state_flags_changed (GtkWidget     *widget,
2836                                GtkStateFlags  previous_state)
2837 {
2838   if (!gtk_widget_is_sensitive (widget))
2839     stop_scrolling (GTK_RANGE (widget));
2840 }
2841
2842 #define check_rectangle(rectangle1, rectangle2)              \
2843   {                                                          \
2844     if (rectangle1.x != rectangle2.x) return TRUE;           \
2845     if (rectangle1.y != rectangle2.y) return TRUE;           \
2846     if (rectangle1.width  != rectangle2.width)  return TRUE; \
2847     if (rectangle1.height != rectangle2.height) return TRUE; \
2848   }
2849
2850 static gboolean
2851 layout_changed (GtkRangePrivate *priv1,
2852                 GtkRangePrivate *priv2)
2853 {
2854   check_rectangle (priv1->slider, priv2->slider);
2855   check_rectangle (priv1->trough, priv2->trough);
2856   check_rectangle (priv1->stepper_a, priv2->stepper_a);
2857   check_rectangle (priv1->stepper_d, priv2->stepper_d);
2858   check_rectangle (priv1->stepper_b, priv2->stepper_b);
2859   check_rectangle (priv1->stepper_c, priv2->stepper_c);
2860
2861   if (priv1->upper_sensitive != priv2->upper_sensitive) return TRUE;
2862   if (priv1->lower_sensitive != priv2->lower_sensitive) return TRUE;
2863
2864   return FALSE;
2865 }
2866
2867 static void
2868 gtk_range_adjustment_changed (GtkAdjustment *adjustment,
2869                               gpointer       data)
2870 {
2871   GtkRange *range = GTK_RANGE (data);
2872   GtkRangePrivate *priv = range->priv;
2873   GtkRangePrivate priv_aux = *priv;
2874
2875   priv->recalc_marks = TRUE;
2876   priv->need_recalc = TRUE;
2877   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
2878
2879   /* now check whether the layout changed  */
2880   if (layout_changed (priv, &priv_aux))
2881     gtk_widget_queue_draw (GTK_WIDGET (range));
2882
2883   /* Note that we don't round off to priv->round_digits here.
2884    * that's because it's really broken to change a value
2885    * in response to a change signal on that value; round_digits
2886    * is therefore defined to be a filter on what the GtkRange
2887    * can input into the adjustment, not a filter that the GtkRange
2888    * will enforce on the adjustment.
2889    */
2890 }
2891
2892 static gboolean
2893 force_repaint (gpointer data)
2894 {
2895   GtkRange *range = GTK_RANGE (data);
2896   GtkRangePrivate *priv = range->priv;
2897   GtkWidget *widget = GTK_WIDGET (range);
2898
2899   priv->repaint_id = 0;
2900   if (gtk_widget_is_drawable (widget))
2901     gdk_window_process_updates (gtk_widget_get_window (widget), FALSE);
2902
2903   return FALSE;
2904 }
2905
2906 static void
2907 gtk_range_adjustment_value_changed (GtkAdjustment *adjustment,
2908                                     gpointer       data)
2909 {
2910   GtkRange *range = GTK_RANGE (data);
2911   GtkRangePrivate *priv = range->priv;
2912   GtkRangePrivate priv_aux = *priv;
2913
2914   priv->need_recalc = TRUE;
2915   gtk_range_calc_layout (range, gtk_adjustment_get_value (priv->adjustment));
2916
2917   /* now check whether the layout changed  */
2918   if (layout_changed (priv, &priv_aux) ||
2919       (GTK_IS_SCALE (range) && gtk_scale_get_draw_value (GTK_SCALE (range))))
2920     {
2921       gtk_widget_queue_draw (GTK_WIDGET (range));
2922       /* setup a timer to ensure the range isn't lagging too much behind the scroll position */
2923       if (!priv->repaint_id)
2924         priv->repaint_id = gdk_threads_add_timeout_full (GDK_PRIORITY_EVENTS,
2925                                                          181, force_repaint,
2926                                                          range, NULL);
2927     }
2928
2929   /* Note that we don't round off to priv->round_digits here.
2930    * that's because it's really broken to change a value
2931    * in response to a change signal on that value; round_digits
2932    * is therefore defined to be a filter on what the GtkRange
2933    * can input into the adjustment, not a filter that the GtkRange
2934    * will enforce on the adjustment.
2935    */
2936
2937   g_signal_emit (range, signals[VALUE_CHANGED], 0);
2938 }
2939
2940 static void
2941 gtk_range_style_updated (GtkWidget *widget)
2942 {
2943   GtkRange *range = GTK_RANGE (widget);
2944   GtkRangePrivate *priv = range->priv;
2945
2946   priv->need_recalc = TRUE;
2947
2948   GTK_WIDGET_CLASS (gtk_range_parent_class)->style_updated (widget);
2949 }
2950
2951 static void
2952 apply_marks (GtkRange *range,
2953              gdouble   oldval,
2954              gdouble  *newval)
2955 {
2956   GtkRangePrivate *priv = range->priv;
2957   gint i;
2958   gdouble mark;
2959
2960   for (i = 0; i < priv->n_marks; i++)
2961     {
2962       mark = priv->marks[i];
2963       if ((oldval < mark && mark < *newval) ||
2964           (oldval > mark && mark > *newval))
2965         {
2966           *newval = mark;
2967           return;
2968         }
2969     }
2970 }
2971
2972 static void
2973 step_back (GtkRange *range)
2974 {
2975   GtkRangePrivate *priv = range->priv;
2976   gdouble newval;
2977   gboolean handled;
2978
2979   newval = gtk_adjustment_get_value (priv->adjustment) - gtk_adjustment_get_step_increment (priv->adjustment);
2980   apply_marks (range, gtk_adjustment_get_value (priv->adjustment), &newval);
2981   g_signal_emit (range, signals[CHANGE_VALUE], 0,
2982                  GTK_SCROLL_STEP_BACKWARD, newval, &handled);
2983 }
2984
2985 static void
2986 step_forward (GtkRange *range)
2987 {
2988   GtkRangePrivate *priv = range->priv;
2989   gdouble newval;
2990   gboolean handled;
2991
2992   newval = gtk_adjustment_get_value (priv->adjustment) + gtk_adjustment_get_step_increment (priv->adjustment);
2993   apply_marks (range, gtk_adjustment_get_value (priv->adjustment), &newval);
2994   g_signal_emit (range, signals[CHANGE_VALUE], 0,
2995                  GTK_SCROLL_STEP_FORWARD, newval, &handled);
2996 }
2997
2998
2999 static void
3000 page_back (GtkRange *range)
3001 {
3002   GtkRangePrivate *priv = range->priv;
3003   gdouble newval;
3004   gboolean handled;
3005
3006   newval = gtk_adjustment_get_value (priv->adjustment) - gtk_adjustment_get_page_increment (priv->adjustment);
3007   apply_marks (range, gtk_adjustment_get_value (priv->adjustment), &newval);
3008   g_signal_emit (range, signals[CHANGE_VALUE], 0,
3009                  GTK_SCROLL_PAGE_BACKWARD, newval, &handled);
3010 }
3011
3012 static void
3013 page_forward (GtkRange *range)
3014 {
3015   GtkRangePrivate *priv = range->priv;
3016   gdouble newval;
3017   gboolean handled;
3018
3019   newval = gtk_adjustment_get_value (priv->adjustment) + gtk_adjustment_get_page_increment (priv->adjustment);
3020   apply_marks (range, gtk_adjustment_get_value (priv->adjustment), &newval);
3021   g_signal_emit (range, signals[CHANGE_VALUE], 0,
3022                  GTK_SCROLL_PAGE_FORWARD, newval, &handled);
3023 }
3024
3025 static void
3026 scroll_begin (GtkRange *range)
3027 {
3028   GtkRangePrivate *priv = range->priv;
3029   gboolean handled;
3030
3031   g_signal_emit (range, signals[CHANGE_VALUE], 0,
3032                  GTK_SCROLL_START, gtk_adjustment_get_lower (priv->adjustment),
3033                  &handled);
3034 }
3035
3036 static void
3037 scroll_end (GtkRange *range)
3038 {
3039   GtkRangePrivate *priv = range->priv;
3040   gdouble newval;
3041   gboolean handled;
3042
3043   newval = gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment);
3044   g_signal_emit (range, signals[CHANGE_VALUE], 0, GTK_SCROLL_END, newval,
3045                  &handled);
3046 }
3047
3048 static gboolean
3049 gtk_range_scroll (GtkRange     *range,
3050                   GtkScrollType scroll)
3051 {
3052   GtkRangePrivate *priv = range->priv;
3053   gdouble old_value = gtk_adjustment_get_value (priv->adjustment);
3054
3055   switch (scroll)
3056     {
3057     case GTK_SCROLL_STEP_LEFT:
3058       if (should_invert (range))
3059         step_forward (range);
3060       else
3061         step_back (range);
3062       break;
3063
3064     case GTK_SCROLL_STEP_UP:
3065       if (should_invert (range))
3066         step_forward (range);
3067       else
3068         step_back (range);
3069       break;
3070
3071     case GTK_SCROLL_STEP_RIGHT:
3072       if (should_invert (range))
3073         step_back (range);
3074       else
3075         step_forward (range);
3076       break;
3077
3078     case GTK_SCROLL_STEP_DOWN:
3079       if (should_invert (range))
3080         step_back (range);
3081       else
3082         step_forward (range);
3083       break;
3084
3085     case GTK_SCROLL_STEP_BACKWARD:
3086       step_back (range);
3087       break;
3088
3089     case GTK_SCROLL_STEP_FORWARD:
3090       step_forward (range);
3091       break;
3092
3093     case GTK_SCROLL_PAGE_LEFT:
3094       if (should_invert (range))
3095         page_forward (range);
3096       else
3097         page_back (range);
3098       break;
3099
3100     case GTK_SCROLL_PAGE_UP:
3101       if (should_invert (range))
3102         page_forward (range);
3103       else
3104         page_back (range);
3105       break;
3106
3107     case GTK_SCROLL_PAGE_RIGHT:
3108       if (should_invert (range))
3109         page_back (range);
3110       else
3111         page_forward (range);
3112       break;
3113
3114     case GTK_SCROLL_PAGE_DOWN:
3115       if (should_invert (range))
3116         page_back (range);
3117       else
3118         page_forward (range);
3119       break;
3120
3121     case GTK_SCROLL_PAGE_BACKWARD:
3122       page_back (range);
3123       break;
3124
3125     case GTK_SCROLL_PAGE_FORWARD:
3126       page_forward (range);
3127       break;
3128
3129     case GTK_SCROLL_START:
3130       scroll_begin (range);
3131       break;
3132
3133     case GTK_SCROLL_END:
3134       scroll_end (range);
3135       break;
3136
3137     case GTK_SCROLL_JUMP:
3138       /* Used by CList, range doesn't use it. */
3139       break;
3140
3141     case GTK_SCROLL_NONE:
3142       break;
3143     }
3144
3145   return gtk_adjustment_get_value (priv->adjustment) != old_value;
3146 }
3147
3148 static void
3149 gtk_range_move_slider (GtkRange     *range,
3150                        GtkScrollType scroll)
3151 {
3152   GtkRangePrivate *priv = range->priv;
3153   gboolean cursor_only;
3154
3155   g_object_get (gtk_widget_get_settings (GTK_WIDGET (range)),
3156                 "gtk-keynav-cursor-only", &cursor_only,
3157                 NULL);
3158
3159   if (cursor_only)
3160     {
3161       GtkWidget *toplevel = gtk_widget_get_toplevel (GTK_WIDGET (range));
3162
3163       if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
3164         {
3165           if (scroll == GTK_SCROLL_STEP_UP ||
3166               scroll == GTK_SCROLL_STEP_DOWN)
3167             {
3168               if (toplevel)
3169                 gtk_widget_child_focus (toplevel,
3170                                         scroll == GTK_SCROLL_STEP_UP ?
3171                                         GTK_DIR_UP : GTK_DIR_DOWN);
3172               return;
3173             }
3174         }
3175       else
3176         {
3177           if (scroll == GTK_SCROLL_STEP_LEFT ||
3178               scroll == GTK_SCROLL_STEP_RIGHT)
3179             {
3180               if (toplevel)
3181                 gtk_widget_child_focus (toplevel,
3182                                         scroll == GTK_SCROLL_STEP_LEFT ?
3183                                         GTK_DIR_LEFT : GTK_DIR_RIGHT);
3184               return;
3185             }
3186         }
3187     }
3188
3189   if (! gtk_range_scroll (range, scroll))
3190     gtk_widget_error_bell (GTK_WIDGET (range));
3191 }
3192
3193 static void
3194 gtk_range_get_props (GtkRange  *range,
3195                      gint      *slider_width,
3196                      gint      *stepper_size,
3197                      gint      *focus_width,
3198                      gint      *trough_border,
3199                      gint      *stepper_spacing,
3200                      gboolean  *trough_under_steppers,
3201                      gint      *arrow_displacement_x,
3202                      gint      *arrow_displacement_y)
3203 {
3204   GtkWidget *widget =  GTK_WIDGET (range);
3205   gint tmp_slider_width, tmp_stepper_size, tmp_focus_width, tmp_trough_border;
3206   gint tmp_stepper_spacing, tmp_trough_under_steppers;
3207   gint tmp_arrow_displacement_x, tmp_arrow_displacement_y;
3208
3209   gtk_widget_style_get (widget,
3210                         "slider-width", &tmp_slider_width,
3211                         "trough-border", &tmp_trough_border,
3212                         "stepper-size", &tmp_stepper_size,
3213                         "stepper-spacing", &tmp_stepper_spacing,
3214                         "trough-under-steppers", &tmp_trough_under_steppers,
3215                         "arrow-displacement-x", &tmp_arrow_displacement_x,
3216                         "arrow-displacement-y", &tmp_arrow_displacement_y,
3217                         NULL);
3218
3219   if (tmp_stepper_spacing > 0)
3220     tmp_trough_under_steppers = FALSE;
3221
3222   if (gtk_widget_get_can_focus (GTK_WIDGET (range)))
3223     {
3224       gint focus_line_width;
3225       gint focus_padding;
3226
3227       gtk_widget_style_get (GTK_WIDGET (range),
3228                             "focus-line-width", &focus_line_width,
3229                             "focus-padding", &focus_padding,
3230                             NULL);
3231
3232       tmp_focus_width = focus_line_width + focus_padding;
3233     }
3234   else
3235     {
3236       tmp_focus_width = 0;
3237     }
3238
3239   if (slider_width)
3240     *slider_width = tmp_slider_width;
3241
3242   if (focus_width)
3243     *focus_width = tmp_focus_width;
3244
3245   if (trough_border)
3246     *trough_border = tmp_trough_border;
3247
3248   if (stepper_size)
3249     *stepper_size = tmp_stepper_size;
3250
3251   if (stepper_spacing)
3252     *stepper_spacing = tmp_stepper_spacing;
3253
3254   if (trough_under_steppers)
3255     *trough_under_steppers = tmp_trough_under_steppers;
3256
3257   if (arrow_displacement_x)
3258     *arrow_displacement_x = tmp_arrow_displacement_x;
3259
3260   if (arrow_displacement_y)
3261     *arrow_displacement_y = tmp_arrow_displacement_y;
3262 }
3263
3264 #define POINT_IN_RECT(xcoord, ycoord, rect) \
3265  ((xcoord) >= (rect).x &&                   \
3266   (xcoord) <  ((rect).x + (rect).width) &&  \
3267   (ycoord) >= (rect).y &&                   \
3268   (ycoord) <  ((rect).y + (rect).height))
3269
3270 /* Update mouse location, return TRUE if it changes */
3271 static gboolean
3272 gtk_range_update_mouse_location (GtkRange *range)
3273 {
3274   GtkRangePrivate *priv = range->priv;
3275   GtkAllocation allocation;
3276   gint x, y;
3277   MouseLocation old;
3278   GtkWidget *widget = GTK_WIDGET (range);
3279
3280   old = priv->mouse_location;
3281
3282   x = priv->mouse_x;
3283   y = priv->mouse_y;
3284
3285   gtk_widget_get_allocation (widget, &allocation);
3286
3287   if (priv->grab_location != MOUSE_OUTSIDE)
3288     priv->mouse_location = priv->grab_location;
3289   else if (POINT_IN_RECT (x, y, priv->stepper_a))
3290     priv->mouse_location = MOUSE_STEPPER_A;
3291   else if (POINT_IN_RECT (x, y, priv->stepper_b))
3292     priv->mouse_location = MOUSE_STEPPER_B;
3293   else if (POINT_IN_RECT (x, y, priv->stepper_c))
3294     priv->mouse_location = MOUSE_STEPPER_C;
3295   else if (POINT_IN_RECT (x, y, priv->stepper_d))
3296     priv->mouse_location = MOUSE_STEPPER_D;
3297   else if (POINT_IN_RECT (x, y, priv->slider))
3298     priv->mouse_location = MOUSE_SLIDER;
3299   else if (POINT_IN_RECT (x, y, priv->trough))
3300     priv->mouse_location = MOUSE_TROUGH;
3301   else if (POINT_IN_RECT (x, y, allocation))
3302     priv->mouse_location = MOUSE_WIDGET;
3303   else
3304     priv->mouse_location = MOUSE_OUTSIDE;
3305
3306   return old != priv->mouse_location;
3307 }
3308
3309 /* Clamp rect, border inside widget->allocation, such that we prefer
3310  * to take space from border not rect in all directions, and prefer to
3311  * give space to border over rect in one direction.
3312  */
3313 static void
3314 clamp_dimensions (GtkWidget    *widget,
3315                   GdkRectangle *rect,
3316                   GtkBorder    *border,
3317                   gboolean      border_expands_horizontally)
3318 {
3319   GtkAllocation allocation;
3320   gint extra, shortage;
3321
3322   g_return_if_fail (rect->x == 0);
3323   g_return_if_fail (rect->y == 0);
3324   g_return_if_fail (rect->width >= 0);
3325   g_return_if_fail (rect->height >= 0);
3326
3327   gtk_widget_get_allocation (widget, &allocation);
3328
3329   /* Width */
3330
3331   extra = allocation.width - border->left - border->right - rect->width;
3332   if (extra > 0)
3333     {
3334       if (border_expands_horizontally)
3335         {
3336           border->left += extra / 2;
3337           border->right += extra / 2 + extra % 2;
3338         }
3339       else
3340         {
3341           rect->width += extra;
3342         }
3343     }
3344
3345   /* See if we can fit rect, if not kill the border */
3346   shortage = rect->width - allocation.width;
3347   if (shortage > 0)
3348     {
3349       rect->width = allocation.width;
3350       /* lose the border */
3351       border->left = 0;
3352       border->right = 0;
3353     }
3354   else
3355     {
3356       /* See if we can fit rect with borders */
3357       shortage = rect->width + border->left + border->right - allocation.width;
3358       if (shortage > 0)
3359         {
3360           /* Shrink borders */
3361           border->left -= shortage / 2;
3362           border->right -= shortage / 2 + shortage % 2;
3363         }
3364     }
3365
3366   /* Height */
3367
3368   extra = allocation.height - border->top - border->bottom - rect->height;
3369   if (extra > 0)
3370     {
3371       if (border_expands_horizontally)
3372         {
3373           /* don't expand border vertically */
3374           rect->height += extra;
3375         }
3376       else
3377         {
3378           border->top += extra / 2;
3379           border->bottom += extra / 2 + extra % 2;
3380         }
3381     }
3382
3383   /* See if we can fit rect, if not kill the border */
3384   shortage = rect->height - allocation.height;
3385   if (shortage > 0)
3386     {
3387       rect->height = allocation.height;
3388       /* lose the border */
3389       border->top = 0;
3390       border->bottom = 0;
3391     }
3392   else
3393     {
3394       /* See if we can fit rect with borders */
3395       shortage = rect->height + border->top + border->bottom - allocation.height;
3396       if (shortage > 0)
3397         {
3398           /* Shrink borders */
3399           border->top -= shortage / 2;
3400           border->bottom -= shortage / 2 + shortage % 2;
3401         }
3402     }
3403 }
3404
3405 static void
3406 gtk_range_calc_request (GtkRange      *range,
3407                         gint           slider_width,
3408                         gint           stepper_size,
3409                         gint           focus_width,
3410                         gint           trough_border,
3411                         gint           stepper_spacing,
3412                         GdkRectangle  *range_rect,
3413                         GtkBorder     *border,
3414                         gint          *n_steppers_p,
3415                         gboolean      *has_steppers_ab,
3416                         gboolean      *has_steppers_cd,
3417                         gint          *slider_length_p)
3418 {
3419   GtkRangePrivate *priv = range->priv;
3420   gint slider_length;
3421   gint n_steppers;
3422   gint n_steppers_ab;
3423   gint n_steppers_cd;
3424
3425   border->left = 0;
3426   border->right = 0;
3427   border->top = 0;
3428   border->bottom = 0;
3429
3430   if (GTK_RANGE_GET_CLASS (range)->get_range_border)
3431     GTK_RANGE_GET_CLASS (range)->get_range_border (range, border);
3432
3433   n_steppers_ab = 0;
3434   n_steppers_cd = 0;
3435
3436   if (priv->has_stepper_a)
3437     n_steppers_ab += 1;
3438   if (priv->has_stepper_b)
3439     n_steppers_ab += 1;
3440   if (priv->has_stepper_c)
3441     n_steppers_cd += 1;
3442   if (priv->has_stepper_d)
3443     n_steppers_cd += 1;
3444
3445   n_steppers = n_steppers_ab + n_steppers_cd;
3446
3447   slider_length = priv->min_slider_size;
3448
3449   range_rect->x = 0;
3450   range_rect->y = 0;
3451
3452   /* We never expand to fill available space in the small dimension
3453    * (i.e. vertical scrollbars are always a fixed width)
3454    */
3455   if (priv->orientation == GTK_ORIENTATION_VERTICAL)
3456     {
3457       range_rect->width = (focus_width + trough_border) * 2 + slider_width;
3458       range_rect->height = stepper_size * n_steppers + (focus_width + trough_border) * 2 + slider_length;
3459
3460       if (n_steppers_ab > 0)
3461         range_rect->height += stepper_spacing;
3462
3463       if (n_steppers_cd > 0)
3464         range_rect->height += stepper_spacing;
3465     }
3466   else
3467     {
3468       range_rect->width = stepper_size * n_steppers + (focus_width + trough_border) * 2 + slider_length;
3469       range_rect->height = (focus_width + trough_border) * 2 + slider_width;
3470
3471       if (n_steppers_ab > 0)
3472         range_rect->width += stepper_spacing;
3473
3474       if (n_steppers_cd > 0)
3475         range_rect->width += stepper_spacing;
3476     }
3477
3478   if (n_steppers_p)
3479     *n_steppers_p = n_steppers;
3480
3481   if (has_steppers_ab)
3482     *has_steppers_ab = (n_steppers_ab > 0);
3483
3484   if (has_steppers_cd)
3485     *has_steppers_cd = (n_steppers_cd > 0);
3486
3487   if (slider_length_p)
3488     *slider_length_p = slider_length;
3489 }
3490
3491 static void
3492 gtk_range_calc_layout (GtkRange *range,
3493                        gdouble   adjustment_value)
3494 {
3495   GtkRangePrivate *priv = range->priv;
3496   gint slider_width, stepper_size, focus_width, trough_border, stepper_spacing;
3497   gint slider_length;
3498   GtkBorder border;
3499   gint n_steppers;
3500   gboolean has_steppers_ab;
3501   gboolean has_steppers_cd;
3502   gboolean trough_under_steppers;
3503   GdkRectangle range_rect;
3504   GtkWidget *widget;
3505
3506   if (!priv->need_recalc)
3507     return;
3508
3509   /* If we have a too-small allocation, we prefer the steppers over
3510    * the trough/slider, probably the steppers are a more useful
3511    * feature in small spaces.
3512    *
3513    * Also, we prefer to draw the range itself rather than the border
3514    * areas if there's a conflict, since the borders will be decoration
3515    * not controls. Though this depends on subclasses cooperating by
3516    * not drawing on priv->range_rect.
3517    */
3518
3519   widget = GTK_WIDGET (range);
3520
3521   gtk_range_get_props (range,
3522                        &slider_width, &stepper_size,
3523                        &focus_width, &trough_border,
3524                        &stepper_spacing, &trough_under_steppers,
3525                        NULL, NULL);
3526
3527   gtk_range_calc_request (range,
3528                           slider_width, stepper_size,
3529                           focus_width, trough_border, stepper_spacing,
3530                           &range_rect, &border, &n_steppers,
3531                           &has_steppers_ab, &has_steppers_cd, &slider_length);
3532
3533   /* We never expand to fill available space in the small dimension
3534    * (i.e. vertical scrollbars are always a fixed width)
3535    */
3536   if (priv->orientation == GTK_ORIENTATION_VERTICAL)
3537     {
3538       clamp_dimensions (widget, &range_rect, &border, TRUE);
3539     }
3540   else
3541     {
3542       clamp_dimensions (widget, &range_rect, &border, FALSE);
3543     }
3544
3545   range_rect.x = border.left;
3546   range_rect.y = border.top;
3547
3548   priv->range_rect = range_rect;
3549
3550   if (priv->orientation == GTK_ORIENTATION_VERTICAL)
3551     {
3552       gint stepper_width, stepper_height;
3553
3554       /* Steppers are the width of the range, and stepper_size in
3555        * height, or if we don't have enough height, divided equally
3556        * among available space.
3557        */
3558       stepper_width = range_rect.width - focus_width * 2;
3559
3560       if (trough_under_steppers)
3561         stepper_width -= trough_border * 2;
3562
3563       if (stepper_width < 1)
3564         stepper_width = range_rect.width; /* screw the trough border */
3565
3566       if (n_steppers == 0)
3567         stepper_height = 0; /* avoid divide by n_steppers */
3568       else
3569         stepper_height = MIN (stepper_size, (range_rect.height / n_steppers));
3570
3571       /* Stepper A */
3572
3573       priv->stepper_a.x = range_rect.x + focus_width + trough_border * trough_under_steppers;
3574       priv->stepper_a.y = range_rect.y + focus_width + trough_border * trough_under_steppers;
3575
3576       if (priv->has_stepper_a)
3577         {
3578           priv->stepper_a.width = stepper_width;
3579           priv->stepper_a.height = stepper_height;
3580         }
3581       else
3582         {
3583           priv->stepper_a.width = 0;
3584           priv->stepper_a.height = 0;
3585         }
3586
3587       /* Stepper B */
3588
3589       priv->stepper_b.x = priv->stepper_a.x;
3590       priv->stepper_b.y = priv->stepper_a.y + priv->stepper_a.height;
3591
3592       if (priv->has_stepper_b)
3593         {
3594           priv->stepper_b.width = stepper_width;
3595           priv->stepper_b.height = stepper_height;
3596         }
3597       else
3598         {
3599           priv->stepper_b.width = 0;
3600           priv->stepper_b.height = 0;
3601         }
3602
3603       /* Stepper D */
3604
3605       if (priv->has_stepper_d)
3606         {
3607           priv->stepper_d.width = stepper_width;
3608           priv->stepper_d.height = stepper_height;
3609         }
3610       else
3611         {
3612           priv->stepper_d.width = 0;
3613           priv->stepper_d.height = 0;
3614         }
3615
3616       priv->stepper_d.x = priv->stepper_a.x;
3617       priv->stepper_d.y = range_rect.y + range_rect.height - priv->stepper_d.height - focus_width - trough_border * trough_under_steppers;
3618
3619       /* Stepper C */
3620
3621       if (priv->has_stepper_c)
3622         {
3623           priv->stepper_c.width = stepper_width;
3624           priv->stepper_c.height = stepper_height;
3625         }
3626       else
3627         {
3628           priv->stepper_c.width = 0;
3629           priv->stepper_c.height = 0;
3630         }
3631
3632       priv->stepper_c.x = priv->stepper_a.x;
3633       priv->stepper_c.y = priv->stepper_d.y - priv->stepper_c.height;
3634
3635       /* Now the trough is the remaining space between steppers B and C,
3636        * if any, minus spacing
3637        */
3638       priv->trough.x = range_rect.x;
3639       priv->trough.y = priv->stepper_b.y + priv->stepper_b.height + stepper_spacing * has_steppers_ab;
3640       priv->trough.width = range_rect.width;
3641       priv->trough.height = priv->stepper_c.y - priv->trough.y - stepper_spacing * has_steppers_cd;
3642
3643       /* Slider fits into the trough, with stepper_spacing on either side,
3644        * and the size/position based on the adjustment or fixed, depending.
3645        */
3646       priv->slider.x = priv->trough.x + focus_width + trough_border;
3647       priv->slider.width = priv->trough.width - (focus_width + trough_border) * 2;
3648
3649       /* Compute slider position/length */
3650       {
3651         gint y, bottom, top, height;
3652
3653         top = priv->trough.y;
3654         bottom = priv->trough.y + priv->trough.height;
3655
3656         if (! trough_under_steppers)
3657           {
3658             top += trough_border;
3659             bottom -= trough_border;
3660           }
3661
3662         /* slider height is the fraction (page_size /
3663          * total_adjustment_range) times the trough height in pixels
3664          */
3665
3666         if (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) != 0)
3667           height = ((bottom - top) * (gtk_adjustment_get_page_size (priv->adjustment) /
3668                                        (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment))));
3669         else
3670           height = priv->min_slider_size;
3671
3672         if (height < priv->min_slider_size ||
3673             priv->slider_size_fixed)
3674           height = priv->min_slider_size;
3675
3676         height = MIN (height, priv->trough.height);
3677
3678         y = top;
3679
3680         if (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment) != 0)
3681           y += (bottom - top - height) * ((adjustment_value - gtk_adjustment_get_lower (priv->adjustment)) /
3682                                           (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment)));
3683
3684         y = CLAMP (y, top, bottom);
3685
3686         if (should_invert (range))
3687           y = bottom - (y - top + height);
3688
3689         priv->slider.y = y;
3690         priv->slider.height = height;
3691
3692         /* These are publically exported */
3693         priv->slider_start = priv->slider.y;
3694         priv->slider_end = priv->slider.y + priv->slider.height;
3695       }
3696     }
3697   else
3698     {
3699       gint stepper_width, stepper_height;
3700
3701       /* Steppers are the height of the range, and stepper_size in
3702        * width, or if we don't have enough width, divided equally
3703        * among available space.
3704        */
3705       stepper_height = range_rect.height + focus_width * 2;
3706
3707       if (trough_under_steppers)
3708         stepper_height -= trough_border * 2;
3709
3710       if (stepper_height < 1)
3711         stepper_height = range_rect.height; /* screw the trough border */
3712
3713       if (n_steppers == 0)
3714         stepper_width = 0; /* avoid divide by n_steppers */
3715       else
3716         stepper_width = MIN (stepper_size, (range_rect.width / n_steppers));
3717
3718       /* Stepper A */
3719
3720       priv->stepper_a.x = range_rect.x + focus_width + trough_border * trough_under_steppers;
3721       priv->stepper_a.y = range_rect.y + focus_width + trough_border * trough_under_steppers;
3722
3723       if (priv->has_stepper_a)
3724         {
3725           priv->stepper_a.width = stepper_width;
3726           priv->stepper_a.height = stepper_height;
3727         }
3728       else
3729         {
3730           priv->stepper_a.width = 0;
3731           priv->stepper_a.height = 0;
3732         }
3733
3734       /* Stepper B */
3735
3736       priv->stepper_b.x = priv->stepper_a.x + priv->stepper_a.width;
3737       priv->stepper_b.y = priv->stepper_a.y;
3738
3739       if (priv->has_stepper_b)
3740         {
3741           priv->stepper_b.width = stepper_width;
3742           priv->stepper_b.height = stepper_height;
3743         }
3744       else
3745         {
3746           priv->stepper_b.width = 0;
3747           priv->stepper_b.height = 0;
3748         }
3749
3750       /* Stepper D */
3751
3752       if (priv->has_stepper_d)
3753         {
3754           priv->stepper_d.width = stepper_width;
3755           priv->stepper_d.height = stepper_height;
3756         }
3757       else
3758         {
3759           priv->stepper_d.width = 0;
3760           priv->stepper_d.height = 0;
3761         }
3762
3763       priv->stepper_d.x = range_rect.x + range_rect.width - priv->stepper_d.width - focus_width - trough_border * trough_under_steppers;
3764       priv->stepper_d.y = priv->stepper_a.y;
3765
3766
3767       /* Stepper C */
3768
3769       if (priv->has_stepper_c)
3770         {
3771           priv->stepper_c.width = stepper_width;
3772           priv->stepper_c.height = stepper_height;
3773         }
3774       else
3775         {
3776           priv->stepper_c.width = 0;
3777           priv->stepper_c.height = 0;
3778         }
3779
3780       priv->stepper_c.x = priv->stepper_d.x - priv->stepper_c.width;
3781       priv->stepper_c.y = priv->stepper_a.y;
3782
3783       /* Now the trough is the remaining space between steppers B and C,
3784        * if any
3785        */
3786       priv->trough.x = priv->stepper_b.x + priv->stepper_b.width + stepper_spacing * has_steppers_ab;
3787       priv->trough.y = range_rect.y;
3788
3789       priv->trough.width = priv->stepper_c.x - priv->trough.x - stepper_spacing * has_steppers_cd;
3790       priv->trough.height = range_rect.height;
3791
3792       /* Slider fits into the trough, with stepper_spacing on either side,
3793        * and the size/position based on the adjustment or fixed, depending.
3794        */
3795       priv->slider.y = priv->trough.y + focus_width + trough_border;
3796       priv->slider.height = priv->trough.height - (focus_width + trough_border) * 2;
3797
3798       /* Compute slider position/length */
3799       {
3800         gint x, left, right, width;
3801
3802         left = priv->trough.x;
3803         right = priv->trough.x + priv->trough.width;
3804
3805         if (! trough_under_steppers)
3806           {
3807             left += trough_border;
3808             right -= trough_border;
3809           }
3810
3811         /* slider width is the fraction (page_size /
3812          * total_adjustment_range) times the trough width in pixels
3813          */
3814
3815         if (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) != 0)
3816           width = ((right - left) * (gtk_adjustment_get_page_size (priv->adjustment) /
3817                                    (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment))));
3818         else
3819           width = priv->min_slider_size;
3820
3821         if (width < priv->min_slider_size ||
3822             priv->slider_size_fixed)
3823           width = priv->min_slider_size;
3824
3825         width = MIN (width, priv->trough.width);
3826
3827         x = left;
3828
3829         if (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment) != 0)
3830           x += (right - left - width) * ((adjustment_value - gtk_adjustment_get_lower (priv->adjustment)) /
3831                                          (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_lower (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment)));
3832
3833         x = CLAMP (x, left, right);
3834
3835         if (should_invert (range))
3836           x = right - (x - left + width);
3837
3838         priv->slider.x = x;
3839         priv->slider.width = width;
3840
3841         /* These are publically exported */
3842         priv->slider_start = priv->slider.x;
3843         priv->slider_end = priv->slider.x + priv->slider.width;
3844       }
3845     }
3846
3847   gtk_range_update_mouse_location (range);
3848
3849   switch (priv->upper_sensitivity)
3850     {
3851     case GTK_SENSITIVITY_AUTO:
3852       priv->upper_sensitive =
3853         (gtk_adjustment_get_value (priv->adjustment) <
3854          (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment)));
3855       break;
3856
3857     case GTK_SENSITIVITY_ON:
3858       priv->upper_sensitive = TRUE;
3859       break;
3860
3861     case GTK_SENSITIVITY_OFF:
3862       priv->upper_sensitive = FALSE;
3863       break;
3864     }
3865
3866   switch (priv->lower_sensitivity)
3867     {
3868     case GTK_SENSITIVITY_AUTO:
3869       priv->lower_sensitive =
3870         (gtk_adjustment_get_value (priv->adjustment) > gtk_adjustment_get_lower (priv->adjustment));
3871       break;
3872
3873     case GTK_SENSITIVITY_ON:
3874       priv->lower_sensitive = TRUE;
3875       break;
3876
3877     case GTK_SENSITIVITY_OFF:
3878       priv->lower_sensitive = FALSE;
3879       break;
3880     }
3881 }
3882
3883 static GdkRectangle*
3884 get_area (GtkRange     *range,
3885           MouseLocation location)
3886 {
3887   GtkRangePrivate *priv = range->priv;
3888
3889   switch (location)
3890     {
3891     case MOUSE_STEPPER_A:
3892       return &priv->stepper_a;
3893     case MOUSE_STEPPER_B:
3894       return &priv->stepper_b;
3895     case MOUSE_STEPPER_C:
3896       return &priv->stepper_c;
3897     case MOUSE_STEPPER_D:
3898       return &priv->stepper_d;
3899     case MOUSE_TROUGH:
3900       return &priv->trough;
3901     case MOUSE_SLIDER:
3902       return &priv->slider;
3903     case MOUSE_WIDGET:
3904     case MOUSE_OUTSIDE:
3905       break;
3906     }
3907
3908   g_warning (G_STRLOC": bug");
3909   return NULL;
3910 }
3911
3912 static void
3913 gtk_range_calc_marks (GtkRange *range)
3914 {
3915   GtkRangePrivate *priv = range->priv;
3916   gint i;
3917
3918   if (!priv->recalc_marks)
3919     return;
3920
3921   priv->recalc_marks = FALSE;
3922
3923   for (i = 0; i < priv->n_marks; i++)
3924     {
3925       priv->need_recalc = TRUE;
3926       gtk_range_calc_layout (range, priv->marks[i]);
3927       if (priv->orientation == GTK_ORIENTATION_HORIZONTAL)
3928         priv->mark_pos[i] = priv->slider.x + priv->slider.width / 2;
3929       else
3930         priv->mark_pos[i] = priv->slider.y + priv->slider.height / 2;
3931     }
3932
3933   priv->need_recalc = TRUE;
3934 }
3935
3936 static gboolean
3937 gtk_range_real_change_value (GtkRange     *range,
3938                              GtkScrollType scroll,
3939                              gdouble       value)
3940 {
3941   GtkRangePrivate *priv = range->priv;
3942
3943   /* potentially adjust the bounds _before_ we clamp */
3944   g_signal_emit (range, signals[ADJUST_BOUNDS], 0, value);
3945
3946   if (priv->restrict_to_fill_level)
3947     value = MIN (value, MAX (gtk_adjustment_get_lower (priv->adjustment),
3948                              priv->fill_level));
3949
3950   value = CLAMP (value, gtk_adjustment_get_lower (priv->adjustment),
3951                  (gtk_adjustment_get_upper (priv->adjustment) - gtk_adjustment_get_page_size (priv->adjustment)));
3952
3953   if (priv->round_digits >= 0)
3954     {
3955       gdouble power;
3956       gint i;
3957
3958       i = priv->round_digits;
3959       power = 1;
3960       while (i--)
3961         power *= 10;
3962
3963       value = floor ((value * power) + 0.5) / power;
3964     }
3965
3966   if (gtk_adjustment_get_value (priv->adjustment) != value)
3967     {
3968       priv->need_recalc = TRUE;
3969
3970       gtk_widget_queue_draw (GTK_WIDGET (range));
3971
3972       gtk_adjustment_set_value (priv->adjustment, value);
3973     }
3974   return FALSE;
3975 }
3976
3977 struct _GtkRangeStepTimer
3978 {
3979   guint timeout_id;
3980   GtkScrollType step;
3981 };
3982
3983 static gboolean
3984 second_timeout (gpointer data)
3985 {
3986   GtkRange *range = GTK_RANGE (data);
3987   GtkRangePrivate *priv = range->priv;
3988
3989   gtk_range_scroll (range, priv->timer->step);
3990
3991   return TRUE;
3992 }
3993
3994 static gboolean
3995 initial_timeout (gpointer data)
3996 {
3997   GtkRange *range = GTK_RANGE (data);
3998   GtkRangePrivate *priv = range->priv;
3999   GtkSettings *settings;
4000   guint        timeout;
4001
4002   settings = gtk_widget_get_settings (GTK_WIDGET (data));
4003   g_object_get (settings, "gtk-timeout-repeat", &timeout, NULL);
4004
4005   priv->timer->timeout_id = gdk_threads_add_timeout (timeout * SCROLL_DELAY_FACTOR,
4006                                                      second_timeout,
4007                                                      range);
4008   /* remove self */
4009   return FALSE;
4010 }
4011
4012 static void
4013 gtk_range_add_step_timer (GtkRange      *range,
4014                           GtkScrollType  step)
4015 {
4016   GtkRangePrivate *priv = range->priv;
4017   GtkSettings *settings;
4018   guint        timeout;
4019
4020   g_return_if_fail (priv->timer == NULL);
4021   g_return_if_fail (step != GTK_SCROLL_NONE);
4022
4023   settings = gtk_widget_get_settings (GTK_WIDGET (range));
4024   g_object_get (settings, "gtk-timeout-initial", &timeout, NULL);
4025
4026   priv->timer = g_new (GtkRangeStepTimer, 1);
4027
4028   priv->timer->timeout_id = gdk_threads_add_timeout (timeout,
4029                                                      initial_timeout,
4030                                                      range);
4031   priv->timer->step = step;
4032
4033   gtk_range_scroll (range, priv->timer->step);
4034 }
4035
4036 static void
4037 gtk_range_remove_step_timer (GtkRange *range)
4038 {
4039   GtkRangePrivate *priv = range->priv;
4040
4041   if (priv->timer)
4042     {
4043       if (priv->timer->timeout_id != 0)
4044         g_source_remove (priv->timer->timeout_id);
4045
4046       g_free (priv->timer);
4047
4048       priv->timer = NULL;
4049     }
4050 }
4051
4052 void
4053 _gtk_range_set_stop_values (GtkRange *range,
4054                             gdouble  *values,
4055                             gint      n_values)
4056 {
4057   GtkRangePrivate *priv = range->priv;
4058   gint i;
4059
4060   g_free (priv->marks);
4061   priv->marks = g_new (gdouble, n_values);
4062
4063   g_free (priv->mark_pos);
4064   priv->mark_pos = g_new (gint, n_values);
4065
4066   priv->n_marks = n_values;
4067
4068   for (i = 0; i < n_values; i++)
4069     priv->marks[i] = values[i];
4070
4071   priv->recalc_marks = TRUE;
4072 }
4073
4074 gint
4075 _gtk_range_get_stop_positions (GtkRange  *range,
4076                                gint     **values)
4077 {
4078   GtkRangePrivate *priv = range->priv;
4079
4080   gtk_range_calc_marks (range);
4081
4082   if (values)
4083     *values = g_memdup (priv->mark_pos, priv->n_marks * sizeof (gint));
4084
4085   return priv->n_marks;
4086 }
4087
4088 /**
4089  * gtk_range_set_round_digits:
4090  * @range: a #GtkRange
4091  * @round_digits: the precision in digits, or -1
4092  *
4093  * Sets the number of digits to round the value to when
4094  * it changes. See #GtkRange::change-value.
4095  *
4096  * Since: 2.24
4097  */
4098 void
4099 gtk_range_set_round_digits (GtkRange *range,
4100                             gint      round_digits)
4101 {
4102   g_return_if_fail (GTK_IS_RANGE (range));
4103   g_return_if_fail (round_digits >= -1);
4104
4105   range->priv->round_digits = round_digits;
4106
4107   g_object_notify (G_OBJECT (range), "round-digits");
4108 }
4109
4110 /**
4111  * gtk_range_get_round_digits:
4112  * @range: a #GtkRange
4113  *
4114  * Gets the number of digits to round the value to when
4115  * it changes. See #GtkRange::change-value.
4116  *
4117  * Return value: the number of digits to round to
4118  *
4119  * Since: 2.24
4120  */
4121 gint
4122 gtk_range_get_round_digits (GtkRange *range)
4123 {
4124   g_return_val_if_fail (GTK_IS_RANGE (range), -1);
4125
4126   return range->priv->round_digits;
4127 }
4128
4129 void
4130 _gtk_range_set_steppers (GtkRange      *range,
4131                          gboolean       has_a,
4132                          gboolean       has_b,
4133                          gboolean       has_c,
4134                          gboolean       has_d)
4135 {
4136   range->priv->has_stepper_a = has_a;
4137   range->priv->has_stepper_b = has_b;
4138   range->priv->has_stepper_c = has_c;
4139   range->priv->has_stepper_d = has_d;
4140 }