atk 2.2.4-x64-mingw32

data/ext/atk/rbatkobjectrole.c

@@ -0,0 +1,50 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2003,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 cRole
+
+static VALUE
+rg_localized_name(G_GNUC_UNUSED VALUE self)
+{
+#ifdef HAVE_ATK_ROLE_GET_LOCALIZED_NAME
+    return CSTR2RVAL(atk_role_get_localized_name(RVAL2ATKROLE(self)));
+#else
+    rb_warning("not supported in this version of ATK.");
+    return Qnil;
+#endif
+}
+
+static VALUE
+rg_s_for_name(G_GNUC_UNUSED VALUE self, VALUE name)
+{
+    return ATKROLE2RVAL(atk_role_for_name(RVAL2CSTR(name)));
+}
+
+void
+Init_atk_object_role(VALUE cObject)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_ROLE, "Role", cObject);
+    RG_DEF_METHOD(localized_name, 0);
+    RG_DEF_SMETHOD(for_name, 1);
+    G_DEF_CONSTANTS(cObject, ATK_TYPE_ROLE, "ATK_");
+}

data/ext/atk/rbatkprivate.h

@@ -0,0 +1,48 @@
+#ifndef RB_ATK_PRIVATE_H
+#define RB_ATK_PRIVATE_H
+
+#include "rbatk.h"
+
+#ifndef HAVE_RB_ERRINFO
+#  define rb_errinfo() (ruby_errinfo)
+#endif
+
+#ifndef G_VALUE_INIT
+#  define G_VALUE_INIT { 0, { { 0 } } }
+#endif
+
+G_BEGIN_DECLS
+
+G_GNUC_INTERNAL void Init_atk_action(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_component(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_document(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_editabletext(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_gobjectaccessible(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_hyperlink(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_hypertext(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_image(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_implementor(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_noopobject(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_noopobjectfactory(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_object(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_object_role(VALUE cObject);
+G_GNUC_INTERNAL void Init_atk_objectfactory(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_registry(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_relation(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_relation_type(VALUE cRelation);
+G_GNUC_INTERNAL void Init_atk_relation_set(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_selection(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_state(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_state_set(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_streamable_content(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_table(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_text(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_text_attribute(VALUE mText);
+G_GNUC_INTERNAL void Init_atk_text_range(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_text_rectangle(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_util(VALUE mAtk);
+G_GNUC_INTERNAL void Init_atk_value(VALUE mAtk);
+
+G_END_DECLS
+
+#endif /* RB_ATK_PRIVATE_H */

data/ext/atk/rbatkregistry.c

@@ -0,0 +1,63 @@
+/* -*- 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 cRegistry
+#define _SELF(s) (RVAL2ATKREGISTRY(s))
+
+static VALUE
+rg_set_factory_type(VALUE self, VALUE type, VALUE factory_type)
+{
+    atk_registry_set_factory_type(_SELF(self),
+                                  CLASS2GTYPE(type),
+                                  CLASS2GTYPE(factory_type));
+    return self;
+}
+
+static VALUE
+rg_get_factory_type(VALUE self, VALUE type)
+{
+    return GTYPE2CLASS(atk_registry_get_factory_type(_SELF(self), CLASS2GTYPE(type)));
+}
+
+static VALUE
+rg_get_factory(VALUE self, VALUE type)
+{
+    return GOBJ2RVAL(atk_registry_get_factory(_SELF(self),
+                                              CLASS2GTYPE(type)));
+}
+
+static VALUE
+rg_s_default_registry(G_GNUC_UNUSED VALUE self)
+{
+    return GOBJ2RVAL(atk_get_default_registry());
+}
+
+void
+Init_atk_registry(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_REGISTRY, "Registry", mAtk);
+    RG_DEF_METHOD(set_factory_type, 2);
+    RG_DEF_METHOD(get_factory_type, 1);
+    RG_DEF_METHOD(get_factory, 1);
+    RG_DEF_SMETHOD(default_registry, 0);
+}

data/ext/atk/rbatkrelation.c

@@ -0,0 +1,98 @@
+/* -*- 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 cRelation
+#define _SELF(s) (RVAL2ATKRELATION(s))
+
+static VALUE
+rg_s_type_register(G_GNUC_UNUSED VALUE self, VALUE name)
+{
+    return ATKRELATIONTYPE2RVAL(atk_relation_type_register(RVAL2CSTR(name)));
+}
+
+struct rval2atkobjects_args {
+    VALUE ary;
+    long n;
+    AtkObject **result;
+};
+
+static VALUE
+rval2atkobjects_body(VALUE value)
+{
+    long i;
+    struct rval2atkobjects_args *args = (struct rval2atkobjects_args *)value;
+
+    for (i = 0; i < args->n; i++)
+            args->result[i] = RVAL2ATKOBJECT(RARRAY_PTR(args->ary)[i]);
+
+    return Qnil;
+}
+
+static G_GNUC_NORETURN VALUE
+rval2atkobjects_rescue(VALUE value)
+{
+    g_free(((struct rval2atkobjects_args *)value)->result);
+
+    rb_exc_raise(rb_errinfo());
+}
+
+static VALUE
+rg_initialize(VALUE self, VALUE targets, VALUE rbrelationship)
+{
+    AtkRelationType relationship = RVAL2ATKRELATIONTYPE(rbrelationship);
+    struct rval2atkobjects_args args;
+    AtkRelation *relation;
+
+    args.ary = rb_ary_to_ary(targets);
+    args.n = RARRAY_LEN(args.ary);
+    args.result = g_new(AtkObject *, args.n + 1);
+
+    rb_rescue(rval2atkobjects_body, (VALUE)&args,
+              rval2atkobjects_rescue, (VALUE)&args);
+
+    relation = atk_relation_new(args.result, args.n, relationship);
+
+    g_free(args.result);
+
+    G_INITIALIZE(self, relation);
+
+    return Qnil;
+}
+
+static VALUE
+rg_add_target(VALUE self, VALUE obj)
+{
+    atk_relation_add_target(_SELF(self), RVAL2ATKOBJECT(obj));
+    return self;
+}
+
+void
+Init_atk_relation(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_RELATION, "Relation", mAtk);
+    RG_DEF_SMETHOD(type_register, 1);
+    RG_DEF_METHOD(initialize, 2);
+    RG_DEF_METHOD(add_target, 1);
+
+    Init_atk_relation_type(RG_TARGET_NAMESPACE);
+}

data/ext/atk/rbatkrelationset.c

@@ -0,0 +1,95 @@
+/* -*- 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 cRelationSet
+#define _SELF(s) (RVAL2ATKRELATIONSET(s))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, atk_relation_set_new());
+    return Qnil;
+}
+
+static VALUE
+rg_contains_p(VALUE self, VALUE relationship)
+{
+    return CBOOL2RVAL(atk_relation_set_contains(
+                          _SELF(self),
+                          RVAL2ATKRELATIONTYPE(relationship)));
+}
+
+static VALUE
+rg_remove(VALUE self, VALUE relation)
+{
+    atk_relation_set_remove(_SELF(self), RVAL2ATKRELATION(relation));
+    return self;
+}
+
+static VALUE
+rg_add(VALUE self, VALUE relation)
+{
+    atk_relation_set_add(_SELF(self), RVAL2ATKRELATION(relation));
+    return self;
+}
+
+static VALUE
+rg_n_relations(VALUE self)
+{
+    return INT2NUM(atk_relation_set_get_n_relations(_SELF(self)));
+}
+
+static VALUE
+rg_get_relation(VALUE self, VALUE i)
+{
+    if (rb_obj_is_kind_of(i, GTYPE2CLASS(ATK_TYPE_RELATION_TYPE))){
+        return GOBJ2RVAL(atk_relation_set_get_relation_by_type(
+                             _SELF(self),
+                             RVAL2ATKRELATIONTYPE(i)));
+    } else {
+        return GOBJ2RVAL(atk_relation_set_get_relation(_SELF(self), NUM2INT(i)));
+    }
+}
+
+static VALUE
+rg_add_relation(VALUE self, VALUE relationship, VALUE obj)
+{
+    atk_relation_set_add_relation_by_type(_SELF(self), 
+                                          RVAL2ATKRELATIONTYPE(relationship), 
+                                          RVAL2ATKOBJECT(obj));
+    return self;
+}
+
+void
+Init_atk_relation_set(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_RELATION_SET, "RelationSet", mAtk);
+
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD_P(contains, 1);
+    RG_DEF_METHOD(remove, 1);
+    RG_DEF_METHOD(add, 1);
+    RG_DEF_METHOD(n_relations, 0);
+    RG_DEF_METHOD(get_relation, 1);
+    RG_DEF_METHOD(add_relation, 2);
+}

data/ext/atk/rbatkrelationtype.c

@@ -0,0 +1,38 @@
+/* -*- 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 cType
+
+static VALUE
+rg_s_for_name(G_GNUC_UNUSED VALUE self, VALUE name)
+{
+    return ATKRELATIONTYPE2RVAL(atk_relation_type_for_name(RVAL2CSTR(name)));
+}
+
+void
+Init_atk_relation_type(VALUE cRelation)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_RELATION_TYPE, "Type", cRelation);
+    RG_DEF_SMETHOD(for_name, 1);
+    G_DEF_CONSTANTS(cRelation, ATK_TYPE_RELATION_TYPE, "ATK_");
+}

data/ext/atk/rbatkselection.c

@@ -0,0 +1,87 @@
+/* -*- 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 mSelection
+#define _SELF(s) (RVAL2ATKSELECTION(s))
+
+static VALUE
+rg_add_selection(VALUE self, VALUE i)
+{
+    gboolean ret = atk_selection_add_selection(_SELF(self), NUM2INT(i));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't add selection");
+    return self;
+}
+
+static VALUE
+rg_clear_selection(VALUE self)
+{
+    gboolean ret = atk_selection_clear_selection(_SELF(self));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't clear selection");
+    return self;
+}
+
+static VALUE
+rg_ref_selection(VALUE self, VALUE i)
+{
+    return GOBJ2RVAL(atk_selection_ref_selection(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rg_selection_count(VALUE self)
+{
+    return INT2NUM(atk_selection_get_selection_count(_SELF(self)));
+}
+
+static VALUE
+rg_child_selected_p(VALUE self, VALUE i)
+{
+    return CBOOL2RVAL(atk_selection_is_child_selected(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rg_remove_selection(VALUE self, VALUE i)
+{
+    gboolean ret = atk_selection_remove_selection(_SELF(self), NUM2INT(i));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't remove selection");
+    return self;
+}
+
+static VALUE
+rg_select_all_selection(VALUE self)
+{
+    return CBOOL2RVAL(atk_selection_select_all_selection(_SELF(self)));
+}
+
+void
+Init_atk_selection(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_SELECTION, "Selection", mAtk);
+
+    RG_DEF_METHOD(add_selection, 1);
+    RG_DEF_METHOD(clear_selection, 0);
+    RG_DEF_METHOD(ref_selection, 1);
+    RG_DEF_METHOD(selection_count, 0);
+    RG_DEF_METHOD_P(child_selected, 1);
+    RG_DEF_METHOD(remove_selection, 1);
+    RG_DEF_METHOD(select_all_selection, 0);
+}