gtk3 2.2.4-x64-mingw32

data/ext/gtk3/rbgtk-buildable.c

@@ -0,0 +1,96 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2008  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 cBuildable
+#define _SELF(self) (RVAL2GTKBUILDABLE(self))
+
+static VALUE
+rg_builder_name(VALUE self)
+{
+    return CSTR2RVAL(gtk_buildable_get_name(_SELF(self)));
+}
+
+static VALUE
+rg_set_builder_name(VALUE self, VALUE name)
+{
+    gtk_buildable_set_name(_SELF(self), RVAL2CSTR(name));
+    return self;
+}
+
+static VALUE
+rg_add_child(int argc, VALUE *argv, VALUE self)
+{
+    VALUE builder, child, type;
+
+    rb_scan_args(argc, argv, "21", &builder, &child, &type);
+    gtk_buildable_add_child(_SELF(self), RVAL2GTKBUILDER(builder), RVAL2GOBJ(child),
+                            RVAL2CSTR_ACCEPT_NIL(type));
+    return self;
+}
+
+static VALUE
+rg_set_buildable_property(VALUE self, VALUE rb_builder,
+                                 VALUE rb_name, VALUE rb_value)
+{
+    GtkBuilder *builder;
+    const gchar *name;
+    GValue value = G_VALUE_INIT;
+
+    builder = RVAL2GTKBUILDER(rb_builder);
+    name = RVAL2CSTR(rb_name);
+    rbgobj_initialize_gvalue(&value, rb_value);
+    gtk_buildable_set_buildable_property(_SELF(self), builder, name, &value);
+
+    return self;
+}
+
+static VALUE
+rg_construct_child(VALUE self, VALUE builder, VALUE name)
+{
+    return GOBJ2RVAL(gtk_buildable_construct_child(_SELF(self),
+                                                   RVAL2GTKBUILDER(builder),
+                                                   RVAL2CSTR(name)));
+}
+
+static VALUE
+rg_get_internal_child(VALUE self, VALUE builder, VALUE child_name)
+{
+    return GOBJ2RVAL(gtk_buildable_get_internal_child(_SELF(self),
+                                                      RVAL2GTKBUILDER(builder),
+                                                      RVAL2CSTR(child_name)));
+}
+
+void
+Init_gtk_buildable(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE;
+
+    RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BUILDABLE, "Buildable", mGtk);
+
+    RG_DEF_METHOD(builder_name, 0);
+    RG_DEF_METHOD(set_builder_name, 1);
+    RG_DEF_METHOD(add_child, -1);
+    RG_DEF_METHOD(set_buildable_property, 3);
+    RG_DEF_METHOD(construct_child, 2);
+    RG_DEF_METHOD(get_internal_child, 2);
+}

data/ext/gtk3/rbgtk-builder.c

@@ -0,0 +1,166 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2008  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"
+#include <glib-enum-types.h> /* From Ruby/GLib2 */
+
+#define RG_TARGET_NAMESPACE cBuilder
+#define _SELF(self) (RVAL2GTKBUILDER(self))
+
+static ID id___connect_signals__;
+
+static void
+builder_mark(gpointer object)
+{
+    GtkBuilder *builder = object;
+    GSList *objects;
+
+    objects = gtk_builder_get_objects(builder);
+    g_slist_foreach(objects, (GFunc)rbgobj_gc_mark_instance, NULL);
+    g_slist_free(objects);
+}
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    GtkBuilder *builder;
+
+    builder = gtk_builder_new();
+    G_INITIALIZE(self, builder);
+
+    return Qnil;
+}
+
+static VALUE
+rg_add_from_file(VALUE self, VALUE filename)
+{
+    GError *error = NULL;
+
+    if (gtk_builder_add_from_file(_SELF(self),
+                                  RVAL2CSTR(filename),
+                                  &error) == 0)
+        RAISE_GERROR(error);
+
+    return self;
+}
+
+static VALUE
+rg_add_from_string(VALUE self, VALUE string)
+{
+    GError *error = NULL;
+
+    StringValue(string);
+    if (gtk_builder_add_from_string(_SELF(self),
+                                    RSTRING_PTR(string),
+                                    RSTRING_LEN(string),
+                                    &error) == 0)
+        RAISE_GERROR(error);
+
+    return self;
+}
+
+static VALUE
+rg_add(VALUE self, VALUE filename_or_xml)
+{
+    const char xml_detect_re_str[] = "(?:\\A<|[\\r\\n])";
+    VALUE xml_detect_re;
+
+    xml_detect_re = rb_reg_new(xml_detect_re_str, strlen(xml_detect_re_str), 0);
+    if (NIL_P(rb_reg_match(xml_detect_re, filename_or_xml)))
+        return rg_add_from_file(self, filename_or_xml);
+    else
+        return rg_add_from_string(self, filename_or_xml);
+}
+
+static VALUE
+rg_get_object(VALUE self, VALUE name)
+{
+    return GOBJ2RVAL(gtk_builder_get_object(_SELF(self), RVAL2CSTR(name)));
+}
+
+static VALUE
+rg_objects(VALUE self)
+{
+    return GOBJGSLIST2RVAL_FREE(gtk_builder_get_objects(_SELF(self)),
+                                g_slist_free, NULL);
+}
+
+static void
+connect_signals(GtkBuilder *builder, GObject *object, const gchar *signal_name,
+                const gchar *handler_name, GObject *connect_object,
+                GConnectFlags flags, gpointer user_data)
+{
+    VALUE signal_connector = (VALUE)user_data;
+
+    rb_funcall(GOBJ2RVAL(builder), id___connect_signals__, 6,
+               signal_connector, GOBJ2RVAL(object), CSTR2RVAL(signal_name),
+               CSTR2RVAL(handler_name), GOBJ2RVAL(connect_object),
+               GCONNECTFLAGS2RVAL(flags));
+}
+
+static VALUE
+rg_connect_signals(VALUE self)
+{
+    VALUE signal_connector;
+
+    signal_connector = rb_block_proc();
+    G_CHILD_ADD(self, signal_connector);
+    gtk_builder_connect_signals_full(_SELF(self), connect_signals,
+                                     (gpointer)signal_connector);
+    G_CHILD_REMOVE(self, signal_connector);
+
+    return self;
+}
+
+static VALUE
+rg_get_type(VALUE self, VALUE name)
+{
+    return GTYPE2CLASS(gtk_builder_get_type_from_name(_SELF(self),
+                                                      RVAL2CSTR(name)));
+}
+
+void
+Init_gtk_builder(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE;
+
+    id___connect_signals__ = rb_intern("__connect_signals__");
+
+    RG_TARGET_NAMESPACE = G_DEF_CLASS_WITH_GC_FUNC(GTK_TYPE_BUILDER, "Builder", mGtk,
+                                                    builder_mark, NULL);
+
+    G_DEF_CLASS(GTK_TYPE_BUILDER_ERROR, "BuilderError", mGtk);
+
+    RG_DEF_METHOD(initialize, 0);
+
+    RG_DEF_METHOD(add_from_file, 1);
+    RG_DEF_METHOD(add_from_string, 1);
+    RG_DEF_METHOD(add, 1);
+    RG_DEF_ALIAS("<<", "add");
+
+    RG_DEF_METHOD(get_object, 1);
+    RG_DEF_ALIAS("[]", "get_object");
+    RG_DEF_METHOD(objects, 0);
+
+    RG_DEF_METHOD(connect_signals, 0);
+
+    RG_DEF_METHOD(get_type, 1);
+}

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

@@ -0,0 +1,87 @@
+/* -*- 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 cButtonBox
+#define _SELF(self) (RVAL2GTKBUTTONBOX(self))
+
+static VALUE
+rg_initialize(VALUE self, VALUE orientation)
+{
+    RBGTK_INITIALIZE(self, gtk_button_box_new(RVAL2GTKORIENTATION(orientation)));
+
+    return Qnil;
+}
+
+static VALUE
+rg_set_child_secondary(VALUE self, VALUE child, VALUE is_secondary)
+{
+    gtk_button_box_set_child_secondary(_SELF(self), 
+                                       RVAL2GTKWIDGET(child),
+                                       RVAL2CBOOL(is_secondary));
+    return self;
+}
+
+static VALUE
+rg_get_child_secondary(VALUE self, VALUE child)
+{
+    return CBOOL2RVAL(gtk_button_box_get_child_secondary(_SELF(self), 
+                                                         RVAL2GTKWIDGET(child)));
+}
+
+#if GTK_CHECK_VERSION(3, 2, 0)
+static VALUE
+rg_get_child_non_homogeneous(VALUE self, VALUE child)
+{
+    return CBOOL2RVAL(gtk_button_box_get_child_non_homogeneous(_SELF(self),
+                                                               RVAL2GTKWIDGET(child)));
+}
+
+static VALUE
+rg_set_child_non_homogeneous(VALUE self, VALUE child, VALUE non_homogeneous)
+{
+    gtk_button_box_set_child_non_homogeneous(_SELF(self),
+                                             RVAL2GTKWIDGET(child),
+                                             RVAL2CBOOL(non_homogeneous));
+
+    return self;
+}
+#endif
+
+void
+Init_gtk_button_box(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BUTTON_BOX, "ButtonBox", mGtk);
+
+    RG_DEF_METHOD(initialize, 1);
+    RG_DEF_METHOD(set_child_secondary, 2);
+    RG_DEF_METHOD(get_child_secondary, 1);
+#if GTK_CHECK_VERSION(3, 2, 0)
+    RG_DEF_METHOD(get_child_non_homogeneous, 1);
+    RG_DEF_METHOD(set_child_non_homogeneous, 2);
+#endif
+
+    G_DEF_CLASS(GTK_TYPE_BUTTON_BOX_STYLE, "Style", RG_TARGET_NAMESPACE);
+}

data/ext/gtk3/rbgtk-button.c

@@ -0,0 +1,93 @@
+/* -*- 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 cButton
+#define _SELF(self) (RVAL2GTKBUTTON(self))
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE button;
+    GtkWidget *widget = NULL;
+
+    rb_scan_args(argc, argv, "01", &button);
+    if (NIL_P(button)) {
+        widget = gtk_button_new();
+    } else if (TYPE(button) == T_HASH) {
+        VALUE label, mnemonic, stock_id, buffer;
+        rbg_scan_options(button,
+                         "label", &label,
+                         "mnemonic", &mnemonic,
+                         "stock_id", &stock_id,
+                         NULL);
+
+        if (!NIL_P(label))
+            widget = gtk_button_new_with_label(RVAL2CSTR(label));
+        else if (!NIL_P(mnemonic))
+            widget = gtk_button_new_with_mnemonic(RVAL2CSTR(mnemonic));
+        else if (!NIL_P(stock_id))
+            widget = gtk_button_new_from_stock(RVAL2GLIBID(stock_id, buffer));
+    }
+    if (!widget)
+        rb_raise(rb_eArgError, "Invalid arguments.");
+
+    RBGTK_INITIALIZE(self, widget); 
+
+    return Qnil;
+}
+
+static VALUE
+rg_set_alignment(VALUE self, VALUE xalign, VALUE yalign)
+{
+    gtk_button_set_alignment(_SELF(self), NUM2DBL(xalign), NUM2DBL(yalign));
+    return self;
+}
+
+static VALUE
+rg_alignment(VALUE self)
+{
+    gfloat xalign, yalign;
+    gtk_button_get_alignment(_SELF(self), &xalign, &yalign);
+
+    return rb_assoc_new(rb_float_new(xalign), rb_float_new(yalign));
+}
+
+static VALUE
+rg_event_window(VALUE self)
+{
+    return GOBJ2RVAL(gtk_button_get_event_window(_SELF(self)));
+}
+
+void
+Init_gtk_button(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_BUTTON, "Button", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(set_alignment, 2);
+    RG_DEF_METHOD(alignment, 0);
+    RG_DEF_METHOD(event_window, 0);
+}

data/ext/gtk3/rbgtk-calendar.c

@@ -0,0 +1,118 @@
+/* -*- 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 cCalendar
+#define _SELF(self) (RVAL2GTKCALENDAR(self))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    RBGTK_INITIALIZE(self, gtk_calendar_new());
+    return Qnil;
+}
+
+static VALUE
+rg_select_month(VALUE self, VALUE month, VALUE year)
+{
+    gtk_calendar_select_month(_SELF(self),
+                             NUM2INT(month)-1,
+                             NUM2INT(year));
+    return self;
+}
+
+static VALUE
+rg_select_day(VALUE self, VALUE day)
+{
+    gtk_calendar_select_day(_SELF(self), NUM2INT(day));
+    return self;
+}
+
+static VALUE
+rg_mark_day(VALUE self, VALUE day)
+{
+    gtk_calendar_mark_day(_SELF(self), NUM2INT(day));
+    return self;
+}
+
+static VALUE
+rg_unmark_day(VALUE self, VALUE day)
+{
+    gtk_calendar_unmark_day(_SELF(self), NUM2INT(day));
+    return self;
+}
+
+static VALUE
+rg_clear_marks(VALUE self)
+{
+    gtk_calendar_clear_marks(_SELF(self));
+    return self;
+}
+
+static VALUE
+rg_date(VALUE self)
+{
+    VALUE ret;
+    guint year, month, day;
+
+    gtk_calendar_get_date(_SELF(self), &year, &month, &day);
+    ret = rb_ary_new();
+    rb_ary_push(ret, INT2FIX(year));
+    rb_ary_push(ret, INT2FIX(month+1));
+    rb_ary_push(ret, INT2FIX(day));
+    return ret;
+}
+
+static VALUE
+rg_display_options(VALUE self)
+{
+    return GTKCALENDARDISPLAYOPTIONS2RVAL(gtk_calendar_get_display_options(_SELF(self)));
+}
+
+static VALUE
+rg_set_display_options(VALUE self, VALUE flags)
+{
+    gtk_calendar_set_display_options(_SELF(self), 
+                                     RVAL2GTKCALENDARDISPLAYOPTIONS(flags));
+    return self;
+}
+
+void
+Init_gtk_calendar(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_CALENDAR, "Calendar", mGtk);
+
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD(select_month, 2);
+    RG_DEF_METHOD(select_day, 1);
+    RG_DEF_METHOD(mark_day, 1);
+    RG_DEF_METHOD(unmark_day, 1);
+    RG_DEF_METHOD(clear_marks, 0);
+    RG_DEF_METHOD(date, 0);
+    RG_DEF_METHOD(display_options, 0);
+    RG_DEF_METHOD(set_display_options, 1);
+
+    G_DEF_CLASS(GTK_TYPE_CALENDAR_DISPLAY_OPTIONS, "DisplayOptions", RG_TARGET_NAMESPACE);
+}