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

  rbgtkpaned.c -

  $Author: klamath $
  $Date: 2002/01/08 20:38:55 $

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

#include "global.h"

static VALUE
paned_add1(self, child)
    VALUE self, child;
{
    gtk_paned_add1(GTK_PANED(get_widget(self)), get_widget(child));
    return self;
}

static VALUE
paned_add2(self, child)
    VALUE self, child;
{
    gtk_paned_add2(GTK_PANED(get_widget(self)), get_widget(child));
    return self;
}

static VALUE
paned_pack1(self, child, resize, shrink)
    VALUE self, child, resize, shrink;
{
    gtk_paned_pack1(GTK_PANED(get_widget(self)), get_widget(child),
		    RTEST(resize), RTEST(shrink));
    return self;
}

static VALUE
paned_pack2(self, child, resize, shrink)
    VALUE self, child, resize, shrink;
{
    gtk_paned_pack2(GTK_PANED(get_widget(self)), get_widget(child),
		    RTEST(resize), RTEST(shrink));
    return self;
}

static VALUE
paned_handle_size(self, size)
    VALUE self, size;
{
    gtk_paned_handle_size(GTK_PANED(get_widget(self)), NUM2INT(size));
    return self;
}

static VALUE
paned_gutter_size(self, size)
    VALUE self, size;
{
    gtk_paned_gutter_size(GTK_PANED(get_widget(self)), NUM2INT(size));
    return self;
}

static VALUE
paned_set_position(self, pos)
    VALUE self, pos;
{
    gtk_paned_set_position(GTK_PANED(get_widget(self)), NUM2INT(pos));
    return self;
}

static VALUE
paned_child1(self)
    VALUE self;
{
    GtkWidget *child = GTK_PANED(get_widget(self))->child1;
    return (child == NULL) ? Qnil : get_value_from_gobject(GTK_OBJECT(child));
}

static VALUE
paned_child2(self)
    VALUE self;
{
    GtkWidget *child = GTK_PANED(get_widget(self))->child2;
    return (child == NULL) ? Qnil : get_value_from_gobject(GTK_OBJECT(child));
}

static VALUE
paned_child1_resize(self)
    VALUE self;
{
    return GTK_PANED(get_widget(self))->child1_resize ? Qtrue : Qfalse;
}

static VALUE
paned_child1_shrink(self)
    VALUE self;
{
    return GTK_PANED(get_widget(self))->child1_shrink ? Qtrue : Qfalse;
}

static VALUE
paned_child2_resize(self)
    VALUE self;
{
    return GTK_PANED(get_widget(self))->child2_resize ? Qtrue : Qfalse;
}

static VALUE
paned_child2_shrink(self)
    VALUE self;
{
    return GTK_PANED(get_widget(self))->child2_shrink ? Qtrue : Qfalse;
}

void Init_gtk_paned()
{
    gPaned = rb_define_class_under(mGtk, "Paned", gContainer);

    rb_define_method(gPaned, "add1", paned_add1, 1);
    rb_define_method(gPaned, "add2", paned_add2, 1);
    rb_define_method(gPaned, "pack1", paned_pack1, 3);
    rb_define_method(gPaned, "pack2", paned_pack2, 3);
    rb_define_method(gPaned, "set_handle_size", paned_handle_size, 1);
    rb_define_method(gPaned, "set_gutter_size", paned_gutter_size, 1);
    rb_define_method(gPaned, "set_position", paned_set_position, 1);
    rb_define_method(gPaned, "child1", paned_child1, 0);
    rb_define_method(gPaned, "child2", paned_child2, 0);
    rb_define_method(gPaned, "child1_resize?", paned_child1_resize, 0);
    rb_define_method(gPaned, "child1_shrink?", paned_child1_shrink, 0);
    rb_define_method(gPaned, "child2_resize?", paned_child2_resize, 0);
    rb_define_method(gPaned, "child2_shrink?", paned_child2_shrink, 0);

    rb_define_alias(gPaned, "handle_size=", "set_handle_size");
    rb_define_alias(gPaned, "gutter_size=", "set_gutter_size");
    rb_define_alias(gPaned, "position=", "set_position");

    /* child initialization */
    Init_gtk_hpaned();
    Init_gtk_vpaned();
}