gtk3 0.0.1 → 1.2.0

data/ext/gtk3/rbgtkcssprovider.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/rbgtkdialog.c

@@ -0,0 +1,186 @@
+/* -*- 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 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 VALUE
+rg_run(VALUE self)
+{
+    if (rb_block_given_p()){
+        VALUE ret = INT2NUM(gtk_dialog_run(_SELF(self)));
+        rb_yield(ret);
+        return ret;
+    } else {
+        return INT2NUM(gtk_dialog_run(_SELF(self)));
+    }
+}
+
+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/rbgtkdrag.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);
+}

data/ext/gtk3/rbgtkdrawingarea.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 cDrawingArea
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    RBGTK_INITIALIZE(self, gtk_drawing_area_new());
+    return Qnil;
+}
+
+void 
+Init_gtk_drawing_area(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_DRAWING_AREA, "DrawingArea", mGtk);
+
+    RG_DEF_METHOD(initialize, 0);
+}

data/ext/gtk3/rbgtkeditable.c

@@ -0,0 +1,149 @@
+/* -*- 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 mEditable
+
+static VALUE
+rg_select_region(VALUE self, VALUE start, VALUE end)
+{
+    gtk_editable_select_region(RVAL2GTKEDITABLE(self),
+                               NUM2INT(start), NUM2INT(end));
+    return self;
+}
+
+static VALUE
+rg_selection_bounds(VALUE self)
+{
+    gint start, end;
+    gboolean ret;
+    ret = gtk_editable_get_selection_bounds(RVAL2GTKEDITABLE(self),
+                                            &start, &end);
+    return ret ? rb_ary_new3(2, INT2NUM(start), INT2NUM(end)) : Qnil;
+}
+
+static VALUE
+rg_insert_text(VALUE self, VALUE new_text, VALUE pos)
+{
+    gint p = NUM2INT(pos);
+
+    StringValue(new_text);
+    gtk_editable_insert_text(RVAL2GTKEDITABLE(self),
+                             RSTRING_PTR(new_text),
+                             RSTRING_LEN(new_text),
+                             &p);
+    return INT2NUM(p);
+}
+
+static VALUE
+rg_delete_text(VALUE self, VALUE start, VALUE end)
+{
+    gtk_editable_delete_text(RVAL2GTKEDITABLE(self),
+                             NUM2INT(start), NUM2INT(end));
+    return self;
+}
+
+static VALUE
+rg_get_chars(VALUE self, VALUE start, VALUE end)
+{
+    return CSTR2RVAL_FREE(
+            gtk_editable_get_chars(RVAL2GTKEDITABLE(self),   /* check s */
+                                   NUM2INT(start), NUM2INT(end)));  /* check start,end */
+}
+
+static VALUE
+rg_delete_selection(VALUE self)
+{
+    gtk_editable_delete_selection(RVAL2GTKEDITABLE(self));
+    return self;
+}
+
+static VALUE
+rg_position(VALUE self)
+{
+    return INT2NUM(gtk_editable_get_position(RVAL2GTKEDITABLE(self)));
+}
+
+static VALUE
+rg_set_position(VALUE self, VALUE position)
+{
+    gtk_editable_set_position(RVAL2GTKEDITABLE(self),
+                              NUM2INT(position));
+    return self;
+}
+
+static VALUE
+rg_set_editable(VALUE self, VALUE editable)
+{
+    gtk_editable_set_editable(RVAL2GTKEDITABLE(self), RVAL2CBOOL(editable));
+    return self;
+}
+
+static VALUE
+rg_editable_p(VALUE self)
+{
+    return CBOOL2RVAL(gtk_editable_get_editable(RVAL2GTKEDITABLE(self)));
+}
+
+static VALUE
+rg_cut_clipboard(VALUE self)
+{
+    gtk_editable_cut_clipboard(RVAL2GTKEDITABLE(self));
+    return self;
+}
+
+static VALUE
+rg_copy_clipboard(VALUE self)
+{
+    gtk_editable_copy_clipboard(RVAL2GTKEDITABLE(self));
+    return self;
+}
+
+static VALUE
+rg_paste_clipboard(VALUE self)
+{
+    gtk_editable_paste_clipboard(RVAL2GTKEDITABLE(self));
+    return self;
+}
+
+void 
+Init_gtk_editable(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(GTK_TYPE_EDITABLE, "Editable", mGtk);
+
+    RG_DEF_METHOD(select_region, 2);
+    RG_DEF_METHOD(selection_bounds, 0);
+    RG_DEF_METHOD(insert_text, 2);
+    RG_DEF_METHOD(delete_text, 2);
+    RG_DEF_METHOD(get_chars, 2);
+    RG_DEF_METHOD(delete_selection, 0);
+    RG_DEF_METHOD(position, 0);
+    RG_DEF_METHOD(set_position, 1);
+    RG_DEF_METHOD(set_editable, 1);
+    RG_DEF_METHOD_P(editable, 0);
+    RG_DEF_METHOD(copy_clipboard, 0);
+    RG_DEF_METHOD(cut_clipboard, 0);
+    RG_DEF_METHOD(paste_clipboard, 0);
+}