atk 2.2.4-x64-mingw32

data/ext/atk/rbatkhypertext.c

@@ -0,0 +1,53 @@
+/* -*- 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 mHypertext
+#define _SELF(s) (RVAL2ATKHYPERTEXT(s))
+
+static VALUE
+rg_get_link(VALUE self, VALUE link_index)
+{
+    return GOBJ2RVAL(atk_hypertext_get_link(_SELF(self), NUM2INT(link_index)));
+}
+
+static VALUE
+rg_n_links(VALUE self)
+{
+    return INT2NUM(atk_hypertext_get_n_links(_SELF(self)));
+}
+
+static VALUE
+rg_link_index(VALUE self, VALUE char_index)
+{
+    return INT2NUM(atk_hypertext_get_link_index(_SELF(self), NUM2INT(char_index)));
+}
+
+void
+Init_atk_hypertext(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_HYPERTEXT, "Hypertext", mAtk);
+
+    RG_DEF_METHOD(get_link, 1);
+    RG_DEF_METHOD(n_links, 0);
+    RG_DEF_METHOD(link_index, 1);
+}

data/ext/atk/rbatkimage.c

@@ -0,0 +1,68 @@
+/* -*- 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 mImage
+#define _SELF(s) (RVAL2ATKIMAGE(s))
+
+static VALUE
+rg_image_position(VALUE self, VALUE coord_type)
+{
+    gint x, y;
+    atk_image_get_image_position(_SELF(self), &x, &y, 
+                                 RVAL2ATKCOORDTYPE(coord_type));
+    return rb_assoc_new(INT2NUM(x), INT2NUM(y));
+}
+
+static VALUE
+rg_image_description(VALUE self)
+{
+    return CSTR2RVAL(atk_image_get_image_description(_SELF(self)));
+}
+
+static VALUE
+rg_set_image_description(VALUE self, VALUE description)
+{
+    gboolean ret = atk_image_set_image_description(_SELF(self),
+                                                   RVAL2CSTR(description));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't set image description");
+    return self;
+}
+
+static VALUE
+rg_image_size(VALUE self)
+{
+    gint width, height;
+    atk_image_get_image_size(_SELF(self), &width, &height);
+    return rb_assoc_new(INT2NUM(width), INT2NUM(height));
+}
+
+void
+Init_atk_image(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_IMAGE, "Image", mAtk);
+
+    RG_DEF_METHOD(image_position, 1);
+    RG_DEF_METHOD(image_description, 0);
+    RG_DEF_METHOD(set_image_description, 1);
+    RG_DEF_METHOD(image_size, 0);
+}

data/ext/atk/rbatkimplementor.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 mImplementor
+#define _SELF(s) (RVAL2ATKIMPLEMENTOR(s))
+
+static VALUE
+rg_ref_accessible(VALUE self)
+{
+    return GOBJ2RVAL(atk_implementor_ref_accessible(_SELF(self)));
+}
+
+void
+Init_atk_implementor(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_IMPLEMENTOR, "Implementor", mAtk);
+    RG_DEF_METHOD(ref_accessible, 0);
+}

data/ext/atk/rbatknoopobject.c

@@ -0,0 +1,40 @@
+/* -*- 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 cNoOpObject
+#define _SELF(s) (RVAL2ATKNOOPOBJECT(s))
+
+static VALUE
+rg_initialize(VALUE self, VALUE gobj)
+{
+    G_INITIALIZE(self, atk_no_op_object_new(RVAL2GOBJ(gobj)));
+    return Qnil;
+}
+
+void
+Init_atk_noopobject(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_NO_OP_OBJECT, "NoOpObject", mAtk);
+
+    RG_DEF_METHOD(initialize, 1);
+}

data/ext/atk/rbatknoopobjectfactory.c

@@ -0,0 +1,40 @@
+/* -*- 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 cNoOpObjectFactory
+#define _SELF(s) (RVAL2ATKNOOPOBJECTFACTORY(s))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, atk_no_op_object_factory_new());
+    return Qnil;
+}
+
+void
+Init_atk_noopobjectfactory(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_NO_OP_OBJECT_FACTORY, "NoOpObjectFactory", mAtk);
+
+    RG_DEF_METHOD(initialize, 0);
+}

data/ext/atk/rbatkobject.c

@@ -0,0 +1,153 @@
+/* -*- 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 cObject
+#define _SELF(s) RVAL2ATKOBJECT(s)
+
+/* How can I implement this? Since 1.10
+AtkObject*  atk_implementor_ref_accessible  (AtkImplementor *implementor);
+*/
+
+/* Use properties accessible_* 
+G_CONST_RETURN gchar* atk_object_get_name   (AtkObject *accessible);
+G_CONST_RETURN gchar* atk_object_get_description
+                                            (AtkObject *accessible);
+AtkObject*  atk_object_get_parent           (AtkObject *accessible);
+                                            (AtkObject *accessible);
+*/
+
+static VALUE
+rg_n_accessible_children(VALUE self)
+{
+    return INT2NUM(atk_object_get_n_accessible_children(_SELF(self)));
+}
+
+static VALUE
+rg_ref_accessible_child(VALUE self, VALUE i)
+{
+    return GOBJ2RVAL(atk_object_ref_accessible_child(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rg_ref_relation_set(VALUE self)
+{
+    return GOBJ2RVAL(atk_object_ref_relation_set(_SELF(self)));
+}
+
+/* Use properties accessible_* 
+AtkLayer    atk_object_get_layer            (AtkObject *accessible);
+gint        atk_object_get_mdi_zorder       (AtkObject *accessible);
+AtkRole     atk_object_get_role             (AtkObject *accessible);
+*/
+
+static VALUE
+rg_ref_state_set(VALUE self)
+{
+    return GOBJ2RVAL(atk_object_ref_state_set(_SELF(self)));
+}
+
+static VALUE
+rg_index_in_parent(VALUE self)
+{
+    return INT2NUM(atk_object_get_index_in_parent(_SELF(self)));
+}
+/* Use properties accessible_* 
+void        atk_object_set_name             (AtkObject *accessible,
+                                             const gchar *name);
+void        atk_object_set_description      (AtkObject *accessible,
+                                             const gchar *description);
+void        atk_object_set_parent           (AtkObject *accessible,
+                                             AtkObject *parent);
+void        atk_object_set_role             (AtkObject *accessible,
+                                             AtkRole role);
+*/
+
+/*    
+guint       atk_object_connect_property_change_handler
+                                            (AtkObject *accessible,
+                                             AtkPropertyChangeHandler *handler);
+void        atk_object_remove_property_change_handler
+                                            (AtkObject *accessible,
+                                             guint handler_id);
+*/
+
+static VALUE
+rg_notify_state_change(VALUE self, VALUE state, VALUE value)
+{
+    atk_object_notify_state_change(_SELF(self), 
+                                   RVAL2ATKSTATETYPE(state),
+                                   RVAL2CBOOL(value));
+    return self;
+}
+
+/* I don't have a good idea to implement this method. Any idea?
+void        atk_object_initialize           (AtkObject *accessible,
+                                             gpointer data);
+*/
+
+#ifdef HAVE_ATK_OBJECT_ADD_RELATIONSHIP
+static VALUE
+rg_add_relationship(VALUE self, VALUE relationship, VALUE target)
+{
+    return CBOOL2RVAL(atk_object_add_relationship(
+                          _SELF(self), 
+                          RVAL2ATKRELATIONTYPE(relationship),
+                          _SELF(target)));
+}
+#endif
+
+#ifdef HAVE_ATK_OBJECT_REMOVE_RELATIONSHIP
+static VALUE
+rg_remove_relationship(VALUE self, VALUE relationship, VALUE target)
+{
+    return CBOOL2RVAL(atk_object_remove_relationship(
+                          _SELF(self), 
+                          RVAL2ATKRELATIONTYPE(relationship),
+                          _SELF(target)));
+}
+#endif
+
+void
+Init_atk_object(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_OBJECT, "Object", mAtk);
+
+    RG_DEF_METHOD(n_accessible_children, 0);
+    RG_DEF_METHOD(ref_accessible_child, 1);
+    RG_DEF_METHOD(ref_relation_set, 0);
+    RG_DEF_METHOD(ref_state_set, 0);
+    RG_DEF_METHOD(index_in_parent, 0);
+    RG_DEF_METHOD(notify_state_change, 2);
+#ifdef HAVE_ATK_OBJECT_ADD_RELATIONSHIP
+    RG_DEF_METHOD(add_relationship, 2);
+#endif
+#ifdef HAVE_ATK_OBJECT_REMOVE_RELATIONSHIP
+    RG_DEF_METHOD(remove_relationship, 2);
+#endif
+
+    Init_atk_object_role(RG_TARGET_NAMESPACE);
+
+    /* AtkLayer */
+    G_DEF_CLASS(ATK_TYPE_LAYER, "Layer", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, ATK_TYPE_LAYER, "ATK_");
+}

data/ext/atk/rbatkobjectfactory.c

@@ -0,0 +1,53 @@
+/* -*- 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 cObjectFactory
+#define _SELF(s) (RVAL2ATKOBJECTFACTORY(s))
+
+static VALUE
+rg_create_accessible(VALUE self, VALUE obj)
+{
+    return GOBJ2RVAL(atk_object_factory_create_accessible(_SELF(self), RVAL2GOBJ(obj)));
+}
+
+static VALUE
+rg_accessible_type(VALUE self)
+{
+    return GTYPE2CLASS(atk_object_factory_get_accessible_type(_SELF(self)));
+}
+
+static VALUE
+rg_invalidate(VALUE self)
+{
+    atk_object_factory_invalidate(_SELF(self));
+    return self;
+}
+
+void
+Init_atk_objectfactory(VALUE mAtk)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_OBJECT_FACTORY, "ObjectFactory", mAtk);
+    RG_DEF_METHOD(create_accessible, 0);
+    RG_DEF_METHOD(accessible_type, 0);
+    RG_DEF_METHOD(invalidate, 0);
+}