gtk3 0.0.1 → 1.2.0

data/ext/gtk3/rbgtkbin.c

@@ -0,0 +1,42 @@
+/* -*- 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"
+
+#define RG_TARGET_NAMESPACE cBin
+#define _SELF(self) (RVAL2GTKBIN(self))
+
+static VALUE
+rg_child(VALUE self)
+{
+    return GOBJ2RVAL(gtk_bin_get_child(_SELF(self)));
+}
+
+void 
+Init_gtk_bin(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BIN, "Bin", mGtk);
+
+    RG_DEF_METHOD(child, 0);
+}

data/ext/gtk3/rbgtkbindingset.c

@@ -0,0 +1,164 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2003  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"
+
+/*****************************************/
+static GtkBindingSet*
+gtk_bindingset_copy(const GtkBindingSet* bin)
+{
+    /* GtkBindingSet should not be copied */
+    return (GtkBindingSet*)bin;
+}
+
+static void
+gtk_bindingset_free(G_GNUC_UNUSED GtkBindingSet* bin)
+{
+    /* GtkBindingSet should not be freed */
+}
+
+GType
+gtk_bindingset_get_type(void)
+{
+  static GType our_type = 0;
+  if (our_type == 0)
+    our_type = g_boxed_type_register_static ("GtkBindingSet",
+                    (GBoxedCopyFunc)gtk_bindingset_copy,
+                    (GBoxedFreeFunc)gtk_bindingset_free);
+  return our_type;
+}
+/*****************************************/
+
+#define RG_TARGET_NAMESPACE cBindingSet
+#define _SELF(s) (RVAL2GTKBINDINGSET(s))
+
+static VALUE
+rg_initialize(VALUE self, VALUE set_name)
+{
+    G_INITIALIZE(self, gtk_binding_set_new(RVAL2CSTR(set_name)));
+    return Qnil;
+}
+
+static VALUE
+rg_s_find(G_GNUC_UNUSED VALUE self, VALUE set_name)
+{
+    return GTKBINDINGSET2RVAL(gtk_binding_set_find(RVAL2CSTR(set_name)));
+}
+
+static VALUE
+rg_activate(VALUE self, VALUE keyval, VALUE modifiers, VALUE object)
+{
+    return CBOOL2RVAL(gtk_binding_set_activate(_SELF(self), NUM2UINT(keyval),
+                                               RVAL2GDKMODIFIERTYPE(modifiers),
+                                               RVAL2GOBJ(object)));
+}
+
+static VALUE
+rg_add_signal(int argc, VALUE *argv, VALUE self)
+{
+    VALUE keyval, modifiers, signame, rest;
+    long i;
+    VALUE param;
+    GSList *slist, *free_slist;
+
+    slist = NULL;
+
+    rb_scan_args(argc, argv, "3*", &keyval, &modifiers, &signame, &rest);
+
+    for (i = 0; i < RARRAY_LEN(rest); i++) {
+        GtkBindingArg *arg;
+
+        arg = g_new0 (GtkBindingArg, 1);
+        slist = g_slist_prepend (slist, arg);
+
+        param = RARRAY_PTR(rest)[i];
+        if (TYPE(param) == T_FLOAT) {
+            arg->arg_type = G_TYPE_DOUBLE;
+            arg->d.double_data = NUM2DBL(param);
+        } else if (rb_respond_to (param, rb_intern("to_int"))) {
+            arg->arg_type = G_TYPE_LONG;
+            arg->d.long_data = NUM2LONG(param);
+        } else if (param == Qfalse) {
+            arg->arg_type = G_TYPE_LONG;
+            arg->d.long_data = 0;
+        } else if (param == Qtrue) {
+            arg->arg_type = G_TYPE_LONG;
+            arg->d.long_data = 1;
+        } else if (rb_respond_to (param, rb_intern("to_str"))) {
+            arg->arg_type = G_TYPE_STRING;
+            arg->d.string_data = (gchar *)RVAL2CSTR(param);
+        } else {
+            rb_raise(rb_eTypeError, 
+                     "can not convert %s into String, Numeric, "
+                     "GLib::Enum/GLib::Flags or true/false",
+                     rb_class2name(CLASS_OF(param)));
+
+        }
+    }
+    slist = g_slist_reverse (slist);
+    gtk_binding_entry_add_signall (_SELF(self), NUM2UINT(keyval), RVAL2GDKMODIFIERTYPE(modifiers),
+                                   RVAL2CSTR(signame), slist);
+    free_slist = slist;
+    while (slist) {
+        g_free (slist->data);
+        slist = slist->next;
+    }
+    g_slist_free (free_slist);
+
+    return self;
+}
+
+static VALUE
+rg_add_path(VALUE self, VALUE path_type, VALUE path_pattern, VALUE priority)
+{
+    gtk_binding_set_add_path(_SELF(self), RVAL2GTKPATHTYPE(path_type),
+                             RVAL2CSTR(path_pattern),
+                             RVAL2GTKPATHPRIORITYTYPE(priority));
+    return self;
+}
+
+static VALUE
+rg_entry_remove(VALUE self, VALUE keyval, VALUE modifiers)
+{
+    gtk_binding_entry_remove(_SELF(self), NUM2UINT(keyval), RVAL2GDKMODIFIERTYPE(modifiers));
+    return self;
+}
+
+static VALUE
+rg_entry_skip(VALUE self, VALUE keyval, VALUE modifiers)
+{
+    gtk_binding_entry_skip(_SELF(self), NUM2UINT(keyval), RVAL2GDKMODIFIERTYPE(modifiers));
+    return self;
+}
+
+void 
+Init_gtk_bindings(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BINDING_SET, "BindingSet", mGtk);
+    RG_DEF_METHOD(initialize, 1);
+    RG_DEF_SMETHOD(find, 1);
+    RG_DEF_METHOD(activate, 3);
+    RG_DEF_METHOD(add_signal, -1);
+    RG_DEF_ALIAS("entry_add_signal", "add_signal");
+    RG_DEF_METHOD(add_path, 3);
+    RG_DEF_METHOD(entry_remove, 2);
+    RG_DEF_METHOD(entry_skip, 2);
+}

data/ext/gtk3/rbgtkborder.c

@@ -0,0 +1,119 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-2004 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 cBorder
+#define _SELF(self) (RVAL2GTKBORDER(self))
+
+static VALUE
+rg_initialize(VALUE self, VALUE left, VALUE right, VALUE top, VALUE bottom)
+{
+    GtkBorder border;
+    border.left = NUM2INT(left);
+    border.right = NUM2INT(right);
+    border.top = NUM2INT(top);
+    border.bottom = NUM2INT(bottom);
+
+    G_INITIALIZE(self, &border);
+    return Qnil;
+}
+
+static VALUE
+rg_left(VALUE self)
+{
+    return INT2NUM(_SELF(self)->left);
+}
+
+static VALUE
+rg_set_left(VALUE self, VALUE val)
+{
+    _SELF(self)->left = NUM2INT(val);
+    return self;
+}
+
+static VALUE
+rg_right(VALUE self)
+{
+    return INT2NUM(_SELF(self)->right);
+}
+
+static VALUE
+rg_set_right(VALUE self, VALUE val)
+{
+    _SELF(self)->right = NUM2INT(val);
+    return self;
+}
+
+static VALUE
+rg_top(VALUE self)
+{
+    return INT2NUM(_SELF(self)->top);
+}
+
+static VALUE
+rg_set_top(VALUE self, VALUE val)
+{
+    _SELF(self)->top = NUM2INT(val);
+    return self;
+}
+
+static VALUE
+rg_bottom(VALUE self)
+{
+    return INT2NUM(_SELF(self)->bottom);
+}
+
+static VALUE
+rg_set_bottom(VALUE self, VALUE val)
+{
+    _SELF(self)->bottom = NUM2INT(val);
+    return self;
+}
+
+static VALUE
+rg_to_a(VALUE self)
+{
+    GtkBorder* border = _SELF(self);
+    return rb_ary_new3(4, INT2NUM(border->left), INT2NUM(border->right),
+                       INT2NUM(border->top), INT2NUM(border->bottom));
+}
+
+void 
+Init_gtk_border(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BORDER, "Border", mGtk);
+
+    RG_DEF_METHOD(initialize, 4);
+    RG_DEF_METHOD(to_a, 0);
+
+    RG_DEF_METHOD(left, 0);
+    RG_DEF_METHOD(set_left, 1);
+    RG_DEF_METHOD(right, 0);
+    RG_DEF_METHOD(set_right, 1);
+    RG_DEF_METHOD(top, 0);
+    RG_DEF_METHOD(set_top, 1);
+    RG_DEF_METHOD(bottom, 0);
+    RG_DEF_METHOD(set_bottom, 1);
+}

data/ext/gtk3/rbgtkbox.c

@@ -0,0 +1,146 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-2005 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 cBox
+#define _SELF(self) (RVAL2GTKBOX(self))
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE orientation, spacing;
+
+    rb_scan_args(argc, argv, "11", &orientation, &spacing);
+
+    RBGTK_INITIALIZE(self, gtk_box_new(RVAL2GTKORIENTATION(orientation),
+                                       NIL_P(spacing) ? 0 : NUM2INT(spacing)));
+
+    return Qnil;
+}
+
+static void
+box_pack_start_or_end(int argc, VALUE *argv, VALUE self, void (*func)(GtkBox *, GtkWidget *, gboolean, gboolean, guint))
+{
+    VALUE options, child, expand, fill, padding;
+
+    rb_scan_args(argc, argv, "11", &child, &options);
+    rbg_scan_options(options,
+                     "expand", &expand,
+                     "fill", &fill,
+                     "padding", &padding,
+                     NULL);
+
+    func(_SELF(self),
+         RVAL2GTKWIDGET(child),
+         NIL_P(expand) ? TRUE : RVAL2CBOOL(expand),
+         NIL_P(fill) ? TRUE : RVAL2CBOOL(fill),
+         NIL_P(padding) ? 0 : NUM2UINT(padding));
+    G_CHILD_ADD(self, child);
+}
+
+static VALUE
+rg_pack_start(int argc, VALUE *argv, VALUE self)
+{
+    box_pack_start_or_end(argc, argv, self, gtk_box_pack_start);
+    return self;
+}
+
+static VALUE
+rg_pack_end(int argc, VALUE *argv, VALUE self)
+{
+    box_pack_start_or_end(argc, argv, self, gtk_box_pack_end);
+    return self;
+}
+
+static VALUE
+rg_reorder_child(VALUE self, VALUE child, VALUE pos)
+{
+    gtk_box_reorder_child(_SELF(self),
+                          RVAL2GTKWIDGET(child), NUM2INT(pos));
+    return self;
+}
+
+static VALUE
+rg_query_child_packing(VALUE self, VALUE child)
+{
+    gboolean expand, fill;
+    guint padding;
+    GtkPackType pack_type;
+    VALUE ary;
+
+    gtk_box_query_child_packing(_SELF(self), 
+                                RVAL2GTKWIDGET(child),
+                                &expand, &fill, &padding, &pack_type);
+
+    ary = rb_ary_new2(4);
+    rb_ary_push(ary, expand == FALSE ? Qfalse : Qtrue);
+    rb_ary_push(ary, fill == FALSE ? Qfalse : Qtrue);
+    rb_ary_push(ary, INT2NUM(padding));
+    rb_ary_push(ary, GTKPACKTYPE2RVAL(pack_type));
+
+    return ary;
+}
+
+static VALUE
+rg_set_child_packing(int argc, VALUE *argv, VALUE self)
+{
+    VALUE options, child, expand, fill, padding, pack_type;
+    gboolean old_expand, old_fill;
+    guint old_padding;
+    GtkPackType old_pack_type;
+
+    rb_scan_args(argc, argv, "11", &child, &options);
+    rbg_scan_options(options,
+                     "expand", &expand,
+                     "fill", &fill,
+                     "padding", &padding,
+                     "pack_type", &pack_type,
+                     NULL);
+
+    gtk_box_query_child_packing(_SELF(self), 
+                                RVAL2GTKWIDGET(child),
+                                &old_expand, &old_fill, &old_padding, &old_pack_type);
+    gtk_box_set_child_packing(_SELF(self), 
+                              RVAL2GTKWIDGET(child),
+                              NIL_P(expand) ? old_expand : RVAL2CBOOL(expand),
+                              NIL_P(fill) ? old_fill : RVAL2CBOOL(fill),
+                              NIL_P(padding) ? old_padding : NUM2UINT(padding),
+                              NIL_P(pack_type) ? old_pack_type : (GtkPackType)RVAL2GTKPACKTYPE(pack_type));
+
+    return self;
+}
+
+void 
+Init_gtk_box(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BOX, "Box", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(pack_start, -1);
+    RG_DEF_METHOD(pack_end, -1);
+    RG_DEF_METHOD(reorder_child, 2);
+    RG_DEF_METHOD(query_child_packing, 1);
+    RG_DEF_METHOD(set_child_packing, -1);
+}