gtk3 2.2.4-x64-mingw32

data/ext/gtk3/rbgtk-theming-engine.c

@@ -0,0 +1,257 @@
+/* -*- 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 cThemingEngine
+#define _SELF(self) (RVAL2GTKTHEMINGENGINE(self))
+
+static VALUE
+rg_s_load(G_GNUC_UNUSED VALUE self, VALUE name)
+{
+    return GOBJ2RVAL(gtk_theming_engine_load(RVAL2CSTR(name)));
+}
+
+static VALUE
+rg_get_background_color(VALUE self, VALUE state)
+{
+    GdkRGBA color;
+
+    gtk_theming_engine_get_background_color(_SELF(self),
+                                            RVAL2GTKSTATEFLAGS(state),
+                                            &color);
+
+    return GDKRGBA2RVAL(&color);
+}
+
+static VALUE
+rg_get_border(VALUE self, VALUE state)
+{
+    GtkBorder border;
+
+    gtk_theming_engine_get_border(_SELF(self),
+                                  RVAL2GTKSTATEFLAGS(state),
+                                  &border);
+
+    return GTKBORDER2RVAL(&border);
+}
+
+static VALUE
+rg_get_border_color(VALUE self, VALUE state)
+{
+    GdkRGBA color;
+
+    gtk_theming_engine_get_border_color(_SELF(self),
+                                        RVAL2GTKSTATEFLAGS(state),
+                                        &color);
+
+    return GDKRGBA2RVAL(&color);
+}
+
+static VALUE
+rg_get_color(VALUE self, VALUE state)
+{
+    GdkRGBA color;
+
+    gtk_theming_engine_get_color(_SELF(self),
+                                 RVAL2GTKSTATEFLAGS(state),
+                                 &color);
+
+    return GDKRGBA2RVAL(&color);
+}
+
+static VALUE
+rg_direction(VALUE self)
+{
+    GtkTextDirection direction;
+
+    direction = gtk_theming_engine_get_direction(_SELF(self));
+
+    return GTKTEXTDIRECTION2RVAL(direction);
+}
+
+static VALUE
+rg_get_font(VALUE self, VALUE state)
+{
+    PangoFontDescription *desc;
+
+    desc = gtk_theming_engine_get_font(_SELF(self),
+                                       RVAL2GTKSTATEFLAGS(state));
+
+    return PANGOFONTDESCRIPTION2RVAL(desc);
+}
+
+static VALUE
+rg_junction_sides(VALUE self)
+{
+    GtkJunctionSides sides;
+
+    sides = gtk_theming_engine_get_junction_sides(_SELF(self));
+
+    return GTKJUNCTIONSIDES2RVAL(sides);
+}
+
+static VALUE
+rg_get_margin(VALUE self, VALUE state)
+{
+    GtkBorder margin;
+
+    gtk_theming_engine_get_margin(_SELF(self),
+                                  RVAL2GTKSTATEFLAGS(state),
+                                  &margin);
+
+    return GTKBORDER2RVAL(&margin);
+}
+
+static VALUE
+rg_get_padding(VALUE self, VALUE state)
+{
+    GtkBorder padding;
+
+    gtk_theming_engine_get_padding(_SELF(self),
+                                   RVAL2GTKSTATEFLAGS(state),
+                                   &padding);
+
+    return GTKBORDER2RVAL(&padding);
+}
+
+static VALUE
+rg_path(VALUE self)
+{
+    return GTKWIDGETPATH2RVAL(gtk_theming_engine_get_path(_SELF(self)));
+}
+
+static VALUE
+rg_get_property(VALUE self, VALUE property, VALUE state)
+{
+    GValue value = G_VALUE_INIT;
+    VALUE ret = Qnil;
+
+    gtk_theming_engine_get_property(_SELF(self),
+                                    RVAL2CSTR(property),
+                                    RVAL2GTKSTATEFLAGS(state),
+                                    &value);
+    if (G_VALUE_TYPE(&value) != G_TYPE_INVALID){
+        ret = GVAL2RVAL(&value);
+        g_value_unset(&value);
+    } 
+
+    return ret;
+}
+
+static VALUE
+rg_screen(VALUE self)
+{
+    return GOBJ2RVAL(gtk_theming_engine_get_screen(_SELF(self)));
+}
+
+static VALUE
+rg_state(VALUE self)
+{
+    GtkStateFlags state;
+
+    state = gtk_theming_engine_get_state(_SELF(self));
+
+    return GTKSTATEFLAGS2RVAL(state);
+}
+
+static VALUE
+rg_get_style_property(VALUE self, VALUE property_name)
+{
+    GValue value = G_VALUE_INIT;
+    VALUE ret = Qnil;
+
+    gtk_theming_engine_get_style_property(_SELF(self),
+                                          RVAL2CSTR(property_name),
+                                          &value);
+    if (G_VALUE_TYPE(&value) != G_TYPE_INVALID){
+        ret = GVAL2RVAL(&value);
+        g_value_unset(&value);
+    } 
+
+    return ret;
+}
+
+static VALUE
+rg_has_class_p(VALUE self, VALUE style_class)
+{
+    return CBOOL2RVAL(gtk_theming_engine_has_class(_SELF(self), RVAL2CSTR(style_class)));
+}
+
+static VALUE
+rg_has_region(VALUE self, VALUE style_region)
+{
+    GtkRegionFlags flags;
+    gboolean result;
+
+    result = gtk_theming_engine_has_region(_SELF(self), RVAL2CSTR(style_region), &flags);
+
+    return result ? GTKREGIONFLAGS2RVAL(flags) : Qnil;
+}
+
+static VALUE
+rg_lookup_color(VALUE self, VALUE color_name)
+{
+    GdkRGBA color;
+    gboolean result;
+
+    result = gtk_theming_engine_lookup_color(_SELF(self), RVAL2CSTR(color_name), &color);
+
+    return result ? GDKRGBA2RVAL(&color) : Qnil;
+}
+
+static VALUE
+rg_state_is_running(VALUE self, VALUE state)
+{
+    gdouble progress;
+    gboolean result;
+
+    result = gtk_theming_engine_state_is_running(_SELF(self),
+                                                 RVAL2GTKSTATEFLAGS(state),
+                                                 &progress);
+
+    return result ? DBL2NUM(progress) : Qnil;
+}
+
+void
+Init_gtk_themingengine(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_THEMING_ENGINE, "ThemingEngine", mGtk);
+
+    RG_DEF_SMETHOD(load, 1);
+    RG_DEF_METHOD(direction, 0);
+    RG_DEF_METHOD(get_background_color, 1);
+    RG_DEF_METHOD(get_border, 1);
+    RG_DEF_METHOD(get_border_color, 1);
+    RG_DEF_METHOD(get_color, 1);
+    RG_DEF_METHOD(get_font, 1);
+    RG_DEF_METHOD(get_margin, 1);
+    RG_DEF_METHOD(get_padding, 1);
+    RG_DEF_METHOD(get_property, 2);
+    RG_DEF_METHOD(get_style_property, 1);
+    RG_DEF_METHOD_P(has_class, 1);
+    RG_DEF_METHOD(has_region, 1);
+    RG_DEF_METHOD(junction_sides, 0);
+    RG_DEF_METHOD(lookup_color, 1);
+    RG_DEF_METHOD(path, 0);
+    RG_DEF_METHOD(screen, 0);
+    RG_DEF_METHOD(state, 0);
+    RG_DEF_METHOD(state_is_running, 1);
+}

data/ext/gtk3/rbgtk-toggle-action.c

@@ -0,0 +1,61 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2004,2005 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 cToggleAction
+#define _SELF(self) (RVAL2GTKTOGGLEACTION(self))
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE name, options, label, tooltip, stock_id, buffer;
+
+    rb_scan_args(argc, argv, "11", &name, &options);
+    rbg_scan_options(options,
+                     "label", &label,
+                     "tooltip", &tooltip,
+                     "stock_id", &stock_id,
+                     NULL);
+
+    G_INITIALIZE(self, gtk_toggle_action_new(RVAL2CSTR(name),
+                                             RVAL2CSTR_ACCEPT_NIL(label),
+                                             RVAL2CSTR_ACCEPT_NIL(tooltip),
+                                             RVAL2GLIBID_ACCEPT_NIL(stock_id, buffer)));
+
+    return Qnil;
+}
+
+static VALUE
+rg_toggled(VALUE self)
+{
+    gtk_toggle_action_toggled(_SELF(self));
+    return self;
+}
+
+void
+Init_gtk_toggle_action(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_TOGGLE_ACTION, "ToggleAction", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(toggled, 0);
+}

data/ext/gtk3/rbgtk-toggle-button.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 cToggleButton
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE label, use_underline;
+    GtkWidget *widget;
+
+    if (rb_scan_args(argc, argv, "02", &label, &use_underline) > 0) {
+        if (TYPE(label) == T_STRING){
+            if (NIL_P(use_underline) || RVAL2CBOOL(use_underline)){
+                widget = gtk_toggle_button_new_with_mnemonic(RVAL2CSTR(label));
+            } else {
+                widget = gtk_toggle_button_new_with_label(RVAL2CSTR(label));
+            }
+        } else if (TYPE(label) == T_SYMBOL){
+            widget = gtk_toggle_button_new_with_label(rb_id2name(SYM2ID(label)));
+            gtk_button_set_use_stock(GTK_BUTTON(widget), TRUE);
+        } else {
+            rb_raise(rb_eArgError, "invalid argument %s (expect Symbol(Gtk::Stock constants) or String)", 
+                     rb_class2name(CLASS_OF(label)));
+        }
+    } else {
+        widget = gtk_toggle_button_new();
+    }
+
+    RBGTK_INITIALIZE(self, widget);
+    return Qnil;
+}
+
+static VALUE
+rg_set_mode(VALUE self, VALUE mode)
+{
+    gtk_toggle_button_set_mode(RVAL2GTKTOGGLEBUTTON(self),
+                               RVAL2CBOOL(mode));
+    return self;
+}
+
+static VALUE
+rg_mode_p(VALUE self)
+{
+    return CBOOL2RVAL(gtk_toggle_button_get_mode(RVAL2GTKTOGGLEBUTTON(self)));
+}
+
+static VALUE
+rg_toggled(VALUE self)
+{
+    gtk_toggle_button_toggled(RVAL2GTKTOGGLEBUTTON(self));
+    return self;
+}
+
+void
+Init_gtk_toggle_button(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_TOGGLE_BUTTON, "ToggleButton", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+    RG_DEF_METHOD(set_mode, 1);
+    RG_DEF_METHOD_P(mode, 0);
+    RG_DEF_METHOD(toggled, 0);
+}

data/ext/gtk3/rbgtk-toggle-tool-button.c

@@ -0,0 +1,61 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2004  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 cToggleToolButton
+#define _SELF(self) (RVAL2GTKTOGGLETOOLBUTTON(self))
+
+static VALUE
+rg_initialize(int argc, VALUE *argv, VALUE self)
+{
+    VALUE arg, buffer;
+    GtkToolItem *item = NULL;
+
+    rb_scan_args(argc, argv, "01", &arg);
+    if (NIL_P(arg)) {
+        item = gtk_toggle_tool_button_new();
+    } else if (TYPE(arg) == T_HASH) {
+        VALUE stock_id;
+        rbg_scan_options(arg,
+                         "stock_id", &stock_id,
+                         NULL);
+
+        if (!NIL_P(stock_id))
+            item = gtk_toggle_tool_button_new_from_stock(RVAL2GLIBID(stock_id, buffer));
+    } else {
+        item = gtk_toggle_tool_button_new_from_stock(RVAL2GLIBID(arg, buffer));
+    }
+    if (!item)
+        rb_raise(rb_eArgError, "Invalid arguments.");
+
+    RBGTK_INITIALIZE(self, item);
+
+    return Qnil;
+}
+
+void
+Init_gtk_toggletoolbutton(VALUE mGtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(GTK_TYPE_TOGGLE_TOOL_BUTTON, "ToggleToolButton", mGtk);
+
+    RG_DEF_METHOD(initialize, -1);
+}