gtk3 2.2.5 → 3.0.1

data/ext/gtk3/rbgtk-combo-box.c

@@ -1,147 +0,0 @@
-/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
-/*
- *  Copyright (C) 2011  Ruby-GNOME2 Project Team
- *  Copyright (C) 2004  Masao Mutoh
- *
- *  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 cComboBox
-#define _SELF(self) (RVAL2GTKCOMBOBOX(self))
-
-static VALUE
-rg_initialize(int argc, VALUE *argv, VALUE self)
-{
-    VALUE options, rb_entry, rb_model, rb_area;
-    gboolean entry;
-    GtkTreeModel *model;
-    GtkCellArea *area;
-    GtkWidget *widget;
-
-    rb_scan_args(argc, argv, "01", &options);
-    rbg_scan_options(options,
-                     "entry", &rb_entry,
-                     "model", &rb_model,
-                     "area", &rb_area,
-                     NULL);
-    entry = RVAL2CBOOL(rb_entry);
-    model = NIL_P(rb_model) ? NULL : RVAL2GTKTREEMODEL(rb_model);
-    area = NIL_P(rb_area) ? NULL : RVAL2GTKCELLAREA(rb_area);
-
-    if (entry) {
-        if (model)
-            widget = gtk_combo_box_new_with_model_and_entry(model);
-        else if (area)
-            widget = gtk_combo_box_new_with_area_and_entry(area);
-        else
-            widget = gtk_combo_box_new_with_entry();
-    } else {
-        if (model)
-            widget = gtk_combo_box_new_with_model(model);
-        else if (area)
-            widget = gtk_combo_box_new_with_area(area);
-        else
-            widget = gtk_combo_box_new();
-    }
-    RBGTK_INITIALIZE(self, widget);
-
-    return Qnil;
-}
-
-static VALUE
-rg_active_iter(VALUE self)
-{
-    GtkTreeIter iter;
-    VALUE val = Qnil;
-    gboolean ret = gtk_combo_box_get_active_iter(_SELF(self), &iter);
-    if (ret){
-        iter.user_data3 = (gpointer)gtk_combo_box_get_model(_SELF(self));
-        val = GTKTREEITER2RVAL(&iter);
-    }
-    return val;
-}
-
-static VALUE
-rg_set_active_iter(VALUE self, VALUE iter)
-{
-    gtk_combo_box_set_active_iter(_SELF(self), RVAL2GTKTREEITER(iter));
-    return self;
-}
-
-static VALUE
-rg_popup_accessible(VALUE self)
-{
-    return GOBJ2RVAL(gtk_combo_box_get_popup_accessible(_SELF(self)));
-}
-
-static gboolean
-row_separator_func(GtkTreeModel *model, GtkTreeIter *iter, gpointer *func)
-{  
-    iter->user_data3 = model;
-    return RVAL2CBOOL(rb_funcall((VALUE)func, id_call, 2, GOBJ2RVAL(model),
-                      GTKTREEITER2RVAL(iter)));
-}
-
-static VALUE
-rg_set_row_separator_func(VALUE self)
-{
-    VALUE func = rb_block_proc();
-    G_RELATIVE(self, func);
-    gtk_combo_box_set_row_separator_func(_SELF(self), 
-                                         (GtkTreeViewRowSeparatorFunc)row_separator_func,
-                                         (gpointer)func, NULL);
-    return self;
-}
-
-static VALUE
-rg_title(VALUE self)
-{
-    return CSTR2RVAL(gtk_combo_box_get_title(_SELF(self)));
-}
-
-/* TODO: merge to popup? */
-static VALUE
-rg_popup_for_device(VALUE self, VALUE device)
-{
-    gtk_combo_box_popup_for_device(_SELF(self), RVAL2GDKDEVICE(device));
-
-    return self;
-}
-
-static VALUE
-rg_set_title(VALUE self, VALUE title)
-{
-    gtk_combo_box_set_title(_SELF(self), RVAL2CSTR(title));
-
-    return self;
-}
-
-void
-Init_gtk_combobox(VALUE mGtk)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_COMBO_BOX, "ComboBox", mGtk);
-
-    RG_DEF_METHOD(initialize, -1);
-    RG_DEF_METHOD(active_iter, 0);
-    RG_DEF_METHOD(set_active_iter, 1);
-    RG_DEF_METHOD(popup_accessible, 0);
-    RG_DEF_METHOD(set_row_separator_func, 0);
-    RG_DEF_METHOD(title, 0);
-    RG_DEF_METHOD(popup_for_device, 1);
-    RG_DEF_METHOD(set_title, 1);
-}

data/ext/gtk3/rbgtk-const.c

@@ -1,79 +0,0 @@
-/* -*- 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/rbgtk-container.c

@@ -1,788 +0,0 @@
-/* -*- 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 set_explicitly;
-    GList *glist = NULL;
-
-    set_explicitly = gtk_container_get_focus_chain(_SELF(self), &glist);
-    if (!set_explicitly) {
-        return Qnil;
-    }
-    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();
-}