gtk3 0.0.1 → 1.2.0

data/ext/gtk3/rbgtkcomboboxtext.c

@@ -0,0 +1,138 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbgtk3private.h"
+
+#define RG_TARGET_NAMESPACE cComboBoxText
+#define _SELF(self) (RVAL2GTKCOMBOBOXTEXT(self))
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE options, entry;
+    GtkWidget *widget = NULL;
+
+    rb_scan_args(argc, argv, "01", &options);
+    rbg_scan_options(options,
+                     "entry", &entry,
+                     NULL);
+
+    if (RVAL2CBOOL(entry))
+        widget = gtk_combo_box_text_new_with_entry();
+    else
+        widget = gtk_combo_box_text_new();
+    RBGTK_INITIALIZE(self, widget);
+
+    return Qnil;
+}
+
+static VALUE
+rg_append(VALUE self, VALUE id, VALUE text)
+{
+    gtk_combo_box_text_append(_SELF(self),
+                              RVAL2CSTR_ACCEPT_NIL(id),
+                              RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_append_text(VALUE self, VALUE text)
+{
+    gtk_combo_box_text_append_text(_SELF(self), RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_active_text(VALUE self)
+{
+    return CSTR2RVAL_FREE(gtk_combo_box_text_get_active_text(_SELF(self)));
+}
+
+static VALUE
+rg_insert(VALUE self, VALUE position, VALUE id, VALUE text)
+{
+    gtk_combo_box_text_insert(_SELF(self),
+                              NUM2INT(position),
+                              RVAL2CSTR_ACCEPT_NIL(id),
+                              RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_insert_text(VALUE self, VALUE position, VALUE text)
+{
+    gtk_combo_box_text_insert_text(_SELF(self), NUM2INT(position), RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_prepend(VALUE self, VALUE id, VALUE text)
+{
+    gtk_combo_box_text_prepend(_SELF(self),
+                               RVAL2CSTR_ACCEPT_NIL(id),
+                               RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_prepend_text(VALUE self, VALUE text)
+{
+    gtk_combo_box_text_prepend_text(_SELF(self), RVAL2CSTR(text));
+
+    return self;
+}
+
+static VALUE
+rg_remove(VALUE self, VALUE position)
+{
+    gtk_combo_box_text_remove(_SELF(self), NUM2INT(position));
+
+    return self;
+}
+
+static VALUE
+rg_remove_all(VALUE self)
+{
+    gtk_combo_box_text_remove_all(_SELF(self));
+
+    return self;
+}
+
+void
+Init_gtk_comboboxtext(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_COMBO_BOX_TEXT, "ComboBoxText", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(append, 2);
+    RG_DEF_METHOD(append_text, 1);
+    RG_DEF_METHOD(active_text, 0);
+    RG_DEF_METHOD(insert, 3);
+    RG_DEF_METHOD(insert_text, 2);
+    RG_DEF_METHOD(prepend, 2);
+    RG_DEF_METHOD(prepend_text, 1);
+    RG_DEF_METHOD(remove, 1);
+    RG_DEF_METHOD(remove_all, 0);
+}

data/ext/gtk3/rbgtkconst.c

@@ -0,0 +1,79 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002,2003 Ruby-GNOME2 Project Team
+ *  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+ *                          Daisuke Kanda,
+ *                          Hiroshi Igarashi
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbgtk3private.h"
+
+void 
+Init_gtk_const(VALUE mGtk)
+{
+    rb_define_const(mGtk, "BINDING_VERSION",
+		    rb_ary_new3(3, INT2FIX(RBGTK_MAJOR_VERSION),
+				INT2FIX(RBGTK_MINOR_VERSION),
+				INT2FIX(RBGTK_MICRO_VERSION)));
+
+    rb_define_const(mGtk, "BUILD_VERSION",
+		    rb_ary_new3(3, INT2FIX(GTK_MAJOR_VERSION),
+				INT2FIX(GTK_MINOR_VERSION),
+				INT2FIX(GTK_MICRO_VERSION)));
+
+    rb_define_const(mGtk, "VERSION",
+		    rb_ary_new3(3, INT2FIX(gtk_major_version),
+				INT2FIX(gtk_minor_version),
+				INT2FIX(gtk_micro_version)));
+    rb_define_const(mGtk, "MAJOR_VERSION", INT2FIX(gtk_major_version));
+    rb_define_const(mGtk, "MINOR_VERSION", INT2FIX(gtk_minor_version));
+    rb_define_const(mGtk, "MICRO_VERSION", INT2FIX(gtk_micro_version));
+    rb_define_const(mGtk, "BINARY_AGE", INT2FIX(gtk_binary_age));
+    rb_define_const(mGtk, "INTERFACE_AGE", INT2FIX(gtk_interface_age));
+
+    G_DEF_CLASS(GTK_TYPE_ACCEL_FLAGS, "AccelFlags", mGtk);
+    G_DEF_CLASS(GTK_TYPE_ATTACH_OPTIONS, "AttachOptions", mGtk);
+    G_DEF_CLASS(GTK_TYPE_CORNER_TYPE, "CornerType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_DELETE_TYPE, "DeleteType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_DIRECTION_TYPE, "DirectionType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_EXPANDER_STYLE, "ExpanderStyle", mGtk);
+    G_DEF_CLASS(GTK_TYPE_JUSTIFICATION, "Justification", mGtk);
+    G_DEF_CLASS(GTK_TYPE_MESSAGE_TYPE, "MessageType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_MOVEMENT_STEP, "MovementStep", mGtk);
+    G_DEF_CLASS(GTK_TYPE_ORIENTATION, "Orientation", mGtk);
+    G_DEF_CLASS(GTK_TYPE_PACK_TYPE, "PackType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_PATH_PRIORITY_TYPE, "PathPriorityType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_PATH_TYPE, "PathType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_POLICY_TYPE, "PolicyType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_POSITION_TYPE, "PositionType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_RELIEF_STYLE, "ReliefStyle", mGtk);
+    G_DEF_CLASS(GTK_TYPE_RESIZE_MODE, "ResizeMode", mGtk);
+    G_DEF_CLASS(GTK_TYPE_RESPONSE_TYPE, "ResponseType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_SCROLL_STEP, "ScrollStep", mGtk);
+    G_DEF_CLASS(GTK_TYPE_SCROLL_TYPE, "ScrollType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_SELECTION_MODE, "SelectionMode", mGtk);
+    G_DEF_CLASS(GTK_TYPE_SHADOW_TYPE, "ShadowType", mGtk);
+    G_DEF_CLASS(GTK_TYPE_STATE_FLAGS, "StateFlags", mGtk);
+    G_DEF_CLASS(GTK_TYPE_STATE_TYPE, "StateType", mGtk);
+/* deprecated
+    G_DEF_CLASS(GTK_TYPE_SUBMENU_DIRECTION, "SubmenuDirection", mGtk);
+    G_DEF_CLASS(GTK_TYPE_SUBMENU_PLACEMENT, "SubmenuPlacement", mGtk);
+*/
+    G_DEF_CLASS(GTK_TYPE_SORT_TYPE, "SortType", mGtk);
+}

data/ext/gtk3/rbgtkcontainer.c

@@ -0,0 +1,784 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-2006 Ruby-GNOME2 Project Team
+ *  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+ *                          Daisuke Kanda,
+ *                          Hiroshi Igarashi
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbgtk3private.h"
+
+#define RG_TARGET_NAMESPACE cContainer
+#define _SELF(self) (RVAL2GTKCONTAINER(self))
+
+#define RubyGtkContainerHookModule "RubyGtkContainerHook__"
+
+/*
+We don't need this.
+#define     GTK_CONTAINER_WARN_INVALID_CHILD_PROPERTY_ID(object, property_id, pspec)
+*/
+
+static VALUE type_to_prop_setter_table;
+static VALUE type_to_prop_getter_table;
+
+static VALUE
+rg_resize_container_p(VALUE self)
+{
+    return CBOOL2RVAL(GTK_IS_RESIZE_CONTAINER(_SELF(self)));
+}
+
+static VALUE
+rg_remove(VALUE self, VALUE other)
+{
+    G_CHILD_REMOVE(self, other);
+    gtk_container_remove(_SELF(self), RVAL2GTKWIDGET(other));
+    return self;
+}
+
+static VALUE
+rg_check_resize(VALUE self)
+{
+    gtk_container_check_resize(_SELF(self));
+    return self;
+}
+
+static VALUE
+rg_each(int argc, VALUE *argv, VALUE self)
+{
+    VALUE callback;
+
+    rb_scan_args(argc, argv, "01", &callback);
+    if (NIL_P(callback)) {
+        callback = rb_block_proc();
+    }
+    gtk_container_foreach(_SELF(self), exec_callback, (gpointer)callback);
+    return self;
+}
+
+static VALUE
+rg_each_forall(int argc, VALUE *argv, VALUE self)
+{
+    VALUE callback;
+
+    rb_scan_args(argc, argv, "01", &callback);
+    if (NIL_P(callback)) {
+        callback = rb_block_proc();
+    }
+    gtk_container_forall(_SELF(self), exec_callback, (gpointer)callback);
+    return self;
+}
+
+static VALUE
+rg_children(VALUE self)
+{
+   return GOBJGLIST2RVAL_FREE(gtk_container_get_children(_SELF(self)),
+                              g_list_free, NULL);
+}
+
+static VALUE
+rg_set_reallocate_redraws(VALUE self, VALUE needs_redraws)
+{
+    gtk_container_set_reallocate_redraws(_SELF(self), RVAL2CBOOL(needs_redraws));
+    return self;
+}
+
+static VALUE
+rg_set_focus_child(VALUE self, VALUE child)
+{
+    gtk_container_set_focus_child(_SELF(self), RVAL2GTKWIDGET(child));
+    return self;
+}
+
+static VALUE
+rg_set_focus_vadjustment(VALUE self, VALUE adjustment)
+{
+    gtk_container_set_focus_vadjustment(_SELF(self),
+                                        NIL_P(adjustment) ? NULL : RVAL2GTKADJUSTMENT(adjustment));
+    return self;
+}
+
+static VALUE
+rg_set_focus_hadjustment(VALUE self, VALUE adjustment)
+{
+    gtk_container_set_focus_hadjustment(_SELF(self),
+                                        NIL_P(adjustment) ? NULL : RVAL2GTKADJUSTMENT(adjustment));
+    return self;
+}
+
+static VALUE
+rg_focus_vadjustment(VALUE self)
+{
+    return GOBJ2RVAL(gtk_container_get_focus_vadjustment(_SELF(self)));
+}
+
+static VALUE
+rg_focus_hadjustment(VALUE self)
+{
+    return GOBJ2RVAL(gtk_container_get_focus_hadjustment(_SELF(self)));
+}
+
+static VALUE
+rg_resize_children(VALUE self)
+{
+    gtk_container_resize_children(_SELF(self));
+    return self;
+}
+
+static VALUE
+rg_child_type(VALUE self)
+{
+    return GTYPE2CLASS(gtk_container_child_type(_SELF(self)));
+}
+
+/* 
+void        gtk_container_child_get         (GtkContainer *container,
+                                             GtkWidget *child,
+                                             const gchar *first_prop_name,
+                                             ...);
+void        gtk_container_child_set         (GtkContainer *container,
+                                             GtkWidget *child,
+                                             const gchar *first_prop_name,
+                                             ...);
+*/
+
+static void
+rbgtkcontainer_register_child_property_setter(GType gtype, const char *name, RValueToGValueFunc func)
+{
+    GObjectClass* oclass;
+    GParamSpec* pspec;
+
+    VALUE table = rb_hash_aref(type_to_prop_setter_table, INT2FIX(gtype));
+    if (NIL_P(table)){
+        table = rb_hash_new();
+        rb_hash_aset(type_to_prop_setter_table, INT2FIX(gtype), table);
+    }
+
+    oclass = g_type_class_ref(gtype);
+    pspec = gtk_container_class_find_child_property(oclass, name);
+
+    rb_hash_aset(table, rb_intern(g_param_spec_get_name(pspec)),
+                 Data_Wrap_Struct(rb_cData, NULL, NULL, func));
+
+    g_type_class_unref(oclass);
+}
+
+static void
+rbgtkcontainer_register_child_property_getter(GType gtype, const char *name, GValueToRValueFunc func)
+{
+    GObjectClass* oclass;
+    GParamSpec* pspec;
+
+    VALUE table = rb_hash_aref(type_to_prop_getter_table, INT2FIX(gtype));
+    if (NIL_P(table)){
+        table = rb_hash_new();
+        rb_hash_aset(type_to_prop_getter_table, INT2FIX(gtype), table);
+    }
+
+    oclass = g_type_class_ref(gtype);
+    pspec = gtk_container_class_find_child_property(oclass, name);
+
+    rb_hash_aset(table, rb_intern(g_param_spec_get_name(pspec)),
+                 Data_Wrap_Struct(rb_cData, NULL, NULL, func));
+}
+
+static VALUE
+rg_child_get_property(VALUE self, VALUE child, VALUE prop_name)
+{
+    GParamSpec* pspec;
+    const char* name;
+
+    if (SYMBOL_P(prop_name)) {
+        name = rb_id2name(SYM2ID(prop_name));
+    } else {
+        name = RVAL2CSTR(prop_name);
+    }
+
+    pspec = gtk_container_class_find_child_property(
+        G_OBJECT_GET_CLASS(RVAL2GOBJ(self)), name);
+
+    if (!pspec)
+        rb_raise(rb_eArgError, "No such property: %s", name);
+    else {
+        GValueToRValueFunc getter = NULL;
+        GValue gval = G_VALUE_INIT;
+        VALUE ret;
+
+        {
+            VALUE table = rb_hash_aref(type_to_prop_getter_table,
+                                       INT2FIX(pspec->owner_type));
+            if (!NIL_P(table)){
+                VALUE obj = rb_hash_aref(table, rb_intern(g_param_spec_get_name(pspec)));
+                if (!NIL_P(obj))
+                    Data_Get_Struct(obj, void, getter);
+            }
+        }
+        g_value_init(&gval, G_PARAM_SPEC_VALUE_TYPE(pspec));
+        gtk_container_child_get_property(RVAL2GTKCONTAINER(self), 
+                                         RVAL2GTKWIDGET(child),
+                                         name , &gval);
+        ret = getter ? getter(&gval) : GVAL2RVAL(&gval);
+
+        G_CHILD_ADD(child, ret);
+
+        g_value_unset(&gval);
+        return ret;
+    }
+}
+
+static VALUE
+rg_child_set_property(VALUE self, VALUE child, VALUE prop_name, VALUE val)
+{
+    GParamSpec* pspec;
+    const char* name;
+
+    if (SYMBOL_P(prop_name)) {
+        name = rb_id2name(SYM2ID(prop_name));
+    } else {
+        name = RVAL2CSTR(prop_name);
+    }
+
+    pspec = gtk_container_class_find_child_property(
+        G_OBJECT_GET_CLASS(RVAL2GOBJ(self)), name);
+
+    if (!pspec)
+        rb_raise(rb_eArgError, "No such property: %s", name);
+    else {
+        RValueToGValueFunc setter = NULL;
+        GValue gval = G_VALUE_INIT;
+        g_value_init(&gval, G_PARAM_SPEC_VALUE_TYPE(pspec));
+
+        {
+            VALUE table = rb_hash_aref(type_to_prop_setter_table,
+                                       INT2FIX(pspec->owner_type));
+            if (!NIL_P(table)){
+                VALUE obj = rb_hash_aref(table, rb_intern(g_param_spec_get_name(pspec)));
+                if (!NIL_P(obj))
+                    Data_Get_Struct(obj, void, setter);
+            }
+        }
+
+        if (setter)
+            setter(val, &gval);
+        else {
+            if (!NIL_P(val))
+                rbgobj_rvalue_to_gvalue(val, &gval);
+        }
+
+        G_CHILD_ADD(child, val);
+
+        gtk_container_child_set_property(RVAL2GTKCONTAINER(self), 
+                                         RVAL2GTKWIDGET(child), name, &gval);
+
+        g_value_unset(&gval);
+        return self;
+    }
+}
+
+static VALUE
+rg_add(int argc, VALUE *argv, VALUE self)
+{
+    VALUE other, properties;
+    GtkWidget *child;
+
+    rb_scan_args(argc, argv, "11", &other, &properties);
+
+    child = RVAL2GTKWIDGET(other);
+    gtk_widget_freeze_child_notify(child);
+    gtk_container_add(_SELF(self), child);
+
+    G_CHILD_ADD(self, other);
+
+    if (gtk_widget_get_parent(child) && (! NIL_P(properties))){
+        int i;
+        VALUE ary;
+
+        Check_Type(properties, T_HASH);
+        ary = rb_funcall(properties, rb_intern("to_a"), 0);
+
+        for (i = 0; i < RARRAY_LEN(ary); i++) {
+            rg_child_set_property(self, other, 
+                       RARRAY_PTR(RARRAY_PTR(ary)[i])[0],
+                       RARRAY_PTR(RARRAY_PTR(ary)[i])[1]);
+        }
+    }
+    gtk_widget_thaw_child_notify(child);
+    return self;
+}
+
+/*
+void        gtk_container_child_get_valist  (GtkContainer *container,
+                                             GtkWidget *child,
+                                             const gchar *first_property_name,
+                                             va_list var_args);
+void        gtk_container_child_set_valist  (GtkContainer *container,
+                                             GtkWidget *child,
+                                             const gchar *first_property_name,
+                                             va_list var_args);
+*/
+
+/* deprecated
+static VALUE
+rg_propagate_expose(VALUE self, VALUE child, VALUE event)
+{
+    gtk_container_propagate_expose(_SELF(self), RVAL2GTKWIDGET(child),
+                                   (GdkEventExpose *)RVAL2GEV(event));
+    return self;
+}
+*/
+
+static VALUE
+rg_focus_chain(VALUE self)
+{
+    gboolean ret;
+    GList *glist = NULL;
+    ret = gtk_container_get_focus_chain(_SELF(self), &glist);
+    return GOBJGLIST2RVAL_FREE(glist, g_list_free, NULL);
+}
+
+struct rval2gtkwidgetglist_args {
+    VALUE ary;
+    long n;
+    GList *result;
+};
+
+static VALUE
+rbg_rval2gtkwidgetglist_body(VALUE value)
+{
+    long i;
+    struct rval2gtkwidgetglist_args *args = (struct rval2gtkwidgetglist_args *)value;
+
+    for (i = 0; i < args->n; i++)
+        args->result = g_list_append(args->result, RVAL2GTKWIDGET(RARRAY_PTR(args->ary)[i]));
+
+    return Qnil;
+}
+
+static G_GNUC_NORETURN VALUE
+rbg_rval2gtkwidgetglist_rescue(VALUE value)
+{
+    g_list_free(((struct rval2gtkwidgetglist_args *)value)->result);
+
+    rb_exc_raise(rb_errinfo());
+}
+
+static GList *
+rbg_rval2gtkwidgetglist(VALUE value)
+{
+    struct rval2gtkwidgetglist_args args;
+
+    args.ary = rb_ary_to_ary(value);
+    args.n = RARRAY_LEN(args.ary);
+    args.result = NULL;
+
+    rb_rescue(rbg_rval2gtkwidgetglist_body, (VALUE)&args,
+              rbg_rval2gtkwidgetglist_rescue, (VALUE)&args);
+
+    return args.result;
+}
+
+#define RVAL2GTKWIDGETGLIST(value) rbg_rval2gtkwidgetglist(value)
+
+static VALUE
+rg_set_focus_chain(VALUE self, VALUE rbfocusable_widgets)
+{
+    GtkContainer *container = _SELF(self);
+    GList *focusable_widgets = RVAL2GTKWIDGETGLIST(rbfocusable_widgets);
+
+    gtk_container_set_focus_chain(container, focusable_widgets);
+
+    g_list_free(focusable_widgets);
+
+    return self;
+}
+
+static VALUE
+rg_unset_focus_chain(VALUE self)
+{
+    gtk_container_unset_focus_chain(_SELF(self));
+    return self;
+}
+
+static VALUE
+rg_s_child_property(VALUE self, VALUE property_name)
+{
+    GObjectClass* oclass;
+    const char* name;
+    GParamSpec* prop;
+    VALUE result;
+
+    if (SYMBOL_P(property_name)) {
+        name = rb_id2name(SYM2ID(property_name));
+    } else {
+        name = RVAL2CSTR(property_name);
+    }
+
+    oclass = g_type_class_ref(CLASS2GTYPE(self));
+
+    prop = gtk_container_class_find_child_property(oclass, name);
+    if (!prop){
+        g_type_class_unref(oclass);
+        rb_raise(rb_eNameError, "no such property: %s", name);
+    }
+
+    result = GOBJ2RVAL(prop);
+    g_type_class_unref(oclass);
+    return result;
+}
+
+static VALUE
+rg_s_install_child_property(int argc, VALUE *argv, VALUE self)
+{
+    const RGObjClassInfo* cinfo = rbgobj_lookup_class(self);
+    GtkContainerClass* gclass;
+    VALUE spec, prop_id;
+    GParamSpec* pspec;
+
+    rb_scan_args(argc, argv, "11", &spec, &prop_id);
+
+    pspec = RVAL2GPARAMSPEC(spec);
+
+    if (cinfo->klass != self)
+        rb_raise(rb_eTypeError, "%s isn't registerd class",
+                 rb_class2name(self));
+
+    gclass = GTK_CONTAINER_CLASS(g_type_class_ref(cinfo->gtype));
+    gtk_container_class_install_child_property(gclass, 
+                                               NIL_P(prop_id) ? 1 : NUM2UINT(prop_id),
+                                               pspec);
+
+    return self;
+}
+
+static VALUE
+rg_s_child_properties(int argc, VALUE *argv, VALUE self)
+{
+    GObjectClass* oclass = g_type_class_ref(CLASS2GTYPE(self));
+    guint n_properties;
+    GParamSpec** props;
+    VALUE inherited_too;
+    VALUE ary;
+    guint i;
+
+    if (rb_scan_args(argc, argv, "01", &inherited_too) == 0)
+        inherited_too = Qtrue;
+
+    props = gtk_container_class_list_child_properties(oclass, &n_properties);
+
+    ary = rb_ary_new();
+    for (i = 0; i < n_properties; i++){
+        if (RVAL2CBOOL(inherited_too)
+            || GTYPE2CLASS(props[i]->owner_type) == self)
+            rb_ary_push(ary, CSTR2RVAL(props[i]->name));
+    }
+    g_free(props);
+    g_type_class_unref(oclass);
+    return ary;
+}
+
+/**********************************************************************/
+
+static VALUE proc_mod_eval;
+static GQuark q_ruby_setter;
+static GQuark q_ruby_getter;
+
+static VALUE
+cont_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE params_hash;
+    GObject* gobj;
+
+    rb_scan_args(argc, argv, "01", &params_hash);
+
+    if (!NIL_P(params_hash))
+        Check_Type(params_hash, T_HASH);
+
+    gobj = rbgobj_gobject_new(RVAL2GTYPE(self), params_hash);
+
+    RBGTK_INITIALIZE(self, gobj);
+    return Qnil;
+}
+
+// FIXME: use rb_protect
+static void
+get_prop_func(GObject* object,
+              G_GNUC_UNUSED guint property_id,
+              GValue* value,
+              GParamSpec* pspec)
+{
+    ID ruby_getter = (ID)g_param_spec_get_qdata(pspec, q_ruby_getter);
+    if (!ruby_getter) {
+        gchar* name = g_strdup(g_param_spec_get_name(pspec));
+        gchar* p;
+        for (p = name; *p; p++) {
+          if (*p == '-')
+            *p = '_';
+        }
+        ruby_getter = rb_intern(name);
+        g_param_spec_set_qdata(pspec, q_ruby_getter, (gpointer)ruby_getter);
+        g_free(name);
+    }
+
+    {
+        VALUE ret = rb_funcall(GOBJ2RVAL(object), ruby_getter, 0);
+        rbgobj_rvalue_to_gvalue(ret, value);
+    }
+}
+
+// FIXME: use rb_protect
+static void
+set_prop_func(GObject* object,
+              G_GNUC_UNUSED guint property_id,
+              const GValue* value,
+              GParamSpec* pspec)
+{
+    ID ruby_setter = (ID)g_param_spec_get_qdata(pspec, q_ruby_setter);
+    if (!ruby_setter) {
+        gchar* name = g_strconcat(g_param_spec_get_name(pspec), "=", NULL);
+        gchar* p;
+        for (p = name; *p; p++) {
+          if (*p == '-')
+            *p = '_';
+        }
+        ruby_setter = rb_intern(name);
+        g_param_spec_set_qdata(pspec, q_ruby_setter, (gpointer)ruby_setter);
+        g_free(name);
+    }
+
+    rb_funcall(GOBJ2RVAL(object), ruby_setter, 1, GVAL2RVAL(value));
+}
+
+// FIXME: use rb_protect
+static void
+get_child_prop_func(GtkContainer *container,
+                    GtkWidget *child,
+                    G_GNUC_UNUSED guint property_id,
+                    GValue *value,
+                    GParamSpec *pspec)
+{
+    ID ruby_getter = (ID)g_param_spec_get_qdata(pspec, q_ruby_getter);
+    if (!ruby_getter) {
+        gchar* name = g_strconcat("get_", g_param_spec_get_name(pspec), NULL);
+        gchar* p;
+        for (p = name; *p; p++) {
+          if (*p == '-')
+            *p = '_';
+        }
+        ruby_getter = rb_intern(name);
+        g_param_spec_set_qdata(pspec, q_ruby_getter, (gpointer)ruby_getter);
+        g_free(name);
+    }
+
+    {
+        VALUE ret = rb_funcall(GOBJ2RVAL(container), ruby_getter, 1, GOBJ2RVAL(child));
+        rbgobj_rvalue_to_gvalue(ret, value);
+    }
+}
+
+// FIXME: use rb_protect
+static void
+set_child_prop_func(GtkContainer *container,
+                    GtkWidget *child,
+                    G_GNUC_UNUSED guint property_id,
+                    const GValue *value,
+                    GParamSpec *pspec)
+{
+    ID ruby_setter = (ID)g_param_spec_get_qdata(pspec, q_ruby_setter);
+    if (!ruby_setter) {
+        gchar* name = g_strconcat("set_", g_param_spec_get_name(pspec), NULL);
+        gchar* p;
+        for (p = name; *p; p++) {
+          if (*p == '-')
+            *p = '_';
+        }
+        ruby_setter = rb_intern(name);
+        g_param_spec_set_qdata(pspec, q_ruby_setter, (gpointer)ruby_setter);
+        g_free(name);
+    }
+
+    rb_funcall(GOBJ2RVAL(container), ruby_setter, 2, GOBJ2RVAL(child), GVAL2RVAL(value));
+}
+
+// FIXME: use rb_protect
+static void
+class_init_func(gpointer g_class, G_GNUC_UNUSED gpointer class_data)
+{
+    GObjectClass* g_class1 = G_OBJECT_CLASS(g_class);
+    GtkContainerClass* g_class2 = GTK_CONTAINER_CLASS(g_class);
+
+    g_class1->set_property = set_prop_func;
+    g_class1->get_property = get_prop_func;
+
+    g_class2->set_child_property = set_child_prop_func;
+    g_class2->get_child_property = get_child_prop_func;
+
+#if 0
+    VALUE class_init_proc = (VALUE)class_data;
+    rb_funcall(proc_mod_eval, rb_intern("call"), 2,
+               GTYPE2CLASS(G_TYPE_FROM_CLASS(g_class)), class_init_proc);
+#endif
+}
+
+static VALUE
+rg_s_type_register(int argc, VALUE* argv, VALUE self)
+{
+    VALUE type_name, flags;
+    volatile VALUE class_init_proc = Qnil;
+    GType parent_type;
+    GTypeInfo* info;
+
+    rb_scan_args(argc, argv, "03", &type_name, &info, &flags);
+
+    /* TODO: Replace this copy-paste job with the real thing in glib2. */
+    {
+        const RGObjClassInfo* cinfo = rbgobj_lookup_class(self);
+        if (cinfo->klass == self)
+            rb_raise(rb_eTypeError, "already registered");
+    }
+
+    {
+        VALUE superclass = rb_funcall(self, rb_intern("superclass"), 0);
+        const RGObjClassInfo* cinfo = CLASS2CINFO(superclass);
+        if (cinfo->klass != superclass)
+            rb_raise(rb_eTypeError, "super class must be registered to GLib");
+        parent_type = cinfo->gtype;
+    }
+
+    if (NIL_P(type_name)){
+        VALUE s = rb_funcall(self, rb_intern("name"), 0);
+
+        if (strlen(StringValuePtr(s)) == 0)
+            rb_raise(rb_eTypeError, "can't determine type name");        
+
+        type_name = rb_funcall(
+            rb_eval_string("lambda{|x| x.gsub(/::/,'') }"),
+            rb_intern("call"), 1, s);
+    }
+
+    {
+        GTypeQuery query;
+        g_type_query(parent_type, &query);
+
+        /* TODO: This should not require a new GTypeInfo, as GLib doesn't
+         * retain a copy. */
+        info = g_new0(GTypeInfo, 1);
+        info->class_size     = query.class_size;
+        info->base_init      = NULL;
+        info->base_finalize  = NULL;
+        info->class_init     = class_init_func;
+        info->class_finalize = NULL;
+        info->class_data     = (gpointer)class_init_proc;
+        info->instance_size  = query.instance_size;
+        info->n_preallocs    = 0;
+        info->instance_init  = NULL;
+        info->value_table    = NULL;
+    }
+
+    {
+        GType type = g_type_register_static(parent_type,
+                                            StringValuePtr(type_name),
+                                            info,
+                                            NIL_P(flags) ? 0 : NUM2INT(flags));
+        G_RELATIVE(self, class_init_proc);
+
+        rbgobj_register_class(self, type, TRUE, TRUE);
+
+        {
+            RGObjClassInfo* cinfo = (RGObjClassInfo*)rbgobj_lookup_class(self);
+            cinfo->flags |= RBGOBJ_DEFINED_BY_RUBY;
+        }
+
+        {
+            GType parent = g_type_parent(type);
+            const RGObjClassInfo* cinfo = GTYPE2CINFO(parent);
+            VALUE m = rb_define_module_under(self, RubyGtkContainerHookModule);
+
+            if (! (cinfo->flags & RBGOBJ_DEFINED_BY_RUBY)) {
+                rbg_define_method(m, "initialize", cont_initialize, -1);
+            }
+
+            rb_include_module(self, m);
+        }
+
+        return Qnil;
+    }
+}
+/**********************************************************************/
+
+static void
+cont_mark_callback(GtkWidget *w, G_GNUC_UNUSED gpointer data)
+{
+    rbgobj_gc_mark_instance(w);
+}
+
+static void
+cont_mark(void* p)
+{
+    gtk_container_forall(GTK_CONTAINER(p), cont_mark_callback, NULL);
+}
+
+/**********************************************************************/
+
+void 
+Init_gtk_container(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE;
+
+    RG_TARGET_NAMESPACE = G_DEF_CLASS_WITH_GC_FUNC(GTK_TYPE_CONTAINER, "Container",
+                                                  mGtk, cont_mark, NULL);
+    RG_DEF_METHOD_P(resize_container, 0);
+    RG_DEF_METHOD(add, -1);
+    RG_DEF_ALIAS("<<", "add");
+    RG_DEF_METHOD(remove, 1);
+    RG_DEF_METHOD(check_resize, 0);
+    RG_DEF_METHOD(each, -1);
+    RG_DEF_METHOD(each_forall, -1);
+    RG_DEF_METHOD(children, 0);
+    RG_DEF_METHOD(set_reallocate_redraws, 1);
+    RG_DEF_METHOD(set_focus_child, 1);
+    RG_DEF_METHOD(set_focus_vadjustment, 1);
+    RG_DEF_METHOD(set_focus_hadjustment, 1);
+    RG_DEF_METHOD(focus_vadjustment, 0);
+    RG_DEF_METHOD(focus_hadjustment, 0);
+    RG_DEF_METHOD(resize_children, 0);
+    RG_DEF_METHOD(child_type, 0);
+    RG_DEF_METHOD(child_get_property, 2);
+    RG_DEF_METHOD(child_set_property, 3);
+/* deprecated
+    RG_DEF_METHOD(propagate_expose, 2);
+*/
+    RG_DEF_METHOD(focus_chain, 0);
+    RG_DEF_METHOD(set_focus_chain, 1);
+    RG_DEF_METHOD(unset_focus_chain, 0);
+    RG_DEF_SMETHOD(child_property, 1);
+    RG_DEF_SMETHOD(child_properties, -1);
+    RG_DEF_SMETHOD(install_child_property, -1);
+
+    q_ruby_getter = g_quark_from_static_string("__ruby_getter");
+    q_ruby_setter = g_quark_from_static_string("__ruby_setter");
+
+    RG_DEF_SMETHOD(type_register, -1);
+
+    rb_global_variable(&proc_mod_eval);
+    proc_mod_eval = rb_eval_string("lambda{|obj,proc| obj.module_eval(&proc)}");
+
+    rb_global_variable(&type_to_prop_setter_table);
+    rb_global_variable(&type_to_prop_getter_table);
+    type_to_prop_setter_table = rb_hash_new();
+    type_to_prop_getter_table = rb_hash_new();
+}