atk 0.20.0

data/src/rbatk.h

@@ -0,0 +1,36 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+  rbatk.h -
+
+  $Author: mutoh $
+  $Date: 2005/09/15 17:30:46 $
+
+  Copyright (C) 2003,2004 Masao Mutoh
+************************************************/
+#include "ruby.h"
+#include <atk/atk.h>
+#include <atk/atk-enum-types.h>
+#include <atk/atknoopobject.h>
+#include <atk/atknoopobjectfactory.h>
+#include "rbgobject.h"
+#include "rbatkversion.h"
+
+
+#if defined(G_PLATFORM_WIN32) && !defined(RUBY_ATK_STATIC_COMPILATION)
+#  ifdef RUBY_ATK_COMPILATION
+#    define RUBY_ATK_VAR __declspec(dllexport)
+#  else
+#    define RUBY_ATK_VAR extern __declspec(dllimport)
+#  endif
+#else
+#  define RUBY_ATK_VAR extern
+#endif
+                                                                                
+extern void Init_atk_inits();
+extern GType atk_text_rectangle_get_type(void);
+extern GType atk_text_range_get_type(void);
+
+RUBY_ATK_VAR VALUE mAtk;
+
+#define ATK_TYPE_TEXT_RECTANGLE (atk_text_rectangle_get_type())
+#define ATK_TYPE_TEXT_RANGE (atk_text_range_get_type())

data/src/rbatkaction.c

@@ -0,0 +1,81 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkaction.c -
+
+  $Author: mutoh $
+  $Date: 2004/03/05 15:33:47 $
+
+  Copyright (C) 2004 Masao Mutoh 
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_ACTION(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_action_do_action(self, i)
+    VALUE self, i;
+{
+    return CBOOL2RVAL(atk_action_do_action(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatk_action_get_n_actions(self)
+    VALUE self;
+{
+    return INT2NUM(atk_action_get_n_actions(_SELF(self)));
+}
+
+static VALUE
+rbatk_action_get_description(self, i)
+    VALUE self, i;
+{
+    return CSTR2RVAL(atk_action_get_description(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatk_action_get_name(self, i)
+    VALUE self, i;
+{
+    return CSTR2RVAL(atk_action_get_name(_SELF(self), NUM2INT(i)));
+}
+
+#ifdef HAVE_ATK_ACTION_GET_LOCALIZED_NAME
+static VALUE
+rbatk_action_get_localized_name(self, i)
+    VALUE self, i;
+{
+    return CSTR2RVAL(atk_action_get_localized_name(_SELF(self), NUM2INT(i)));
+}
+#endif
+
+static VALUE
+rbatk_action_get_keybinding(self, i)
+    VALUE self, i;
+{
+    return CSTR2RVAL(atk_action_get_keybinding(_SELF(self), NUM2INT(i)));
+}
+
+static VALUE
+rbatk_action_set_description(self, i, desc)
+    VALUE self, i, desc;
+{
+    return CBOOL2RVAL(atk_action_set_description(_SELF(self), NUM2INT(i), RVAL2CSTR(desc)));
+}
+
+void
+Init_atk_action()
+{
+    VALUE mAction = G_DEF_INTERFACE(ATK_TYPE_ACTION, "Action", mAtk);
+
+    rb_define_method(mAction, "do_action", rbatk_action_do_action, 1);
+    rb_define_method(mAction, "n_actions", rbatk_action_get_n_actions, 0);
+    rb_define_method(mAction, "get_description", rbatk_action_get_description, 1);
+    rb_define_method(mAction, "get_name", rbatk_action_get_name, 1);
+#ifdef HAVE_ATK_ACTION_GET_LOCALIZED_NAME
+    rb_define_method(mAction, "get_localized_name", rbatk_action_get_localized_name, 1);
+#endif
+    rb_define_method(mAction, "get_keybinding", rbatk_action_get_keybinding, 1);
+    rb_define_method(mAction, "set_description", rbatk_action_set_description, 2);
+}

data/src/rbatkcomponent.c

@@ -0,0 +1,184 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkcomponent.c -
+
+  $Author: sakai $
+  $Date: 2007/07/08 02:51:52 $
+
+  Copyright (C) 2004 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_COMPONENT(RVAL2GOBJ(s)))
+
+/*
+static void
+focus_handler(aobj, bool)
+    AtkObject* aobj;
+    gboolean bool;
+{
+    VALUE ret = rb_funcall((VALUE)func, id_call, 2,
+                           GOBJ2RVAL(aobj), CBOOL2RVAL(bool));
+}
+static VALUE
+comp_add_focus_handler(self)
+     VALUE self;
+{
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    return UINT2NUM(atk_component_add_focus_handler(_SELF(self), focus_handler));
+}
+*/
+
+static VALUE
+comp_contains(self, x, y, coord_type)
+    VALUE self, x, y, coord_type;
+{
+    return CBOOL2RVAL(atk_component_contains(_SELF(self),
+                                             NUM2INT(x), NUM2INT(y),
+                                             RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE)));
+}
+
+static VALUE
+comp_get_extents(self, coord_type)
+    VALUE self, coord_type;
+{
+    gint x, y, width, height; 
+    atk_component_get_extents(_SELF(self), &x, &y, &width, &height,
+                              RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE));
+    return rb_ary_new3(4, INT2NUM(x), INT2NUM(y), INT2NUM(width), INT2NUM(height));
+}
+
+#ifdef HAVE_ATK_COMPONENT_GET_LAYER
+static VALUE
+comp_get_layer(self)
+    VALUE self;
+{
+    return GENUM2RVAL(atk_component_get_layer(_SELF(self)), ATK_TYPE_LAYER);
+}
+#endif
+
+#ifdef HAVE_ATK_COMPONENT_GET_MDI_ZORDER
+static VALUE
+comp_get_mdi_zorder(self)
+    VALUE self;
+{
+    return INT2NUM(atk_component_get_mdi_zorder(_SELF(self)));
+}
+
+#endif
+static VALUE
+comp_get_position(self, coord_type)
+    VALUE self, coord_type;
+{
+    gint x, y;
+    atk_component_get_position(_SELF(self), &x, &y,
+                               RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE));
+    return rb_assoc_new(INT2NUM(x), INT2NUM(y));
+}
+
+static VALUE
+comp_get_size(self)
+    VALUE self;
+{
+    gint width, height;
+    atk_component_get_size(_SELF(self), &width, &height);
+    return rb_assoc_new(INT2NUM(width), INT2NUM(height));
+}
+
+static VALUE
+comp_grab_focus(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(atk_component_grab_focus(_SELF(self)));
+}
+
+static VALUE
+comp_ref_accessible_at_point(self, x, y, coord_type)
+    VALUE self, x, y, coord_type;
+{
+    return GOBJ2RVAL(atk_component_ref_accessible_at_point(
+                         _SELF(self),
+                         NUM2INT(x), NUM2INT(y),
+                         RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE)));
+}
+
+static VALUE
+comp_remove_focus_handler(self, handler_id)
+    VALUE self, handler_id;
+{
+    atk_component_remove_focus_handler(_SELF(self), NUM2UINT(handler_id));
+    return self;
+}
+
+static VALUE
+comp_set_extents(self, x, y, width, height, coord_type)
+    VALUE self, x, y, width, height, coord_type;
+{
+    gboolean ret = atk_component_set_extents(_SELF(self),
+                                             NUM2INT(x), NUM2INT(y),
+                                             NUM2INT(width), NUM2INT(height),
+                                             RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't set extents");
+    return self;
+}
+
+static VALUE
+comp_set_position(self, x, y, coord_type)
+    VALUE self, x, y, coord_type;
+{
+    gboolean ret = atk_component_set_position(_SELF(self),
+                                              NUM2INT(x), NUM2INT(y),
+                                              RVAL2GENUM(coord_type, ATK_TYPE_COORD_TYPE));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't set the position");
+    return self;
+}
+
+static VALUE
+comp_set_size(self, width, height)
+    VALUE self, width, height;
+{
+    gboolean ret = atk_component_set_size(_SELF(self),
+                                          NUM2INT(width), NUM2INT(height));
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't set the size");
+    return self;
+}
+
+#if ATK_CHECK_VERSION(1,12,0)
+static VALUE
+comp_get_alpha(self)
+    VALUE self;
+{
+    return rb_float_new(atk_component_get_alpha(_SELF(self)));
+}
+#endif
+
+void
+Init_atk_component()
+{
+    VALUE comp = G_DEF_INTERFACE(ATK_TYPE_COMPONENT, "Component", mAtk);
+/*
+    rb_define_method(comp, "add_focus_handler", comp_add_focus_handler, 0);
+*/
+    rb_define_method(comp, "contains?", comp_contains, 3);
+    rb_define_method(comp, "get_extents", comp_get_extents, 1);
+#ifdef HAVE_ATK_COMPONENT_GET_LAYER
+    rb_define_method(comp, "layer", comp_get_layer, 0);
+#endif
+#ifdef HAVE_ATK_COMPONENT_GET_MDI_ZORDER
+    rb_define_method(comp, "mdi_zorder", comp_get_mdi_zorder, 0);
+#endif
+    rb_define_method(comp, "position", comp_get_position, 1);
+    rb_define_method(comp, "size", comp_get_size, 0);
+    rb_define_method(comp, "grab_focus", comp_grab_focus, 0);
+    rb_define_method(comp, "ref_accessible_at_point", comp_ref_accessible_at_point, 3);
+    rb_define_method(comp, "remove_focus_handler", comp_remove_focus_handler, 1);
+    rb_define_method(comp, "set_extents", comp_set_extents, 5);
+    rb_define_method(comp, "set_position", comp_set_position, 2);
+    rb_define_method(comp, "set_size", comp_set_size, 2);
+#if ATK_CHECK_VERSION(1,12,0)
+    rb_define_method(comp, "alpha", comp_get_alpha, 0);
+#endif
+}

data/src/rbatkdocument.c

@@ -0,0 +1,95 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkdocument.c -
+
+  $Author: sakai $
+  $Date: 2007/06/16 09:18:55 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_DOCUMENT(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_document_get_document_type(self)
+    VALUE self;
+{
+    return CSTR2RVAL(atk_document_get_document_type(_SELF(self)));
+}
+
+/*
+How can I implement this?
+static VALUE
+rbatk_document_get_document(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_document_get_document(_SELF(self)));
+}
+*/
+
+#if ATK_CHECK_VERSION(1,12,0)
+static VALUE
+rbatk_document_get_attribute_value(self, name)
+    VALUE self, name;
+{
+    return CSTR2RVAL(atk_document_get_attribute_value(_SELF(self), 
+                                                      (const gchar*)RVAL2CSTR(name)));
+}
+
+static VALUE
+rbatk_document_set_attribute_value(self, name, value)
+    VALUE self, name, value;
+{
+    gboolean ret = atk_document_set_attribute_value(_SELF(self),
+                                                    (const gchar*)RVAL2CSTR(name),
+                                                    (const gchar*)RVAL2CSTR(value));
+
+    if (! ret) rb_raise(rb_eRuntimeError, "Can't set attribute value: %s, %s", 
+                        RVAL2CSTR(name), RVAL2CSTR(value));
+
+    return self;
+}
+
+static VALUE
+rbatk_document_get_attributes(self)
+    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
+rbatk_document_get_locale(self)
+    VALUE self;
+{
+    return CSTR2RVAL(atk_document_get_locale(_SELF(self)));
+}
+#endif
+
+void
+Init_atk_document()
+{
+    VALUE mDoc = G_DEF_INTERFACE(ATK_TYPE_DOCUMENT, "Document", mAtk);
+
+    rb_define_method(mDoc, "document_type", rbatk_document_get_document_type, 0);
+/*
+    rb_define_method(mDoc, "document", rbatk_document_get_document, 0);
+*/
+#if ATK_CHECK_VERSION(1,12,0)
+    rb_define_method(mDoc, "get_attribute_value", rbatk_document_get_attribute_value, 1);
+    rb_define_alias(mDoc, "[]", "get_attribute_value");
+    rb_define_method(mDoc, "set_attribute_value", rbatk_document_set_attribute_value, 2);
+    rb_define_alias(mDoc, "[]=", "set_attribute_value");
+    rb_define_method(mDoc, "attributes", rbatk_document_get_attributes, 0);
+    rb_define_method(mDoc, "locale", rbatk_document_get_locale, 0);
+#endif
+}

data/src/rbatkeditabletext.c

@@ -0,0 +1,102 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkeditabletext.c -
+
+  $Author: sakai $
+  $Date: 2007/06/16 09:24:04 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_EDITABLE_TEXT(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_edit_set_run_attributes(self, attributes, start_offset, end_offset)
+     VALUE self, attributes, start_offset, end_offset;
+{
+    long i;
+    gboolean ret;
+    AtkAttributeSet* list = NULL;
+                                                                                
+    if (NIL_P(attributes)) return Qfalse;
+
+    Check_Type(attributes, T_ARRAY);
+    for (i=0; i<RARRAY_LEN(attributes); i++) {
+        list = g_slist_append(list, RVAL2GOBJ(RARRAY_PTR(attributes)[i]));
+    }
+
+    ret = CBOOL2RVAL(atk_editable_text_set_run_attributes(
+                         _SELF(self), list,
+                         NUM2INT(start_offset), NUM2INT(end_offset)));
+    g_slist_free(list);
+    return ret;
+}
+
+static VALUE
+rbatk_edit_set_text_contents(self, str)
+    VALUE self, str;
+{
+    atk_editable_text_set_text_contents(_SELF(self), RVAL2CSTR(str));
+    return self;
+}
+
+static VALUE
+rbatk_edit_insert_text(self, str, position)
+    VALUE self, str, 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
+rbatk_edit_copy_text(self, start_pos, end_pos)
+    VALUE self, start_pos, end_pos;
+{
+    atk_editable_text_copy_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
+    return self;
+}
+
+static VALUE
+rbatk_edit_cut_text(self, start_pos, end_pos)
+    VALUE self, start_pos, end_pos;
+{
+    atk_editable_text_cut_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
+    return self;
+}
+
+static VALUE
+rbatk_edit_delete_text(self, start_pos, end_pos)
+    VALUE self, start_pos, end_pos;
+{
+    atk_editable_text_delete_text(_SELF(self), NUM2INT(start_pos), NUM2INT(end_pos));
+    return self;
+}
+
+static VALUE
+rbatk_edit_paste_text(self, position)
+    VALUE self, position;
+{
+    atk_editable_text_paste_text(_SELF(self), NUM2INT(position));
+    return self;
+}
+
+void
+Init_atk_editabletext()
+{
+    VALUE editable = G_DEF_INTERFACE(ATK_TYPE_EDITABLE_TEXT, "EditableText", mAtk);
+
+   rb_define_method(editable, "set_run_attributes", rbatk_edit_set_run_attributes, 3);
+   rb_define_method(editable, "set_text_contents", rbatk_edit_set_text_contents, 1);
+   rb_define_method(editable, "insert_text", rbatk_edit_insert_text, 2);
+   rb_define_method(editable, "copy_text", rbatk_edit_copy_text, 2);
+   rb_define_method(editable, "cut_text", rbatk_edit_cut_text, 2);
+   rb_define_method(editable, "delete_text", rbatk_edit_delete_text, 2);
+   rb_define_method(editable, "paste_text", rbatk_edit_paste_text, 1);
+
+   G_DEF_SETTERS(editable);
+}