gtkvscrollbar.c 2.45 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/. 
 */

Elliot Lee's avatar
Elliot Lee committed
28 29 30
#include "gtkvscrollbar.h"
#include "gtksignal.h"
#include "gdk/gdkkeysyms.h"
Alexander Larsson's avatar
Alexander Larsson committed
31
#include "gtkintl.h"
Elliot Lee's avatar
Elliot Lee committed
32

33 34
static void     gtk_vscrollbar_class_init       (GtkVScrollbarClass *klass);
static void     gtk_vscrollbar_init             (GtkVScrollbar      *vscrollbar);
Elliot Lee's avatar
Elliot Lee committed
35

36
GtkType
37
gtk_vscrollbar_get_type (void)
Elliot Lee's avatar
Elliot Lee committed
38
{
39 40
  static GtkType vscrollbar_type = 0;
  
Elliot Lee's avatar
Elliot Lee committed
41 42
  if (!vscrollbar_type)
    {
43
      static const GtkTypeInfo vscrollbar_info =
Elliot Lee's avatar
Elliot Lee committed
44
      {
45 46 47 48 49 50
        "GtkVScrollbar",
        sizeof (GtkVScrollbar),
        sizeof (GtkVScrollbarClass),
        (GtkClassInitFunc) gtk_vscrollbar_class_init,
        (GtkObjectInitFunc) gtk_vscrollbar_init,
        /* reserved_1 */ NULL,
51
        /* reserved_2 */ NULL,
52
        (GtkClassInitFunc) NULL,
Elliot Lee's avatar
Elliot Lee committed
53
      };
54 55
      
      vscrollbar_type = gtk_type_unique (GTK_TYPE_SCROLLBAR, &vscrollbar_info);
Elliot Lee's avatar
Elliot Lee committed
56
    }
57
  
Elliot Lee's avatar
Elliot Lee committed
58 59 60 61
  return vscrollbar_type;
}

static void
62
gtk_vscrollbar_class_init (GtkVScrollbarClass *class)
Elliot Lee's avatar
Elliot Lee committed
63
{
64
  GTK_RANGE_CLASS (class)->stepper_detail = "vscrollbar";
Elliot Lee's avatar
Elliot Lee committed
65 66
}

67
static void
68
gtk_vscrollbar_init (GtkVScrollbar *vscrollbar)
69
{
70
  GtkRange *range;
71

72
  range = GTK_RANGE (vscrollbar);
73

74
  range->orientation = GTK_ORIENTATION_VERTICAL;
Elliot Lee's avatar
Elliot Lee committed
75 76 77 78 79
}

GtkWidget*
gtk_vscrollbar_new (GtkAdjustment *adjustment)
{
80 81 82 83 84 85 86
  GtkWidget *vscrollbar;
  
  vscrollbar = gtk_widget_new (GTK_TYPE_VSCROLLBAR,
			       "adjustment", adjustment,
			       NULL);
  
  return vscrollbar;
Elliot Lee's avatar
Elliot Lee committed
87
}