gtk2 0.20.0

data/src/rbgtkbbox.c

@@ -0,0 +1,47 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkbbox.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:31 $
+
+  Copyright (C) 2002,2003 Ruby-GNOME2 Project Team
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+static VALUE
+bbox_set_child_secondary(self, child, is_secondary)
+    VALUE self, child, is_secondary;
+{
+    gtk_button_box_set_child_secondary(GTK_BUTTON_BOX(RVAL2GOBJ(self)), 
+                                       GTK_WIDGET(RVAL2GOBJ(child)),
+                                       RVAL2CBOOL(is_secondary));
+    return self;
+}
+#if GTK_CHECK_VERSION(2,4,0)
+static VALUE
+bbox_get_child_secondary(self, child)
+    VALUE self, child;
+{
+    return CBOOL2RVAL(gtk_button_box_get_child_secondary(GTK_BUTTON_BOX(RVAL2GOBJ(self)), 
+                                                         GTK_WIDGET(RVAL2GOBJ(child))));
+}
+#endif
+
+void 
+Init_gtk_button_box()
+{
+    VALUE gBBox = G_DEF_CLASS(GTK_TYPE_BUTTON_BOX, "ButtonBox", mGtk);
+    rb_define_method(gBBox, "set_child_secondary", bbox_set_child_secondary, 2);
+#if GTK_CHECK_VERSION(2,4,0)
+    rb_define_method(gBBox, "get_child_secondary", bbox_get_child_secondary, 1);
+#endif
+    /* GtkButtonBoxStyle(General constants) */
+    G_DEF_CLASS(GTK_TYPE_BUTTON_BOX_STYLE, "Style", gBBox);
+    G_DEF_CONSTANTS(gBBox, GTK_TYPE_BUTTON_BOX_STYLE, "GTK_BUTTONBOX_");
+}

data/src/rbgtkbin.c

@@ -0,0 +1,31 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkbin.c -
+
+  $Author: mutoh $
+  $Date: 2003/02/01 16:46:23 $
+
+  Copyright (C) 2002,2003 Ruby-GNOME2 Project Team
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+static VALUE
+bin_child(self)
+    VALUE self;
+{
+    GtkWidget *child = gtk_bin_get_child(RVAL2GOBJ(self));
+    return child ? GOBJ2RVAL(child) : Qnil;
+}
+
+void 
+Init_gtk_bin()
+{
+    VALUE gBin = G_DEF_CLASS(GTK_TYPE_BIN, "Bin", mGtk);
+
+    rb_define_method(gBin, "child", bin_child, 0);
+}

data/src/rbgtkbindingset.c

@@ -0,0 +1,192 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkbindingset.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 14:27:09 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+/* 
+   NOTE:
+   - gtk_bindings_activate() is mapped to
+     Gtk::Object#bindings_activate.
+
+   - gtk_binding_set_by_class() is mapped to
+     Gtk::Object.binding_set
+ */
+
+#include "global.h"
+
+#define RVAL2MOD(mods) RVAL2GFLAGS(mods, GDK_TYPE_MODIFIER_TYPE)
+
+/*****************************************/
+static GtkBindingSet*
+gtk_bindingset_copy(const GtkBindingSet* bin)
+{
+    /* GtkBindingSet should not be copied */
+    return (GtkBindingSet*)bin;
+}
+
+static void
+gtk_bindingset_free(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 _SELF(s) (GtkBindingSet*)(RVAL2BOXED(s, GTK_TYPE_BINDING_SET))
+
+static VALUE
+binding_initialize(self, set_name)
+    VALUE self, set_name;
+{
+    G_INITIALIZE(self, gtk_binding_set_new(RVAL2CSTR(set_name)));
+    return Qnil;
+}
+
+static VALUE
+binding_s_find(self, set_name)
+    VALUE self, set_name;
+{
+    return BOXED2RVAL(gtk_binding_set_find(RVAL2CSTR(set_name)), 
+                      GTK_TYPE_BINDING_SET);
+}
+
+static VALUE
+binding_activate(self, keyval, modifiers, object)
+    VALUE self, keyval, modifiers, object;
+{
+    return CBOOL2RVAL(gtk_binding_set_activate(_SELF(self), NUM2UINT(keyval),
+                                               RVAL2MOD(modifiers),
+                                               GTK_OBJECT(RVAL2GOBJ(object))));
+}
+
+static VALUE
+binding_entry_clear(self, keyval, modifiers)
+    VALUE self, keyval, modifiers;
+{
+    gtk_binding_entry_clear(_SELF(self), NUM2UINT(keyval),
+                            RVAL2MOD(modifiers));
+    return self;
+}
+
+static VALUE
+binding_entry_add_signal(argc, argv, self)
+     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 = 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), RVAL2MOD(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
+binding_add_path(self, path_type, path_pattern, priority)
+    VALUE self, path_type, path_pattern, priority;
+{
+    gtk_binding_set_add_path(_SELF(self), RVAL2GENUM(path_type, GTK_TYPE_PATH_TYPE),
+                             RVAL2CSTR(path_pattern),
+                             RVAL2GENUM(priority, GTK_TYPE_PATH_PRIORITY_TYPE));
+    return self;
+}
+
+static VALUE
+binding_entry_remove(self, keyval, modifiers)
+    VALUE self, keyval, modifiers;
+{
+    gtk_binding_entry_remove(_SELF(self), NUM2UINT(keyval), RVAL2MOD(modifiers));
+    return self;
+}
+
+#if GTK_CHECK_VERSION(2,12,0)
+static VALUE
+binding_entry_skip(self, keyval, modifiers)
+    VALUE self, keyval, modifiers;
+{
+    gtk_binding_entry_skip(_SELF(self), NUM2UINT(keyval), RVAL2MOD(modifiers));
+    return self;
+}
+#endif
+
+/* Deprecated.
+guint       gtk_binding_parse_binding       (GScanner *scanner);
+*/
+
+void 
+Init_gtk_bindings()
+{
+    VALUE gBinding = G_DEF_CLASS(GTK_TYPE_BINDING_SET, "BindingSet", mGtk);
+    rb_define_method(gBinding, "initialize", binding_initialize, 1);
+    rb_define_singleton_method(gBinding, "find", binding_s_find, 1);
+    rb_define_method(gBinding, "activate", binding_activate, 3);
+    rb_define_method(gBinding, "entry_clear", binding_entry_clear, 2);
+    rb_define_method(gBinding, "add_signal", binding_entry_add_signal, -1);
+    rb_define_method(gBinding, "add_path", binding_add_path, 3);
+    rb_define_method(gBinding, "entry_add_signal", binding_entry_add_signal, -1);
+    rb_define_method(gBinding, "entry_remove", binding_entry_remove, 2);
+#if GTK_CHECK_VERSION(2,12,0)
+    rb_define_method(gBinding, "entry_skip", binding_entry_skip, 2);
+#endif
+}

data/src/rbgtkborder.c

@@ -0,0 +1,80 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkborder.c -
+
+  $Author: mutoh $
+  $Date: 2004/05/24 17:22:58 $
+
+  Copyright (C) 2002-2004 Ruby-GNOME2 Project Team
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+#define _SELF(self) ((GtkBorder*)RVAL2BOXED(self, GTK_TYPE_BORDER))
+
+#define ATTR_INT(name)\
+static VALUE \
+border_int_ ## name (self)\
+    VALUE self;\
+{\
+    return INT2NUM(_SELF(self)->name);\
+}\
+static VALUE \
+border_int_set_ ## name (self, val)\
+    VALUE self, val;\
+{\
+    _SELF(self)->name = NUM2INT(val); \
+    return self;\
+}
+
+ATTR_INT(left);
+ATTR_INT(right);
+ATTR_INT(top);
+ATTR_INT(bottom);
+
+#define DEFINE_ACCESSOR(gt, type, name)                                  \
+    rb_define_method(gt, G_STRINGIFY(name), border_ ## type ## _## name, 0);\
+    rb_define_method(gt, G_STRINGIFY(set_ ## name), border_ ## type ## _set_## name, 1);
+
+static VALUE
+border_initialize(self, left, right, top, bottom)
+    VALUE self, left, right, top, 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
+border_to_a(self)
+    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 gBorder = G_DEF_CLASS(GTK_TYPE_BORDER, "Border", mGtk);
+
+    rb_define_method(gBorder, "initialize", border_initialize, 4);
+    rb_define_method(gBorder, "to_a", border_to_a, 0);
+
+    DEFINE_ACCESSOR(gBorder, int, left);
+    DEFINE_ACCESSOR(gBorder, int, right);
+    DEFINE_ACCESSOR(gBorder, int, top);
+    DEFINE_ACCESSOR(gBorder, int, bottom);
+
+    G_DEF_SETTERS(gBorder);
+}

data/src/rbgtkbox.c

@@ -0,0 +1,142 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkbox.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:31 $
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+#define _SELF(self) (GTK_BOX(RVAL2GOBJ(self)))
+#define RVAL2WIDGET(w) (GTK_WIDGET(RVAL2GOBJ(w)))
+
+static void
+box_pack_start_or_end(argc, argv, self, start)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+    int start;
+{
+    VALUE arg0, arg1, arg2, arg3;
+    gint expand, fill, padding;
+    GtkWidget *widget, *child;
+
+    expand = fill = Qtrue; padding = 0;
+    switch (rb_scan_args(argc, argv, "13", &arg0, &arg1, &arg2, &arg3)) {
+      case 4:
+        padding = NUM2INT(arg3);
+      case 3:
+        fill = RVAL2CBOOL(arg2);
+      case 2:
+        expand = RVAL2CBOOL(arg1);
+      default:
+        child = GTK_WIDGET(RVAL2GOBJ(arg0));
+        G_CHILD_ADD(self, arg0);
+        break;
+    }
+    widget = GTK_WIDGET(RVAL2GOBJ(self));
+
+    if (start)
+        gtk_box_pack_start(_SELF(self), child, expand, fill, padding);
+    else
+        gtk_box_pack_end(_SELF(self), child, expand, fill, padding);
+}
+
+static VALUE
+box_pack_start(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+{
+    box_pack_start_or_end(argc, argv, self, 1);
+    return self;
+}
+
+static VALUE
+box_pack_end(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+{
+    box_pack_start_or_end(argc, argv, self, 0);
+    return self;
+}
+
+static VALUE
+box_pack_start_defaults(self, widget)
+    VALUE self, widget;
+{
+    gtk_box_pack_start_defaults(_SELF(self), RVAL2WIDGET(widget));
+    return self;
+}
+
+static VALUE
+box_pack_end_defaults(self, widget)
+    VALUE self, widget;
+{
+    gtk_box_pack_end_defaults(_SELF(self), RVAL2WIDGET(widget));
+    return self;
+}
+
+static VALUE
+box_reorder_child(self, child, pos)
+    VALUE self, child, pos;
+{
+    gtk_box_reorder_child(_SELF(self),
+                          RVAL2WIDGET(child), NUM2INT(pos));
+    return self;
+}
+
+static VALUE
+box_query_child_packing(self, child)
+	VALUE self, child;
+{
+    gboolean expand, fill;
+    guint padding;
+    GtkPackType pack_type;
+    VALUE ary;
+
+    gtk_box_query_child_packing(_SELF(self), 
+                                RVAL2WIDGET(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, GENUM2RVAL(pack_type, GTK_TYPE_PACK_TYPE));
+
+    return ary;
+}
+
+static VALUE
+box_set_child_packing(self, child, expand, fill, padding, pack_type)
+	VALUE self, child, expand, fill, padding, pack_type;
+{
+    gtk_box_set_child_packing(_SELF(self), 
+                              RVAL2WIDGET(child),
+                              RVAL2CBOOL(expand), RVAL2CBOOL(fill),
+                              NUM2UINT(padding), RVAL2GENUM(pack_type, GTK_TYPE_PACK_TYPE));
+    return self;
+}
+
+void 
+Init_gtk_box()
+{
+    VALUE gBox = G_DEF_CLASS(GTK_TYPE_BOX, "Box", mGtk);
+
+    rb_define_method(gBox, "pack_start", box_pack_start, -1);
+    rb_define_method(gBox, "pack_end", box_pack_end, -1);
+    rb_define_method(gBox, "pack_start_defaults", box_pack_start_defaults, 1);
+    rb_define_method(gBox, "pack_end_defaults", box_pack_end_defaults, 1);
+    rb_define_method(gBox, "reorder_child", box_reorder_child, 2);
+    rb_define_method(gBox, "query_child_packing", box_query_child_packing, 1);
+    rb_define_method(gBox, "set_child_packing", box_set_child_packing, 5);
+}