atk 2.2.4-x64-mingw32

data/ext/atk/rbatktextrectangle.c

@@ -0,0 +1,149 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2004  Masao Mutoh
+ *  Copyright (C) 2002,2003 Masao Mutoh
+ *  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 "rbatkprivate.h"
+
+#ifdef HAVE_ATK_TEXT_GET_BOUNDED_RANGES
+#define RG_TARGET_NAMESPACE cTextRectangle
+#define _SELF(r) (RVAL2ATKTEXTRECTANGLE(r))
+
+/**********************************/
+static AtkTextRectangle*
+atk_text_rectangle_copy(const AtkTextRectangle* val)
+{
+    AtkTextRectangle* new_val;
+    g_return_val_if_fail (val != NULL, NULL);
+    new_val = g_new(AtkTextRectangle, 1);
+    *new_val = *val;
+    return new_val;
+}
+
+GType
+atk_text_rectangle_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("AtkTextRectangle",
+                    (GBoxedCopyFunc)atk_text_rectangle_copy,
+                    (GBoxedFreeFunc)g_free);
+    return our_type;
+}
+/**********************************/
+
+static VALUE
+rg_initialize(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    AtkTextRectangle rectangle;
+
+    rectangle.x = NUM2INT(x);
+    rectangle.y = NUM2INT(y);
+    rectangle.width = NUM2INT(width);
+    rectangle.height = NUM2INT(height);
+
+    G_INITIALIZE(self, g_boxed_copy(ATK_TYPE_TEXT_RECTANGLE, &rectangle));
+    return Qnil;
+}
+
+/* Struct accessors */
+static VALUE
+rg_x(VALUE self)
+{
+    return INT2NUM(_SELF(self)->x);
+}
+
+static VALUE
+rg_y(VALUE self)
+{
+    return INT2NUM(_SELF(self)->y);
+}
+
+static VALUE
+rg_width(VALUE self)
+{
+    return INT2NUM(_SELF(self)->width);
+}
+
+static VALUE
+rg_height(VALUE self)
+{
+    return INT2NUM(_SELF(self)->height);
+}
+
+static VALUE
+rg_set_x(VALUE self, VALUE x)
+{
+    _SELF(self)->x = NUM2INT(x);
+    return self;
+}
+
+static VALUE
+rg_set_y(VALUE self, VALUE y)
+{
+    _SELF(self)->y = NUM2INT(y);
+    return self;
+}
+
+static VALUE
+rg_set_width(VALUE self, VALUE width)
+{
+    _SELF(self)->width = NUM2INT(width);
+    return self;
+}
+
+static VALUE
+rg_set_height(VALUE self, VALUE height)
+{
+    _SELF(self)->height = NUM2INT(height);
+    return self;
+}
+
+static VALUE
+rg_to_a(VALUE self)
+{
+  AtkTextRectangle* a = _SELF(self);
+  return rb_ary_new3(4, INT2FIX(a->x), INT2FIX(a->y),
+                     INT2FIX(a->width), INT2FIX(a->height));
+}
+#endif
+
+void
+Init_atk_text_rectangle(VALUE mAtk)
+{
+#ifdef HAVE_ATK_TEXT_GET_BOUNDED_RANGES
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_TEXT_RECTANGLE, "TextRectangle", mAtk);
+
+    RG_DEF_METHOD(initialize, 4);
+    RG_DEF_METHOD(x, 0);
+    RG_DEF_METHOD(y, 0);
+    RG_DEF_METHOD(width, 0);
+    RG_DEF_METHOD(height, 0);
+    RG_DEF_METHOD(set_x, 1);
+    RG_DEF_METHOD(set_y, 1);
+    RG_DEF_METHOD(set_width, 1);
+    RG_DEF_METHOD(set_height, 1);
+    RG_DEF_METHOD(to_a, 0);
+#endif
+}

data/ext/atk/rbatkutil.c

@@ -0,0 +1,122 @@
+/* -*- 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 "rbatkprivate.h"
+
+#define RG_TARGET_NAMESPACE cUtil
+static ID id_call;
+
+/* How can I implement them?
+guint       atk_add_focus_tracker           (AtkEventListener focus_tracker);
+void        atk_remove_focus_tracker        (guint tracker_id);
+void        atk_focus_tracker_init          (AtkEventListenerInit add_function);
+void        (*AtkEventListener)             (AtkObject*);
+void        (*AtkEventListenerInit)         (void);
+guint       atk_add_global_event_listener   (GSignalEmissionHook listener,
+                                             const gchar *event_type);
+void        atk_remove_global_event_listener
+                                            (guint listener_id);
+*/
+
+static VALUE
+rg_s_focus_tracker_notify(VALUE self, VALUE obj)
+{
+    atk_focus_tracker_notify(RVAL2ATKOBJECT(obj));
+    return self;
+}
+
+static gint
+key_snoop_func(AtkKeyEventStruct* event, gpointer func)
+{
+    VALUE ret = rb_funcall((VALUE)func, id_call, 7,
+                           INT2NUM(event->type), UINT2NUM(event->state),
+                           UINT2NUM(event->keyval), INT2NUM(event->length),
+                           CSTR2RVAL(event->string), UINT2NUM(event->keycode),
+                           UINT2NUM(event->timestamp));
+    return NUM2INT(ret);
+}
+
+static VALUE
+rg_s_add_key_event_listener(VALUE self)
+{
+    guint ret;
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    ret = atk_add_key_event_listener((AtkKeySnoopFunc)key_snoop_func, (gpointer)func);
+    return UINT2NUM(ret);
+}
+
+static VALUE
+rg_s_remove_key_event_listener(VALUE self, VALUE id)
+{
+    atk_remove_key_event_listener(NUM2UINT(id));
+    return self;
+}
+
+static VALUE
+rg_s_root(G_GNUC_UNUSED VALUE self)
+{
+    return GOBJ2RVAL(atk_get_root());
+}
+
+static VALUE
+rg_s_focus_object(G_GNUC_UNUSED VALUE self)
+{
+    return GOBJ2RVAL(atk_get_focus_object());
+}
+
+static VALUE
+rg_s_toolkit_name(G_GNUC_UNUSED VALUE self)
+{
+    return CSTR2RVAL(atk_get_toolkit_name());
+}
+
+static VALUE
+rg_s_toolkit_version(G_GNUC_UNUSED VALUE self)
+{
+    return CSTR2RVAL(atk_get_toolkit_version());
+}
+
+void
+Init_atk_util(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_UTIL, "Util", mAtk);
+
+    id_call = rb_intern("call");
+
+    RG_DEF_SMETHOD(focus_tracker_notify, 1);
+    RG_DEF_SMETHOD(add_key_event_listener, 0);
+    RG_DEF_SMETHOD(remove_key_event_listener, 1);
+
+    RG_DEF_SMETHOD(root, 0);
+    RG_DEF_SMETHOD(focus_object, 0);
+    RG_DEF_SMETHOD(toolkit_name, 0);
+    RG_DEF_SMETHOD(toolkit_version, 0);
+
+    /* AtkCoordType */
+    G_DEF_CLASS(ATK_TYPE_COORD_TYPE, "CoordType", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, ATK_TYPE_COORD_TYPE, "ATK_");
+
+    /* AtkKeyEventType */
+    G_DEF_CLASS(ATK_TYPE_KEY_EVENT_TYPE, "KeyEventType", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, ATK_TYPE_KEY_EVENT_TYPE, "ATK_");
+
+}

data/ext/atk/rbatkvalue.c

@@ -0,0 +1,78 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2003  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 "rbatkprivate.h"
+
+#define RG_TARGET_NAMESPACE mValue
+#define _SELF(s) (RVAL2ATKVALUE(s))
+
+static VALUE
+rg_current(VALUE self)
+{
+    GValue gval = G_VALUE_INIT;
+    atk_value_get_current_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+static VALUE
+rg_max(VALUE self)
+{
+    GValue gval = G_VALUE_INIT;
+    atk_value_get_maximum_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+static VALUE
+rg_min(VALUE self)
+{
+    GValue gval = G_VALUE_INIT;
+    atk_value_get_minimum_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+static VALUE
+rg_set_current(VALUE self, VALUE value)
+{
+    GValue gval = G_VALUE_INIT;
+    g_value_init(&gval, RVAL2GTYPE(value));
+
+    rbgobj_rvalue_to_gvalue(value, &gval);
+
+    if (! atk_value_set_current_value(_SELF(self), &gval)){
+        rb_raise(rb_eRuntimeError, "Can't set the current value.");
+    }
+
+    return self;
+}
+
+void
+Init_atk_value(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_VALUE, "Value", mAtk);
+
+    RG_DEF_METHOD(current, 0);
+    RG_DEF_METHOD(max, 0);
+    RG_DEF_METHOD(min, 0);
+    RG_DEF_METHOD(set_current, 1);
+}

data/extconf.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require 'mkmf'
+require 'rbconfig'
+require 'fileutils'
+
+package = "atk"
+
+base_dir = Pathname(__FILE__).dirname.expand_path
+ext_dir = base_dir + "ext" + package
+mkmf_gnome2_dir = base_dir + 'lib'
+
+ruby = File.join(RbConfig::CONFIG['bindir'],
+                 RbConfig::CONFIG['ruby_install_name'] +
+                 RbConfig::CONFIG["EXEEXT"])
+
+build_dir = Pathname("ext") + package
+FileUtils.mkdir_p(build_dir.to_s) unless build_dir.exist?
+extconf_rb_path = ext_dir + "extconf.rb"
+system(ruby, "-C", build_dir.to_s, extconf_rb_path.to_s, *ARGV) || exit(false)
+
+create_makefile(package)
+FileUtils.mv("Makefile", "Makefile.lib")
+
+File.open("Makefile", "w") do |makefile|
+  makefile.puts(<<-EOM)
+all:
+	(cd ext/#{package} && $(MAKE))
+	$(MAKE) -f Makefile.lib
+
+install:
+	(cd ext/#{package} && $(MAKE) install)
+	$(MAKE) -f Makefile.lib install
+
+site-install:
+	(cd ext/#{package} && $(MAKE) site-install)
+	$(MAKE) -f Makefile.lib site-install
+
+clean:
+	(cd ext/#{package} && $(MAKE) clean)
+	$(MAKE) -f Makefile.lib clean
+
+distclean:
+	(cd ext/#{package} && $(MAKE) distclean)
+	$(MAKE) -f Makefile.lib distclean
+	@rm -f Makefile.lib
+EOM
+end

data/lib/atk.rb

@@ -0,0 +1,21 @@
+require 'glib2'
+
+base_dir = Pathname.new(__FILE__).dirname.dirname.expand_path
+vendor_dir = base_dir + "vendor" + "local"
+vendor_bin_dir = vendor_dir + "bin"
+GLib.prepend_dll_path(vendor_bin_dir)
+begin
+  major, minor, _ = RUBY_VERSION.split(/\./)
+  require "#{major}.#{minor}/atk.so"
+rescue LoadError
+  require 'atk.so'
+end
+
+if vendor_dir.exist?
+  begin
+    require "gobject-introspection"
+    vendor_girepository_dir = vendor_dir + "lib" + "girepository-1.0"
+    GObjectIntrospection.prepend_typelib_path(vendor_girepository_dir)
+  rescue LoadError
+  end
+end

data/test/atk-test-utils.rb

@@ -0,0 +1,21 @@
+# Copyright (C) 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
+
+require "test-unit"
+require "test/unit/notify"
+
+module AtkTestUtils
+end