gtk3 2.2.4-x64-mingw32

data/ext/gtk3/rbgtk-css-provider.c

@@ -0,0 +1,110 @@
+/* -*- 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 cCssProvider
+#define _SELF(self) (RVAL2GTKCSSPROVIDER(self))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, gtk_css_provider_new());
+
+    return Qnil;
+}
+
+static VALUE
+rg_s_default(G_GNUC_UNUSED VALUE self)
+{
+    return GOBJ2RVAL(gtk_css_provider_get_default());
+}
+
+static VALUE
+rg_s_get_named(int argc, VALUE *argv, G_GNUC_UNUSED VALUE self)
+{
+    VALUE name, variant;
+    GtkCssProvider *provider;
+
+    rb_scan_args(argc, argv, "11", &name, &variant);
+    provider = gtk_css_provider_get_named(RVAL2CSTR(name),
+                                          RVAL2CSTR_ACCEPT_NIL(variant));
+
+    return GOBJ2RVAL(provider);
+}
+
+static VALUE
+rg_load(VALUE self, VALUE arg)
+{
+    gboolean result;
+    GError *error = NULL;
+
+    if (TYPE(arg) == T_HASH) {
+        VALUE data, file, path;
+        rbg_scan_options(arg,
+                         "data", &data,
+                         "file", &file,
+                         "path", &path,
+                         NULL);
+        if (!NIL_P(data)) {
+            StringValue(data);
+            result = gtk_css_provider_load_from_data(_SELF(self),
+                                                     RSTRING_PTR(data),
+                                                     RSTRING_LEN(data),
+                                                     &error);
+        } else if (!NIL_P(file)) {
+            result = gtk_css_provider_load_from_file(_SELF(self),
+                                                     RVAL2GFILE(file),
+                                                     &error);
+        } else if (!NIL_P(path)) {
+            result = gtk_css_provider_load_from_path(_SELF(self),
+                                                     RVAL2CSTR(path),
+                                                     &error);
+        } else {
+            rb_raise(rb_eArgError, "Invalid arguments.");
+        }
+    } else {
+        result = gtk_css_provider_load_from_file(_SELF(self),
+                                                 RVAL2GFILE(arg),
+                                                 &error);
+    }
+    if (error)
+        RAISE_GERROR(error);
+
+    return CBOOL2RVAL(result);
+}
+
+static VALUE
+rg_to_s(VALUE self)
+{
+    return CSTR2RVAL(gtk_css_provider_to_string(_SELF(self)));
+}
+
+void
+Init_gtk_cssprovider(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_CSS_PROVIDER, "CssProvider", mGtk);
+
+    RG_DEF_SMETHOD(default, 0);
+    RG_DEF_SMETHOD(get_named, -1);
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD(load, 1);
+    RG_DEF_METHOD(to_s, 0);
+}

data/ext/gtk3/rbgtk-dialog.c

@@ -0,0 +1,206 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011-2014  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 cDialog
+#define _SELF(self) (RVAL2GTKDIALOG(self))
+
+static VALUE
+rg_add_button(VALUE self, VALUE button_text, VALUE response_id)
+{
+    VALUE buffer;
+    return GOBJ2RVAL(gtk_dialog_add_button(_SELF(self),
+                                           SYMBOL_P(button_text) ? RVAL2GLIBID(button_text, buffer) : RVAL2CSTR(button_text),
+                                           RVAL2GTKRESPONSETYPE(response_id)));
+}
+
+static VALUE
+rg_add_buttons(int argc, VALUE *argv, VALUE self)
+{
+    VALUE button_ary;
+    rb_scan_args(argc, argv, "*", &button_ary);
+    rbgtk_add_buttons(self, button_ary, rg_add_button);
+    return self;
+}    
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE options, rb_title, rb_parent, rb_flags, rb_button_ary;
+    const gchar *title;
+    GtkWindow *parent;
+    GtkDialogFlags flags;
+    GtkWidget *dialog;
+
+    rb_scan_args(argc, argv, "01", &options);
+    rbg_scan_options(options,
+                     "title", &rb_title,
+                     "parent", &rb_parent,
+                     "flags", &rb_flags,
+                     "buttons", &rb_button_ary,
+                     NULL);
+    title = RVAL2CSTR_ACCEPT_NIL(rb_title);
+    parent = NIL_P(rb_parent) ? NULL : RVAL2GTKWINDOW(rb_parent);
+    flags = NIL_P(rb_flags) ? 0 : RVAL2GTKDIALOGFLAGS(rb_flags);
+
+    dialog = gtk_dialog_new_with_buttons(title, parent, flags, NULL, NULL);
+    RBGTK_INITIALIZE(self, dialog);
+    if (!NIL_P(rb_button_ary))
+        rb_funcall2(self, rb_intern("add_buttons"),
+                    RARRAY_LEN(rb_button_ary), RARRAY_PTR(rb_button_ary));
+
+    return Qnil;
+}
+
+static gboolean
+destroy_dialog(gpointer user_data)
+{
+    GtkWidget *dialog = user_data;
+    gtk_widget_destroy(dialog);
+    return G_SOURCE_REMOVE;
+}
+
+static VALUE
+rg_run(VALUE self)
+{
+    GtkDialog *dialog;
+    GSource *interrupt_source;
+    VALUE response;
+
+    dialog = _SELF(self);
+    interrupt_source = rbg_interrupt_source_new();
+    g_source_set_callback(interrupt_source, destroy_dialog, dialog, NULL);
+    g_source_attach(interrupt_source, NULL);
+    response = INT2NUM(gtk_dialog_run(dialog));
+    g_source_destroy(interrupt_source);
+    g_source_unref(interrupt_source);
+
+    rb_thread_check_ints();
+
+    if (rb_block_given_p()) {
+        return rb_yield(response);
+    } else {
+        return response;
+    }
+}
+
+static VALUE
+rg_response(VALUE self, VALUE response_id)
+{
+    gtk_dialog_response(_SELF(self), NUM2INT(response_id));
+    return self;
+}
+
+static VALUE
+rg_add_action_widget(VALUE self, VALUE child, VALUE response_id)
+{
+    gtk_dialog_add_action_widget(_SELF(self), RVAL2GTKWIDGET(child), 
+                                 NUM2INT(response_id));
+    return self;
+}
+
+static VALUE
+rg_set_default_response(VALUE self, VALUE response_id)
+{
+    gtk_dialog_set_default_response(_SELF(self), NUM2INT(response_id));
+    return self;
+}
+
+static VALUE
+rg_set_response_sensitive(VALUE self, VALUE response_id, VALUE setting)
+{
+    gtk_dialog_set_response_sensitive(_SELF(self), NUM2INT(response_id), RVAL2CBOOL(setting));
+    return self;
+}
+
+static VALUE
+rg_s_alternative_dialog_button_order_p(G_GNUC_UNUSED VALUE self, VALUE screen)
+{
+    gboolean ret = gtk_alternative_dialog_button_order(NIL_P(screen) ? NULL : 
+                                                       RVAL2GDKSCREEN(screen));
+    return CBOOL2RVAL(ret);
+}
+
+static VALUE
+rg_set_alternative_button_order(VALUE self, VALUE rbnew_order)
+{
+    GtkDialog *dialog = _SELF(self);
+    long n;
+    gint *new_order = RVAL2GINTS(rbnew_order, n);
+
+    gtk_dialog_set_alternative_button_order_from_array(dialog, n, new_order);
+
+    g_free(new_order);
+
+    return self;
+}
+
+static VALUE
+rg_action_area(VALUE self)
+{
+    return GOBJ2RVAL(gtk_dialog_get_action_area(_SELF(self)));
+}
+
+static VALUE
+rg_get_response(VALUE self, VALUE widget)
+{
+    return INT2NUM(gtk_dialog_get_response_for_widget(_SELF(self), RVAL2GTKWIDGET(widget)));
+}
+
+static VALUE
+rg_content_area(VALUE self)
+{
+    return GOBJ2RVAL(gtk_dialog_get_content_area(_SELF(self)));
+}
+
+static VALUE
+rg_get_widget_for_response(VALUE self, VALUE response_id)
+{
+    return GOBJ2RVAL(gtk_dialog_get_widget_for_response(_SELF(self), NUM2INT(response_id)));
+}
+
+void
+Init_gtk_dialog(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_DIALOG, "Dialog", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(run, 0);
+    RG_DEF_METHOD(response, 1);
+    RG_DEF_METHOD(add_button, 2);
+    RG_DEF_METHOD(add_buttons, -1);
+    RG_DEF_METHOD(add_action_widget, 2);
+    RG_DEF_METHOD(set_default_response, 1);
+    RG_DEF_SMETHOD_P(alternative_dialog_button_order, 1);
+    RG_DEF_METHOD(set_alternative_button_order, 1);
+    RG_DEF_METHOD(set_response_sensitive, 2);
+    RG_DEF_METHOD(action_area, 0);
+    RG_DEF_METHOD(get_response, 1);
+    RG_DEF_ALIAS("get_response_for_widget", "get_response");
+    RG_DEF_METHOD(content_area, 0);
+    RG_DEF_METHOD(get_widget_for_response, 1);
+
+    G_DEF_CLASS(GTK_TYPE_DIALOG_FLAGS, "Flags", RG_TARGET_NAMESPACE);
+}

data/ext/gtk3/rbgtk-drag-gdk-drag-context.c

@@ -0,0 +1,108 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011-2013  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 cDragContext
+#define _SELF(self) (RVAL2GDKDRAGCONTEXT(self))
+
+static VALUE
+rg_finish(VALUE self, VALUE success, VALUE del, VALUE time)
+{
+    gtk_drag_finish(_SELF(self),
+                    RVAL2CBOOL(success),
+                    RVAL2CBOOL(del),
+                    NUM2UINT(time));
+    return self;
+}
+
+static VALUE
+rg_source_widget(VALUE self)
+{
+    return GOBJ2RVAL(gtk_drag_get_source_widget(_SELF(self)));
+}
+
+static VALUE
+rg_set_icon(VALUE self, VALUE icon)
+{
+    if (TYPE(icon) == T_HASH) {
+        VALUE stock_id, icon_name, gicon, pixbuf, surface, widget, hot_x, hot_y, buffer;
+        rbg_scan_options(icon,
+                         "stock_id", &stock_id,
+                         "icon_name", &icon_name,
+                         "gicon", &gicon,
+                         "pixbuf", &pixbuf,
+                         "surface", &surface,
+                         "widget", &widget,
+                         "hot_x", &hot_x,
+                         "hot_y", &hot_y,
+                         NULL);
+
+        if (!NIL_P(stock_id))
+            gtk_drag_set_icon_stock(_SELF(self),
+                                    RVAL2GLIBID(stock_id, buffer),
+                                    NUM2INT(hot_x), NUM2INT(hot_y));
+        else if (!NIL_P(icon_name))
+            gtk_drag_set_icon_name(_SELF(self),
+                                   RVAL2CSTR(icon_name),
+                                   NUM2INT(hot_x), NUM2INT(hot_y));
+#if GTK_CHECK_VERSION(3, 2, 0)
+        else if (!NIL_P(gicon))
+            gtk_drag_set_icon_gicon(_SELF(self),
+                                    RVAL2GICON(gicon),
+                                    NUM2INT(hot_x), NUM2INT(hot_y));
+#endif
+        else if (!NIL_P(pixbuf))
+            gtk_drag_set_icon_pixbuf(_SELF(self),
+                                     RVAL2GDKPIXBUF(pixbuf),
+                                     NUM2INT(hot_x), NUM2INT(hot_y));
+        else if (!NIL_P(surface))
+            gtk_drag_set_icon_surface(_SELF(self),
+                                      RVAL2CRSURFACE(surface));
+        else if (!NIL_P(widget))
+            gtk_drag_set_icon_widget(_SELF(self),
+                                     RVAL2GTKWIDGET(widget),
+                                     NUM2INT(hot_x), NUM2INT(hot_y));
+        else
+            rb_raise(rb_eArgError, "Invalid arguments.");
+    } else {
+        gtk_drag_set_icon_surface(_SELF(self), RVAL2CRSURFACE(icon));
+    }
+
+    return self;
+}
+
+static VALUE
+rg_set_icon_default(VALUE self)
+{
+    gtk_drag_set_icon_default(_SELF(self));
+    return self;
+}
+
+void
+Init_gtk_drag_gdk_drag_context(void)
+{
+    VALUE RG_TARGET_NAMESPACE = GTYPE2CLASS(GDK_TYPE_DRAG_CONTEXT);
+
+    RG_DEF_METHOD(finish, 3);
+    RG_DEF_METHOD(source_widget, 0);
+    RG_DEF_METHOD(set_icon, 1);
+    RG_DEF_METHOD(set_icon_default, 0);
+}

data/ext/gtk3/rbgtk-drag.c

@@ -0,0 +1,93 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-2006 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 mDrag
+
+struct rbgtk_rval2gtktargetentries_args {
+    VALUE ary;
+    long n;
+    GtkTargetEntry *result;
+};
+
+static VALUE
+rbgtk_rval2gtktargetentries_body(VALUE value)
+{
+    long i;
+    struct rbgtk_rval2gtktargetentries_args *args = (struct rbgtk_rval2gtktargetentries_args *)value;
+
+    for (i = 0; i < args->n; i++) {
+        VALUE entry = rb_ary_to_ary(RARRAY_PTR(args->ary)[i]);
+        VALUE flags = RARRAY_PTR(entry)[1];
+        VALUE info = RARRAY_PTR(entry)[2];
+
+        args->result[i].target = (gchar *)RVAL2CSTR_ACCEPT_NIL(RARRAY_PTR(entry)[0]);
+        args->result[i].flags = NIL_P(flags) ? 0 : RVAL2GTKTARGETFLAGS(flags);
+        args->result[i].info = NIL_P(info) ? 0 : NUM2INT(info);
+    }
+
+    return Qnil;
+}
+
+static G_GNUC_NORETURN VALUE
+rbgtk_rval2gtktargetentries_rescue(VALUE value)
+{
+    g_free(((struct rbgtk_rval2gtktargetentries_args *)value)->result);
+
+    rb_exc_raise(rb_errinfo());
+}
+
+GtkTargetEntry *
+rbgtk_rval2gtktargetentries(VALUE value, long *n)
+{
+    struct rbgtk_rval2gtktargetentries_args args;
+
+    args.ary = rb_ary_to_ary(value);
+    args.n = RARRAY_LEN(args.ary);
+    args.result = g_new(GtkTargetEntry, args.n + 1);
+
+    rb_rescue(rbgtk_rval2gtktargetentries_body, (VALUE)&args,
+              rbgtk_rval2gtktargetentries_rescue, (VALUE)&args);
+
+    *n = args.n;
+
+    return args.result;
+}
+
+GtkTargetEntry *
+rbgtk_rval2gtktargetentries_accept_nil(VALUE value, long *n)
+{
+    if (!NIL_P(value))
+        return rbgtk_rval2gtktargetentries(value, n);
+
+    *n = 0;
+
+    return NULL;
+}
+
+void
+Init_gtk_drag(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = rb_define_module_under(mGtk, "Drag");
+    G_DEF_CLASS(GTK_TYPE_DEST_DEFAULTS, "DestDefaults", RG_TARGET_NAMESPACE);
+    G_DEF_CLASS(GTK_TYPE_TARGET_FLAGS, "TargetFlags", RG_TARGET_NAMESPACE);
+}