atk 0.20.0

data/src/rbatkgobjectaccessible.c

@@ -0,0 +1,37 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkgobjectaccessible.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/07 17:18:16 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_GOBJECT_ACCESSIBLE(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_gobjectaccessible_s_for_object(self, obj)
+    VALUE self, obj;
+{
+    return GOBJ2RVAL(atk_gobject_accessible_for_object(RVAL2GOBJ(obj)));
+}
+
+static VALUE
+rbatk_gobjectaccessible_get_object(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_gobject_accessible_get_object(_SELF(self)));
+}
+
+void
+Init_atk_gobjectaccessible()
+{
+    VALUE macc = G_DEF_CLASS(ATK_TYPE_GOBJECT_ACCESSIBLE, "GObjectAccessible", mAtk);
+
+    rb_define_singleton_method(macc, "for_object", rbatk_gobjectaccessible_s_for_object, 1);
+    rb_define_method(macc, "object", rbatk_gobjectaccessible_get_object, 0);
+}

data/src/rbatkhyperlink.c

@@ -0,0 +1,92 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkhyperlink.c -
+
+  $Author: mutoh $
+  $Date: 2004/10/17 23:06:07 $
+
+  Copyright (C) 2003,2004 Masao Mutoh
+************************************************/
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_HYPERLINK(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_hl_get_uri(self, i)
+    VALUE self, i;
+{
+    return CSTR2RVAL(atk_hyperlink_get_uri(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatk_hl_get_object(self, i)
+    VALUE self, i;
+{
+    return GOBJ2RVAL(atk_hyperlink_get_object(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatk_hl_get_end_index(self)
+    VALUE self;
+{
+    return INT2NUM(atk_hyperlink_get_end_index(_SELF(self)));
+}
+
+static VALUE
+rbatk_hl_get_start_index(self)
+    VALUE self;
+{
+    return INT2NUM(atk_hyperlink_get_start_index(_SELF(self)));
+}
+
+static VALUE
+rbatk_hl_is_valid(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(atk_hyperlink_is_valid(_SELF(self)));
+}
+
+#ifdef HAVE_ATK_HYPERLINK_IS_INLINE
+static VALUE
+rbatk_hl_is_inline(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(atk_hyperlink_is_inline(_SELF(self)));
+}
+#endif
+
+static VALUE
+rbatk_hl_get_n_anchors(self)
+    VALUE self;
+{
+    return INT2NUM(atk_hyperlink_get_n_anchors(_SELF(self)));
+}
+
+#ifdef HAVE_ATK_HYPERLINK_IS_SELECTED_LINK
+static VALUE
+rbatk_hl_is_selected_link(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(atk_hyperlink_is_selected_link(_SELF(self)));
+}
+#endif
+
+void
+Init_atk_hyperlink()
+{
+    VALUE hl = G_DEF_CLASS(ATK_TYPE_HYPERLINK, "Hyperlink", mAtk);
+
+    rb_define_method(hl, "get_uri", rbatk_hl_get_uri, 1);
+    rb_define_method(hl, "get_object", rbatk_hl_get_object, 1);
+    rb_define_method(hl, "end_index", rbatk_hl_get_end_index, 0);
+    rb_define_method(hl, "start_index", rbatk_hl_get_start_index, 0);
+    rb_define_method(hl, "valid?", rbatk_hl_is_valid, 0);
+#ifdef HAVE_ATK_HYPERLINK_IS_INLINE
+    rb_define_method(hl, "inline?", rbatk_hl_is_inline, 0);
+#endif
+    rb_define_method(hl, "n_anchors", rbatk_hl_get_n_anchors, 0);
+#ifdef HAVE_ATK_HYPERLINK_IS_SELECTED_LINK
+    rb_define_method(hl, "selected_link?", rbatk_hl_is_selected_link, 0);
+#endif
+}

data/src/rbatkhypertext.c

@@ -0,0 +1,44 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkhypertext.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/07 17:18:16 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_HYPERTEXT(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_ht_get_link(self, link_index)
+    VALUE self, link_index;
+{
+    return GOBJ2RVAL(atk_hypertext_get_link(_SELF(self), NUM2INT(link_index)));
+}
+
+static VALUE
+rbatk_ht_get_n_links(self)
+    VALUE self;
+{
+    return INT2NUM(atk_hypertext_get_n_links(_SELF(self)));
+}
+
+static VALUE
+rbatk_ht_get_link_index(self, char_index)
+    VALUE self, char_index;
+{
+    return INT2NUM(atk_hypertext_get_link_index(_SELF(self), NUM2INT(char_index)));
+}
+
+void
+Init_atk_hypertext()
+{
+    VALUE ht = G_DEF_INTERFACE(ATK_TYPE_HYPERTEXT, "Hypertext", mAtk);
+
+    rb_define_method(ht, "get_link", rbatk_ht_get_link, 1);
+    rb_define_method(ht, "n_links", rbatk_ht_get_n_links, 0);
+    rb_define_method(ht, "link_index", rbatk_ht_get_link_index, 1);
+}

data/src/rbatkimage.c

@@ -0,0 +1,62 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkhypertext.c -
+
+  $Author: mutoh $
+  $Date: 2004/03/05 15:33:47 $
+
+  Copyright (C) 2004 Masao Mutoh
+************************************************/
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_IMAGE(RVAL2GOBJ(s)))
+
+static VALUE
+rbatkimage_get_image_position(self, coord_type)
+    VALUE self, coord_type;
+{
+    gint x, y;
+    atk_image_get_image_position(_SELF(self), &x, &y, 
+                                 RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE));
+    return rb_assoc_new(INT2NUM(x), INT2NUM(y));
+}
+
+static VALUE
+rbatkimage_get_image_description(self)
+    VALUE self;
+{
+    return CSTR2RVAL(atk_image_get_image_description(_SELF(self)));
+}
+
+static VALUE
+rbatkimage_set_image_description(self, description)
+    VALUE self, 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
+rbatkimage_get_image_size(self)
+    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 image = G_DEF_INTERFACE(ATK_TYPE_IMAGE, "Image", mAtk);
+
+    rb_define_method(image, "image_position", rbatkimage_get_image_position, 1);
+    rb_define_method(image, "image_description", rbatkimage_get_image_description, 0);
+    rb_define_method(image, "set_image_description", rbatkimage_set_image_description, 1);
+    rb_define_method(image, "image_size", rbatkimage_get_image_size, 0);
+
+    G_DEF_SETTERS(image);
+}

data/src/rbatkimplementor.c

@@ -0,0 +1,27 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkimplementor.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/07 17:18:16 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_IMPLEMENTOR(RVAL2GOBJ(s)))
+
+static VALUE
+rbatkimpl_ref_accessible(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_implementor_ref_accessible(_SELF(self)));
+}
+
+void
+Init_atk_implementor()
+{
+    VALUE impl = G_DEF_INTERFACE(ATK_TYPE_IMPLEMENTOR, "Implementor", mAtk);
+    rb_define_method(impl, "ref_accessible", rbatkimpl_ref_accessible, 0);
+}

data/src/rbatkinits.c

@@ -0,0 +1,55 @@
+extern void   Init_atk_action();
+extern void   Init_atk_component();
+extern void   Init_atk_document();
+extern void   Init_atk_editabletext();
+extern void   Init_atk_gobjectaccessible();
+extern void   Init_atk_hyperlink();
+extern void   Init_atk_hypertext();
+extern void   Init_atk_image();
+extern void   Init_atk_implementor();
+extern void   Init_atk_noopobject();
+extern void   Init_atk_noopobjectfactory();
+extern void   Init_atk_object();
+extern void   Init_atk_objectfactory();
+extern void   Init_atk_registry();
+extern void   Init_atk_relation();
+extern void   Init_atk_relation_set();
+extern void   Init_atk_selection();
+extern void   Init_atk_state();
+extern void   Init_atk_state_set();
+extern void   Init_atk_streamable_content();
+extern void   Init_atk_table();
+extern void   Init_atk_text();
+extern void   Init_atk_text_range();
+extern void   Init_atk_text_rectangle();
+extern void   Init_atk_util();
+extern void   Init_atk_value();
+void Init_atk_inits()
+{
+   Init_atk_action();
+   Init_atk_component();
+   Init_atk_document();
+   Init_atk_editabletext();
+   Init_atk_gobjectaccessible();
+   Init_atk_hyperlink();
+   Init_atk_hypertext();
+   Init_atk_image();
+   Init_atk_implementor();
+   Init_atk_noopobject();
+   Init_atk_noopobjectfactory();
+   Init_atk_object();
+   Init_atk_objectfactory();
+   Init_atk_registry();
+   Init_atk_relation();
+   Init_atk_relation_set();
+   Init_atk_selection();
+   Init_atk_state();
+   Init_atk_state_set();
+   Init_atk_streamable_content();
+   Init_atk_table();
+   Init_atk_text();
+   Init_atk_text_range();
+   Init_atk_text_rectangle();
+   Init_atk_util();
+   Init_atk_value();
+}

data/src/rbatknoopobject.c

@@ -0,0 +1,30 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatknoopobject.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/04 18:06:17 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_NOOPOBJECT(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_no_op_object_initialize(self, gobj)
+    VALUE self, gobj;
+{
+    G_INITIALIZE(self, atk_no_op_object_new(RVAL2GOBJ(gobj)));
+    return Qnil;
+}
+
+void
+Init_atk_noopobject()
+{
+    VALUE noop = G_DEF_CLASS(ATK_TYPE_NO_OP_OBJECT, "NoOpObject", mAtk);
+
+    rb_define_method(noop, "initialize", rbatk_no_op_object_initialize, 1);
+}

data/src/rbatknoopobjectfactory.c

@@ -0,0 +1,30 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatknoopobjectfactory.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/07 17:18:16 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_NO_OP_OBJECT_FACTORY(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_no_op_object_factory_initialize(self)
+    VALUE self;
+{
+    G_INITIALIZE(self, atk_no_op_object_factory_new());
+    return Qnil;
+}
+
+void
+Init_atk_noopobjectfactory()
+{
+    VALUE noop = G_DEF_CLASS(ATK_TYPE_NO_OP_OBJECT_FACTORY, "NoOpObjectFactory", mAtk);
+
+    rb_define_method(noop, "initialize", rbatk_no_op_object_factory_initialize, 0);
+}

data/src/rbatkobject.c

@@ -0,0 +1,178 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkobject.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:28 $
+
+  Copyright (C) 2003,2004 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_OBJECT(RVAL2GOBJ(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
+rbatkobj_get_n_accessible_children(self)
+    VALUE self;
+{
+    return INT2NUM(atk_object_get_n_accessible_children(_SELF(self)));
+}
+
+static VALUE
+rbatkobj_ref_accessible_child(self, i)
+    VALUE self, i;
+{
+    return GOBJ2RVAL(atk_object_ref_accessible_child(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatkobj_ref_releation_set(self)
+    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
+rbatkobj_ref_state_set(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_object_ref_state_set(_SELF(self)));
+}
+
+static VALUE
+rbatkobj_get_index_in_parent(self)
+    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
+rbatkobj_notify_state_change(self, state, value)
+    VALUE self, state, value;
+{
+    atk_object_notify_state_change(_SELF(self), 
+                                   RVAL2GENUM(state, ATK_TYPE_STATE_TYPE),
+                                   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
+rbatkobj_add_relationship(self, relationship, target)
+    VALUE self, relationship, target;
+{
+    return CBOOL2RVAL(atk_object_add_relationship(
+                          _SELF(self), 
+                          RVAL2GENUM(relationship, ATK_TYPE_RELATION_TYPE),
+                          _SELF(target)));
+}
+#endif
+
+#ifdef HAVE_ATK_OBJECT_REMOVE_RELATIONSHIP
+static VALUE
+rbatkobj_remove_relationship(self, relationship, target)
+    VALUE self, relationship, target;
+{
+    return CBOOL2RVAL(atk_object_remove_relationship(
+                          _SELF(self), 
+                          RVAL2GENUM(relationship, ATK_TYPE_RELATION_TYPE),
+                          _SELF(target)));
+}
+#endif
+
+/* We don't need this.
+G_CONST_RETURN gchar* atk_role_get_name     (AtkRole role);
+*/
+
+static VALUE
+rbatkrole_get_localized_name(self)
+    VALUE self;
+{
+#ifdef HAVE_ATK_ROLE_GET_LOCALIZED_NAME
+    return CSTR2RVAL(atk_role_get_localized_name(RVAL2GENUM(self, ATK_TYPE_ROLE)));
+#else
+    rb_warning("not supported in this version of ATK.");
+    return Qnil;
+#endif
+}
+
+static VALUE
+rbatkrole_s_for_name(self, name)
+    VALUE self, name;
+{
+    return GENUM2RVAL(atk_role_for_name(RVAL2CSTR(name)), ATK_TYPE_ROLE);
+}
+
+void
+Init_atk_object()
+{
+    VALUE obj = G_DEF_CLASS(ATK_TYPE_OBJECT, "Object", mAtk);
+    VALUE role;
+
+    rb_define_method(obj, "n_accessible_children", rbatkobj_get_n_accessible_children, 0);
+    rb_define_method(obj, "ref_accessible_child", rbatkobj_ref_accessible_child, 1);
+    rb_define_method(obj, "ref_relation_set", rbatkobj_ref_releation_set, 0);
+    rb_define_method(obj, "ref_state_set", rbatkobj_ref_state_set, 0);
+    rb_define_method(obj, "index_in_parent", rbatkobj_get_index_in_parent, 0);
+    rb_define_method(obj, "notify_state_change", rbatkobj_notify_state_change, 2);
+#ifdef HAVE_ATK_OBJECT_ADD_RELATIONSHIP
+    rb_define_method(obj, "add_relationship", rbatkobj_add_relationship, 2);
+#endif
+#ifdef HAVE_ATK_OBJECT_REMOVE_RELATIONSHIP
+    rb_define_method(obj, "remove_relationship", rbatkobj_remove_relationship, 2);
+#endif
+
+    /* AtkRole */
+    role = G_DEF_CLASS(ATK_TYPE_ROLE, "Role", obj);
+    rb_define_method(role, "localized_name", rbatkrole_get_localized_name, 0);
+    rb_define_singleton_method(role, "for_name", rbatkrole_s_for_name, 1);
+    G_DEF_CONSTANTS(obj, ATK_TYPE_ROLE, "ATK_");
+
+    /* AtkLayer */
+    G_DEF_CLASS(ATK_TYPE_LAYER, "Layer", obj);
+    G_DEF_CONSTANTS(obj, ATK_TYPE_LAYER, "ATK_");
+}