gtkscrollbar.c 5.81 KB
Newer Older
Elliot Lee's avatar
Elliot Lee committed
1 2
/* GTK - The GIMP Toolkit
 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
3
 * Copyright (C) 2001 Red Hat, Inc.
Elliot Lee's avatar
Elliot Lee committed
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
Elliot Lee's avatar
Elliot Lee committed
7 8 9 10 11 12
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13
 * Lesser General Public License for more details.
Elliot Lee's avatar
Elliot Lee committed
14
 *
15
 * You should have received a copy of the GNU Lesser General Public
16 17 18
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
Elliot Lee's avatar
Elliot Lee committed
19
 */
20 21

/*
22
 * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
23 24 25 26 27
 * file for a list of people on the GTK+ Team.  See the ChangeLog
 * files for a list of changes.  These files are distributed with
 * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
 */

28
#include "config.h"
Elliot Lee's avatar
Elliot Lee committed
29
#include "gtkscrollbar.h"
30
#include "gtkintl.h"
31
#include "gtkprivate.h"
32
#include "gtkalias.h"
Elliot Lee's avatar
Elliot Lee committed
33

34 35 36
static void gtk_scrollbar_style_set  (GtkWidget         *widget,
                                      GtkStyle          *previous);

Matthias Clasen's avatar
Matthias Clasen committed
37
G_DEFINE_ABSTRACT_TYPE (GtkScrollbar, gtk_scrollbar, GTK_TYPE_RANGE)
Elliot Lee's avatar
Elliot Lee committed
38 39 40 41

static void
gtk_scrollbar_class_init (GtkScrollbarClass *class)
{
42 43 44 45 46 47 48
  GtkWidgetClass *widget_class;

  widget_class = GTK_WIDGET_CLASS (class);

  widget_class->style_set = gtk_scrollbar_style_set;
  
  gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
49
					   g_param_spec_int ("min-slider-length",
50 51
							     P_("Minimum Slider Length"),
							     P_("Minimum length of scrollbar slider"),
52 53
							     0,
							     G_MAXINT,
54
							     21,
55
							     GTK_PARAM_READABLE));
56 57

  gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
58
					   g_param_spec_boolean ("fixed-slider-length",
59 60
                                                                 P_("Fixed slider size"),
                                                                 P_("Don't change slider size, just lock it to the minimum length"),
61 62
                                                                 FALSE,
                                                                 
63
                                                                 GTK_PARAM_READABLE));
64 65
  
  gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
66
					   g_param_spec_boolean ("has-backward-stepper",
67 68
                                                                 P_("Backward stepper"),
                                                                 P_("Display the standard backward arrow button"),
69 70
                                                                 TRUE,
                                                                 
71
                                                                 GTK_PARAM_READABLE));
72 73

    gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
74
                                             g_param_spec_boolean ("has-forward-stepper",
75 76
                                                                   P_("Forward stepper"),
                                                                   P_("Display the standard forward arrow button"),
77 78
                                                                   TRUE,
                                                                   
79
                                                                   GTK_PARAM_READABLE));
80 81

  gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
82
					   g_param_spec_boolean ("has-secondary-backward-stepper",
83 84
                                                                 P_("Secondary backward stepper"),
                                                                 P_("Display a second backward arrow button on the opposite end of the scrollbar"),
85 86
                                                                 FALSE,
                                                                 
87
                                                                 GTK_PARAM_READABLE));
88 89

    gtk_widget_class_install_style_property (widget_class,
Matthias Clasen's avatar
x  
Matthias Clasen committed
90
                                             g_param_spec_boolean ("has-secondary-forward-stepper",
91
                                                                   P_("Secondary forward stepper"),
92
                                                                   P_("Display a second forward arrow button on the opposite end of the scrollbar"),
93 94
                                                                   FALSE,
                                                                   
95
                                                                   GTK_PARAM_READABLE));
Elliot Lee's avatar
Elliot Lee committed
96 97 98 99 100
}

static void
gtk_scrollbar_init (GtkScrollbar *scrollbar)
{
101 102 103 104 105 106 107 108 109 110 111 112 113 114
}

static void
gtk_scrollbar_style_set  (GtkWidget *widget,
                          GtkStyle  *previous)
{
  gint slider_length;
  gboolean fixed_size;
  gboolean has_a, has_b, has_c, has_d;
  GtkRange *range;

  range = GTK_RANGE (widget);
  
  gtk_widget_style_get (widget,
115 116 117 118 119 120
                        "min-slider-length", &slider_length,
                        "fixed-slider-length", &fixed_size,
                        "has-backward-stepper", &has_a,
                        "has-secondary-forward-stepper", &has_b,
                        "has-secondary-backward-stepper", &has_c,
                        "has-forward-stepper", &has_d,
121 122 123 124 125 126 127 128 129 130
                        NULL);
  
  range->min_slider_size = slider_length;
  range->slider_size_fixed = fixed_size;

  range->has_stepper_a = has_a;
  range->has_stepper_b = has_b;
  range->has_stepper_c = has_c;
  range->has_stepper_d = has_d;
  
Matthias Clasen's avatar
Matthias Clasen committed
131
  (* GTK_WIDGET_CLASS (gtk_scrollbar_parent_class)->style_set) (widget, previous);
Elliot Lee's avatar
Elliot Lee committed
132
}
133 134 135

#define __GTK_SCROLLBAR_C__
#include "gtkaliasdef.c"