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