/* -*- c-file-style: "ruby" -*- */
/************************************************

  rbgtkhscrollbar.c -

  $Author: klamath $
  $Date: 2001/10/04 02:13:41 $

  Copyright (C) 1998-2000 Yukihiro Matsumoto,
                          Daisuke Kanda,
                          Hiroshi Igarashi
************************************************/

#include "global.h"

static VALUE
hscrollbar_initialize(argc, argv, self)
    int argc;
    VALUE *argv;
    VALUE self;
{
    VALUE arg1;
    GtkAdjustment *adj = NULL;

    rb_scan_args(argc, argv, "01", &arg1);
    if (!NIL_P(arg1)) adj = GTK_ADJUSTMENT(get_gobject(arg1));

    set_widget(self, gtk_hscrollbar_new(adj));
    return Qnil;
}

void Init_gtk_hscrollbar()
{
  gHScrollbar = rb_define_class_under(mGtk, "HScrollbar", gScrollbar);

  rb_define_method(gHScrollbar, "initialize", hscrollbar_initialize, -1);
}
