atk 3.1.1-x86-mingw32 → 3.1.2-x86-mingw32

data/ext/atk/rbatkdocument.c

@@ -1,96 +0,0 @@
-/* -*- 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 mDocument
-#define _SELF(s) (RVAL2ATKDOCUMENT(s))
-
-static VALUE
-rg_document_type(VALUE self)
-{
-    return CSTR2RVAL(atk_document_get_document_type(_SELF(self)));
-}
-
-/*
-How can I implement this?
-static VALUE
-rg_document(VALUE self)
-{
-    return GOBJ2RVAL(atk_document_get_document(_SELF(self)));
-}
-*/
-
-static VALUE
-rg_get_attribute_value(VALUE self, VALUE name)
-{
-    return CSTR2RVAL(atk_document_get_attribute_value(_SELF(self), 
-                                                      RVAL2CSTR(name)));
-}
-
-static VALUE
-rg_set_attribute_value(VALUE self, VALUE name, VALUE value)
-{
-    gboolean ret = atk_document_set_attribute_value(_SELF(self),
-                                                    RVAL2CSTR(name),
-                                                    RVAL2CSTR(value));
-
-    if (! ret) rb_raise(rb_eRuntimeError, "Can't set attribute value: %s, %s", 
-                        RVAL2CSTR(name), RVAL2CSTR(value));
-
-    return self;
-}
-
-static VALUE
-rg_attributes(VALUE self)
-{
-    AtkAttributeSet* list = atk_document_get_attributes(_SELF(self));
-    VALUE ary = rb_ary_new();
-    while (list) {
-        AtkAttribute* attr = list->data;
-        rb_ary_push(ary, rb_assoc_new(CSTR2RVAL(attr->name), CSTR2RVAL(attr->value)));
-        list = list->next;
-    }
-    return ary;
-}
-
-static VALUE
-rg_locale(VALUE self)
-{
-    return CSTR2RVAL(atk_document_get_locale(_SELF(self)));
-}
-
-void
-Init_atk_document(VALUE mAtk)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_DOCUMENT, "Document", mAtk);
-
-    RG_DEF_METHOD(document_type, 0);
-/*
-    RG_DEF_METHOD(document, 0);
-*/
-    RG_DEF_METHOD(get_attribute_value, 1);
-    RG_DEF_ALIAS("[]", "get_attribute_value");
-    RG_DEF_METHOD(set_attribute_value, 2);
-    RG_DEF_ALIAS("[]=", "set_attribute_value");
-    RG_DEF_METHOD(attributes, 0);
-    RG_DEF_METHOD(locale, 0);
-}

data/ext/atk/rbatkeditabletext.c

@@ -1,177 +0,0 @@
-/* -*- 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 mEditableText
-#define _SELF(s) (RVAL2ATKEDITABLETEXT(s))
-
-struct rval2atkattributegslist_args {
-    VALUE ary;
-    long n;
-    GSList *result;
-};
-
-static VALUE
-rbatk_rval2atkattributegslist_body(VALUE value)
-{
-    long i;
-    struct rval2atkattributegslist_args *args = (struct rval2atkattributegslist_args *)value;
-
-    for (i = 0; i < args->n; i++) {
-        VALUE ary = rb_ary_to_ary(RARRAY_PTR(args->ary)[i]);
-        AtkAttribute *attribute;
-
-        if (RARRAY_LEN(ary) != 2)
-            rb_raise(rb_eArgError, "attribute %ld should be an array of length 2", i);
-
-        attribute = g_new(AtkAttribute, 1);
-        args->result = g_slist_append(args->result, attribute);
-        attribute->name = g_strdup(RVAL2CSTR(RARRAY_PTR(ary)[0]));
-        attribute->value = g_strdup(RVAL2CSTR(RARRAY_PTR(ary)[1]));
-    }
-
-    return Qnil;
-}
-
-static void
-rbatk_atkattributegslist_free(GSList *list)
-{
-    GSList *p;
-
-    for (p = list; p != NULL; p = g_slist_next(p)) {
-        AtkAttribute *attribute = (AtkAttribute *)p->data;
-
-        g_free(attribute->value);
-        g_free(attribute->name);
-        g_free(attribute);
-    }
-
-    g_slist_free(list);
-}
-
-static G_GNUC_NORETURN VALUE
-rbatk_rval2atkattributegslist_rescue(VALUE value)
-{
-    rbatk_atkattributegslist_free(((struct rval2atkattributegslist_args *)value)->result);
-
-    rb_exc_raise(rb_errinfo());
-}
-
-static GSList *
-rbatk_rval2atkattributegslist(VALUE value)
-{
-    struct rval2atkattributegslist_args args;
-
-    args.ary = rb_ary_to_ary(value);
-    args.n = RARRAY_LEN(args.ary);
-    args.result = NULL;
-
-    rb_rescue(rbatk_rval2atkattributegslist_body, (VALUE)&args,
-              rbatk_rval2atkattributegslist_rescue, (VALUE)&args);
-
-    return args.result;
-}
-
-#define RVAL2ATKATTRIBUTEGSLIST(value) rbatk_rval2atkattributegslist(value)
-
-static VALUE
-rg_set_run_attributes(VALUE self,
-                              VALUE attributes,
-                              VALUE rbstart_offset,
-                              VALUE rbend_offset)
-{
-    AtkEditableText *editable;
-    gint start_offset, end_offset;
-    AtkAttributeSet *list;
-    gboolean result;
-
-    if (NIL_P(attributes))
-        return Qfalse;
-
-    editable = _SELF(self);
-    start_offset = NUM2INT(rbstart_offset);
-    end_offset = NUM2INT(rbend_offset);
-    list = RVAL2ATKATTRIBUTEGSLIST(attributes);
-    result = atk_editable_text_set_run_attributes(editable, list, start_offset, end_offset);
-    rbatk_atkattributegslist_free(list);
-
-    return CBOOL2RVAL(result);
-}
-
-static VALUE
-rg_set_text_contents(VALUE self, VALUE str)
-{
-    atk_editable_text_set_text_contents(_SELF(self), RVAL2CSTR(str));
-    return self;
-}
-
-static VALUE
-rg_insert_text(VALUE self, VALUE str, VALUE position)
-{
-    gint pos = NUM2INT(position);
-
-    StringValue(str);
-    atk_editable_text_insert_text(_SELF(self), RVAL2CSTR(str), RSTRING_LEN(str), &pos);
-    return INT2NUM(pos);
-}
-
-static VALUE
-rg_copy_text(VALUE self, VALUE start_pos, VALUE end_pos)
-{
-    atk_editable_text_copy_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
-    return self;
-}
-
-static VALUE
-rg_cut_text(VALUE self, VALUE start_pos, VALUE end_pos)
-{
-    atk_editable_text_cut_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
-    return self;
-}
-
-static VALUE
-rg_delete_text(VALUE self, VALUE start_pos, VALUE end_pos)
-{
-    atk_editable_text_delete_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
-    return self;
-}
-
-static VALUE
-rg_paste_text(VALUE self, VALUE position)
-{
-    atk_editable_text_paste_text(_SELF(self), NUM2INT(position));
-    return self;
-}
-
-void
-Init_atk_editabletext(VALUE mAtk)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_INTERFACE(ATK_TYPE_EDITABLE_TEXT, "EditableText", mAtk);
-
-   RG_DEF_METHOD(set_run_attributes, 3);
-   RG_DEF_METHOD(set_text_contents, 1);
-   RG_DEF_METHOD(insert_text, 2);
-   RG_DEF_METHOD(copy_text, 2);
-   RG_DEF_METHOD(cut_text, 2);
-   RG_DEF_METHOD(delete_text, 2);
-   RG_DEF_METHOD(paste_text, 1);
-}

data/ext/atk/rbatkgobjectaccessible.c

@@ -1,46 +0,0 @@
-/* -*- 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 cGObjectAccessible
-#define _SELF(s) (RVAL2ATKGOBJECTACCESSIBLE(s))
-
-static VALUE
-rg_s_for_object(G_GNUC_UNUSED VALUE self, VALUE obj)
-{
-    return GOBJ2RVAL(atk_gobject_accessible_for_object(RVAL2GOBJ(obj)));
-}
-
-static VALUE
-rg_object(VALUE self)
-{
-    return GOBJ2RVAL(atk_gobject_accessible_get_object(_SELF(self)));
-}
-
-void
-Init_atk_gobjectaccessible(VALUE mAtk)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_GOBJECT_ACCESSIBLE, "GObjectAccessible", mAtk);
-
-    RG_DEF_SMETHOD(for_object, 1);
-    RG_DEF_METHOD(object, 0);
-}

data/ext/atk/rbatkhyperlink.c

@@ -1,71 +0,0 @@
-/* -*- 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 cHyperlink
-#define _SELF(s) (RVAL2ATKHYPERLINK(s))
-
-static VALUE
-rg_get_uri(VALUE self, VALUE i)
-{
-    return CSTR2RVAL(atk_hyperlink_get_uri(_SELF(self), NUM2INT(i)));
-}
-
-static VALUE
-rg_get_object(VALUE self, VALUE i)
-{
-    return GOBJ2RVAL(atk_hyperlink_get_object(_SELF(self), NUM2INT(i)));
-}
-
-static VALUE
-rg_valid_p(VALUE self)
-{
-    return CBOOL2RVAL(atk_hyperlink_is_valid(_SELF(self)));
-}
-
-#ifdef HAVE_ATK_HYPERLINK_IS_INLINE
-static VALUE
-rg_inline_p(VALUE self)
-{
-    return CBOOL2RVAL(atk_hyperlink_is_inline(_SELF(self)));
-}
-#endif
-
-static VALUE
-rg_n_anchors(VALUE self)
-{
-    return INT2NUM(atk_hyperlink_get_n_anchors(_SELF(self)));
-}
-
-void
-Init_atk_hyperlink(VALUE mAtk)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(ATK_TYPE_HYPERLINK, "Hyperlink", mAtk);
-
-    RG_DEF_METHOD(get_uri, 1);
-    RG_DEF_METHOD(get_object, 1);
-    RG_DEF_METHOD_P(valid, 0);
-#ifdef HAVE_ATK_HYPERLINK_IS_INLINE
-    RG_DEF_METHOD_P(inline, 0);
-#endif
-    RG_DEF_METHOD(n_anchors, 0);
-}

data/ext/atk/rbatkhypertext.c

@@ -1,53 +0,0 @@
-/* -*- 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);
-}