Completed ChangeLog entries for AT-SPI 1.7.0;
[platform/core/uifw/at-spi2-atk.git] / cspi / spi_accessible.c
index 5afbd0f..f28485e 100644 (file)
+/*
+ * AT-SPI - Assistive Technology Service Provider Interface
+ * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
+ *
+ * Copyright 2001, 2002 Sun Microsystems Inc.,
+ * Copyright 2001, 2002 Ximian, Inc.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
 #include <stdlib.h> /* for malloc */
+#include <libspi/stateset.h>
 #include <cspi/spi-private.h>
 
-#define MAX_ROLES 100
-
-static char *role_names [MAX_ROLES] =
+static const char *role_names [] =
 {
-  " ",
-  "accelerator label",
+  "invalid",
+  "accel-label",
   "alert",
   "animation",
   "arrow",
   "calendar",
   "canvas",
-  "check box",
-  "menu item",
-  "color chooser",
-  "column header",
-  "combo box",
-  "date editor",
-  "desktop icon",
-  "desktop frame",
+  "check-box",
+  "check-menu-item",
+  "color-chooser",
+  "column-header",
+  "combo-box",
+  "date-editor",
+  "desktop-icon",
+  "desktop-frame",
   "dial",
   "dialog",
-  "directory pane",
-  "drawing area",
-  "file chooser",
+  "directory-pane",
+  "drawing-area",
+  "file-chooser",
   "filler",
-  "font chooser",
+  "font-chooser",
   "frame",
-  "glass pane",
-  "HTML container",
+  "glass-pane",
+  "html-container",
   "icon",
   "image",
-  "internal frame",
+  "internalframe",
   "label",
-  "layered pane",
+  "layered-pane",
   "list",
-  "list item",
+  "list-item",
   "menu",
-  "menubar",
-  "menu item",
-  "option pane",
-  "page tab",
-  "page tab list",
+  "menu-bar",
+  "menu-item",
+  "option-pane",
+  "page-tab",
+  "page-tab-list",
   "panel",
-  "password text",
-  "popup menu",
-  "progress bar",
-  "pushbutton",
-  "radiobutton",
-  "radio menu item",
-  "root pane",
-  "row header",
-  "scrollbar",
-  "scrollpane",
+  "password-text",
+  "popup-menu",
+  "progress-bar",
+  "push-button",
+  "radio-button",
+  "radio-menu-item",
+  "root-pane",
+  "row-header",
+  "scroll-bar",
+  "scroll-pane",
   "separator",
   "slider",
-  "split pane",
-  "spin button",
-  "status bar",
+  "spin-button",
+  "split-pane",
+  "statusbar",
   "table",
-  "table cell",
-  "table column header",
-  "table row header",
-  "tearoff menu item",
+  "table-cell",
+  "table-column-header",
+  "table-row-header",
+  "tear-off-menu-item",
+  "terminal",
   "text",
-  "toggle button",
-  "toolbar",
-  "tooltip",
+  "toggle-button",
+  "tool-bar",
+  "tool-tip",
   "tree",
-  " ",
+  "tree-table",
+  "unknown",
   "viewport",
   "window",
+  NULL,
+  "header",
+  "fooler",
+  "paragraph",
+  "ruler",
+  "application"
 };
 
+#define MAX_ROLES (sizeof (role_names) / sizeof (char *))
+
+static SPIBoolean
+cspi_init_role_table (AccessibleRole *role_table)
+{
+  int i;
+  for (i = 0; i < Accessibility_ROLE_LAST_DEFINED; ++i)
+    {
+      role_table [i] = SPI_ROLE_UNKNOWN;
+    }
+  role_table [Accessibility_ROLE_INVALID] = SPI_ROLE_INVALID;
+  role_table [Accessibility_ROLE_ACCELERATOR_LABEL] = SPI_ROLE_ACCEL_LABEL;
+  role_table [Accessibility_ROLE_ALERT] = SPI_ROLE_ALERT;
+  role_table [Accessibility_ROLE_ANIMATION] = SPI_ROLE_ANIMATION;
+  role_table [Accessibility_ROLE_ARROW] = SPI_ROLE_ARROW;
+  role_table [Accessibility_ROLE_CALENDAR] = SPI_ROLE_CALENDAR;
+  role_table [Accessibility_ROLE_CANVAS] = SPI_ROLE_CANVAS;
+  role_table [Accessibility_ROLE_CHECK_BOX] = SPI_ROLE_CHECK_BOX;
+  role_table [Accessibility_ROLE_CHECK_MENU_ITEM] = SPI_ROLE_CHECK_MENU_ITEM;
+  role_table [Accessibility_ROLE_COLOR_CHOOSER] = SPI_ROLE_COLOR_CHOOSER;
+  role_table [Accessibility_ROLE_COLUMN_HEADER] = SPI_ROLE_COLUMN_HEADER;
+  role_table [Accessibility_ROLE_COMBO_BOX] = SPI_ROLE_COMBO_BOX;
+  role_table [Accessibility_ROLE_DATE_EDITOR] = SPI_ROLE_DATE_EDITOR;
+  role_table [Accessibility_ROLE_DESKTOP_ICON] = SPI_ROLE_DESKTOP_ICON;
+  role_table [Accessibility_ROLE_DESKTOP_FRAME] = SPI_ROLE_DESKTOP_FRAME;
+  role_table [Accessibility_ROLE_DIAL] = SPI_ROLE_DIAL;
+  role_table [Accessibility_ROLE_DIALOG] = SPI_ROLE_DIALOG;
+  role_table [Accessibility_ROLE_DIRECTORY_PANE] = SPI_ROLE_DIRECTORY_PANE;
+  role_table [Accessibility_ROLE_DRAWING_AREA] = SPI_ROLE_DRAWING_AREA;
+  role_table [Accessibility_ROLE_FILE_CHOOSER] = SPI_ROLE_FILE_CHOOSER;
+  role_table [Accessibility_ROLE_FILLER] = SPI_ROLE_FILLER;
+  role_table [Accessibility_ROLE_FONT_CHOOSER] = SPI_ROLE_FONT_CHOOSER;
+  role_table [Accessibility_ROLE_FRAME] = SPI_ROLE_FRAME;
+  role_table [Accessibility_ROLE_GLASS_PANE] = SPI_ROLE_GLASS_PANE;
+  role_table [Accessibility_ROLE_HTML_CONTAINER] = SPI_ROLE_HTML_CONTAINER;
+  role_table [Accessibility_ROLE_ICON] = SPI_ROLE_ICON;
+  role_table [Accessibility_ROLE_IMAGE] = SPI_ROLE_IMAGE;
+  role_table [Accessibility_ROLE_INTERNAL_FRAME] = SPI_ROLE_INTERNAL_FRAME;
+  role_table [Accessibility_ROLE_LABEL] = SPI_ROLE_LABEL;
+  role_table [Accessibility_ROLE_LAYERED_PANE] = SPI_ROLE_LAYERED_PANE;
+  role_table [Accessibility_ROLE_LIST] = SPI_ROLE_LIST;
+  role_table [Accessibility_ROLE_LIST_ITEM] = SPI_ROLE_LIST_ITEM;
+  role_table [Accessibility_ROLE_MENU] = SPI_ROLE_MENU;
+  role_table [Accessibility_ROLE_MENU_BAR] = SPI_ROLE_MENU_BAR;
+  role_table [Accessibility_ROLE_MENU_ITEM] = SPI_ROLE_MENU_ITEM;
+  role_table [Accessibility_ROLE_OPTION_PANE] = SPI_ROLE_OPTION_PANE;
+  role_table [Accessibility_ROLE_PAGE_TAB] = SPI_ROLE_PAGE_TAB;
+  role_table [Accessibility_ROLE_PAGE_TAB_LIST] = SPI_ROLE_PAGE_TAB_LIST;
+  role_table [Accessibility_ROLE_PANEL] = SPI_ROLE_PANEL;
+  role_table [Accessibility_ROLE_PASSWORD_TEXT] = SPI_ROLE_PASSWORD_TEXT;
+  role_table [Accessibility_ROLE_POPUP_MENU] = SPI_ROLE_POPUP_MENU;
+  role_table [Accessibility_ROLE_PROGRESS_BAR] = SPI_ROLE_PROGRESS_BAR;
+  role_table [Accessibility_ROLE_PUSH_BUTTON] = SPI_ROLE_PUSH_BUTTON;
+  role_table [Accessibility_ROLE_RADIO_BUTTON] = SPI_ROLE_RADIO_BUTTON;
+  role_table [Accessibility_ROLE_RADIO_MENU_ITEM] = SPI_ROLE_RADIO_MENU_ITEM;
+  role_table [Accessibility_ROLE_ROOT_PANE] = SPI_ROLE_ROOT_PANE;
+  role_table [Accessibility_ROLE_ROW_HEADER] = SPI_ROLE_ROW_HEADER;
+  role_table [Accessibility_ROLE_SCROLL_BAR] = SPI_ROLE_SCROLL_BAR;
+  role_table [Accessibility_ROLE_SCROLL_PANE] = SPI_ROLE_SCROLL_PANE;
+  role_table [Accessibility_ROLE_SEPARATOR] = SPI_ROLE_SEPARATOR;
+  role_table [Accessibility_ROLE_SLIDER] = SPI_ROLE_SLIDER;
+  role_table [Accessibility_ROLE_SPIN_BUTTON] = SPI_ROLE_SPIN_BUTTON;
+  role_table [Accessibility_ROLE_SPLIT_PANE] = SPI_ROLE_SPLIT_PANE;
+  role_table [Accessibility_ROLE_STATUS_BAR] = SPI_ROLE_STATUS_BAR;
+  role_table [Accessibility_ROLE_TABLE] = SPI_ROLE_TABLE;
+  role_table [Accessibility_ROLE_TABLE_CELL] = SPI_ROLE_TABLE_CELL;
+  role_table[Accessibility_ROLE_TABLE_COLUMN_HEADER] = SPI_ROLE_TABLE_COLUMN_HEADER;
+  role_table[Accessibility_ROLE_TABLE_ROW_HEADER] = SPI_ROLE_TABLE_ROW_HEADER;
+  role_table [Accessibility_ROLE_TEAROFF_MENU_ITEM] = SPI_ROLE_TEAROFF_MENU_ITEM;
+  role_table[Accessibility_ROLE_TERMINAL] = SPI_ROLE_TERMINAL;
+  role_table [Accessibility_ROLE_TEXT] = SPI_ROLE_TEXT;
+  role_table [Accessibility_ROLE_TOGGLE_BUTTON] = SPI_ROLE_TOGGLE_BUTTON;
+  role_table [Accessibility_ROLE_TOOL_BAR] = SPI_ROLE_TOOL_BAR;
+  role_table [Accessibility_ROLE_TOOL_TIP] = SPI_ROLE_TOOL_TIP;
+  role_table [Accessibility_ROLE_TREE] = SPI_ROLE_TREE;
+  role_table [Accessibility_ROLE_TREE_TABLE] = SPI_ROLE_TREE_TABLE;
+  role_table [Accessibility_ROLE_VIEWPORT] = SPI_ROLE_VIEWPORT;
+  role_table [Accessibility_ROLE_WINDOW] = SPI_ROLE_WINDOW;
+  role_table [Accessibility_ROLE_EXTENDED] = SPI_ROLE_EXTENDED;
+  role_table [Accessibility_ROLE_HEADER] = SPI_ROLE_HEADER;
+  role_table [Accessibility_ROLE_FOOTER] = SPI_ROLE_FOOTER;
+  role_table [Accessibility_ROLE_PARAGRAPH] = SPI_ROLE_PARAGRAPH;
+  role_table [Accessibility_ROLE_RULER] = SPI_ROLE_RULER;
+  role_table [Accessibility_ROLE_APPLICATION] = SPI_ROLE_APPLICATION;
+  role_table [Accessibility_ROLE_AUTOCOMPLETE] = SPI_ROLE_AUTOCOMPLETE;
+  role_table [Accessibility_ROLE_EDITBAR] = SPI_ROLE_EDITBAR;
+  role_table [Accessibility_ROLE_EMBEDDED] = SPI_ROLE_EMBEDDED;
+
+  return TRUE;
+}
+
+AccessibleRole
+cspi_role_from_spi_role (Accessibility_Role role)
+{
+  /* array is sized according to IDL roles because IDL roles are the index */  
+  static AccessibleRole cspi_role_table [Accessibility_ROLE_LAST_DEFINED];
+  static SPIBoolean is_initialized = FALSE;
+  AccessibleRole cspi_role;
+  if (!is_initialized)
+    {
+      is_initialized = cspi_init_role_table (cspi_role_table);     
+    }
+  if (role >= 0 && role < Accessibility_ROLE_LAST_DEFINED)
+    {
+      cspi_role = cspi_role_table [role];          
+    }
+  else
+    {
+      cspi_role = SPI_ROLE_EXTENDED;
+    }
+  return cspi_role; 
+}
+
+AccessibleAttributeSet *
+cspi_attribute_set_from_sequence (const Accessibility_AttributeSet *seq)
+{
+    AccessibleAttributeSet *set = g_new0 (AccessibleAttributeSet, 1);
+    int i;
+
+    set->len = seq->_length;
+    set->attributes = g_newa (char *, set->len);
+    for (i = 0; i < set->len; ++i)
+    {
+       set->attributes[i] = g_strdup (seq->_buffer [i]);
+    }
+    return set;
+}
+
 /**
  * AccessibleRole_getName:
  * @role: an #AccessibleRole object to query.
  *
  * Get a localizeable string that indicates the name of an #AccessibleRole.
+ * <em>DEPRECATED.</em>
  *
  * Returns: a localizable string name for an #AccessibleRole enumerated type.
  **/
-char*
+char *
 AccessibleRole_getName (AccessibleRole role)
 {
-  if (role < MAX_ROLES) return role_names [(int) role];
-  else return "";
+  if (role < MAX_ROLES && role_names [(int) role])
+    {
+      return CORBA_string_dup (role_names [(int) role]);
+    }
+  else
+    {
+      return CORBA_string_dup ("");
+    }
 }
 
-
-
 /**
  * Accessible_ref:
  * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Increment the reference count for an #Accessible object.
- *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 Accessible_ref (Accessible *obj)
 {
-  Accessibility_Accessible_ref (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "ref");
-  return 0;
+  cspi_object_ref (obj);
 }
 
-
 /**
  * Accessible_unref:
  * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Decrement the reference count for an #Accessible object.
- *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 Accessible_unref (Accessible *obj)
 {
-  Accessibility_Accessible_unref (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "unref");
-  return 0;
+  cspi_object_unref (obj);
 }
 
 /**
@@ -133,15 +285,19 @@ Accessible_unref (Accessible *obj)
  * Get the name of an #Accessible object.
  *
  * Returns: a UTF-8 string indicating the name of the #Accessible object.
- *
+ * or NULL on exception
  **/
 char *
 Accessible_getName (Accessible *obj)
 {
-  char *retval = 
-    (char *)
-    Accessibility_Accessible__get_name (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "getName"); 
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = Accessibility_Accessible__get_name (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getName", NULL); 
+
   return retval;
 }
 
@@ -152,14 +308,20 @@ Accessible_getName (Accessible *obj)
  * Get the description of an #Accessible object.
  *
  * Returns: a UTF-8 string describing the #Accessible object.
- *
+ * or NULL on exception
  **/
 char *
 Accessible_getDescription (Accessible *obj)
 {
-  char *retval = (char *)
-    Accessibility_Accessible__get_description (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "getDescription");
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = Accessibility_Accessible__get_description (CSPI_OBJREF (obj),
+                                              cspi_ev ());
+
+  cspi_return_val_if_ev ("getDescription", NULL); 
+
   return retval;
 }
 
@@ -176,9 +338,16 @@ Accessible_getDescription (Accessible *obj)
 Accessible *
 Accessible_getParent (Accessible *obj)
 {
-  Accessible *retval = 
-      spi_object_add (Accessibility_Accessible__get_parent (*obj, spi_ev ()));
-  spi_check_ev (spi_ev (), "getParent");
+  Accessible *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = cspi_object_add (
+    Accessibility_Accessible__get_parent (CSPI_OBJREF (obj),
+                                         cspi_ev ()));
+
+  cspi_return_val_if_ev ("getParent", NULL); 
+
   return retval;
 }
 
@@ -189,14 +358,21 @@ Accessible_getParent (Accessible *obj)
  * Get the number of children contained by an #Accessible object.
  *
  * Returns: a #long indicating the number of #Accessible children
- *          contained by an #Accessible object.
+ *          contained by an #Accessible object. or -1 on exception
  *
  **/
 long
 Accessible_getChildCount (Accessible *obj)
 {
-  long retval = (long) Accessibility_Accessible__get_childCount (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "getChildCount");
+  long retval;
+
+  cspi_return_val_if_fail (obj != NULL, -1);
+
+  retval = Accessibility_Accessible__get_childCount (CSPI_OBJREF (obj),
+                                             cspi_ev ());
+
+  cspi_return_val_if_ev ("getChildCount", -1); 
+
   return retval;
 }
 
@@ -208,15 +384,21 @@ Accessible_getChildCount (Accessible *obj)
  * Get the #Accessible child of an #Accessible object at a given index.
  *
  * Returns: a pointer to the #Accessible child object at index
- *          @childIndex.
- *
+ *          @childIndex. or NULL on exception
  **/
 Accessible *
 Accessible_getChildAtIndex (Accessible *obj,
-                            long int childIndex)
+                            long int    childIndex)
 {
-  Accessible *retval = spi_object_add (Accessibility_Accessible_getChildAtIndex (*obj, childIndex, spi_ev ()));
-  spi_check_ev (spi_ev (), "getChildAtIndex");
+  Accessible *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = cspi_object_add (
+    Accessibility_Accessible_getChildAtIndex (CSPI_OBJREF (obj),
+                                             childIndex, cspi_ev ()));
+
+  cspi_return_val_if_ev ("getChildAtIndex", NULL);
   return retval;
 }
 
@@ -228,14 +410,18 @@ Accessible_getChildAtIndex (Accessible *obj,
  *
  * Returns: a #long indicating the index of the #Accessible object
  *          in its parent (i.e. containing) #Accessible instance,
- *          or -1 if @obj has no containing parent.
- *
+ *          or -1 if @obj has no containing parent or on exception.
  **/
 long
 Accessible_getIndexInParent (Accessible *obj)
 {
-  long retval = (long) Accessibility_Accessible_getIndexInParent (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "getIndexInParent");
+  long retval;
+
+  cspi_return_val_if_fail (obj != NULL, -1);
+
+  retval = Accessibility_Accessible_getIndexInParent (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getIndexInparent", -1); 
   return retval;
 }
 
@@ -246,27 +432,36 @@ Accessible_getIndexInParent (Accessible *obj)
  * Get the set of #AccessibleRelation objects which describe this #Accessible object's
  *       relationships with other #Accessible objects.
  *
- * Returns: an array of #AccessibleRelation pointers.
- *
+ * Returns: an array of #AccessibleRelation pointers. or NULL on exception
  **/
 AccessibleRelation **
 Accessible_getRelationSet (Accessible *obj)
 {
-  AccessibleRelation **relations;
-  int n_relations;
   int i;
-  Accessibility_RelationSet *relation_set =    
-         Accessibility_Accessible_getRelationSet (*obj, spi_ev ());
+  int n_relations;
+  AccessibleRelation **relations;
+  Accessibility_RelationSet *relation_set;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  g_assert (!cspi_exception ());
+
+  relation_set =
+    Accessibility_Accessible_getRelationSet (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getRelationSet", NULL); 
   
-  /* this looks hack-ish, but it's based on the CORBA C bindings spec */
   n_relations = relation_set->_length;
-  relations = malloc (sizeof (AccessibleRelation *) * n_relations);
+  relations = malloc (sizeof (AccessibleRelation *) * (n_relations + 1));
   
-  for (i=0; i<n_relations; ++i)
+  for (i = 0; i < n_relations; ++i)
     {
-      relations[i] = spi_object_add (relation_set->_buffer[i]);
+      relations[i] = cspi_object_add (CORBA_Object_duplicate (
+             relation_set->_buffer[i], cspi_ev ()));
     }
-  relations[i] = CORBA_OBJECT_NIL;
+  relations[i] = NULL;
+
+  CORBA_free (relation_set);
 
   return relations;
 }
@@ -276,31 +471,156 @@ Accessible_getRelationSet (Accessible *obj)
  * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Get the UI role of an #Accessible object.
+ * A UTF-8 string describing this role can be obtained via Accessible_getRoleName ().
  *
- * Returns: a UTF-8 string indicating the UI role of the #Accessible object.
+ * Returns: the #AccessibleRole of the object.
  *
  **/
-char *
+AccessibleRole
 Accessible_getRole (Accessible *obj)
 {
-  char *retval = AccessibleRole_getName (
-                 Accessibility_Accessible_getRole (*obj, spi_ev ()));
-  spi_check_ev (spi_ev (), "getRole");
+  Accessibility_Role retval;
+
+  cspi_return_val_if_fail (obj != NULL, SPI_ROLE_INVALID);
+
+  retval = 
+    Accessibility_Accessible_getRole (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getRole", SPI_ROLE_INVALID); 
+
+  return cspi_role_from_spi_role (retval);
+}
+
+/**
+ * Accessible_getRoleName:
+ * @obj: a pointer to the #Accessible object on which to operate.
+ *
+ * Get a UTF-8 string describing the role this object plays in the UI.
+ * This method will return useful values for roles that fall outside the
+ * enumeration used in Accessible_getRole ().
+ *
+ * Returns: a UTF-8 string specifying the role of this #Accessible object.
+ *
+ **/
+char *
+Accessible_getRoleName (Accessible *obj)
+{
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, CORBA_string_dup ("invalid"));
+
+  retval = 
+    Accessibility_Accessible_getRoleName (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getRoleName", CORBA_string_dup ("invalid")); 
+
   return retval;
 }
 
 /**
- * Accessible_getStateSet:
+ * Accessible_getLocalizedRoleName:
  * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Not Yet Implemented.
+ * Get a UTF-8 string describing the (localized) role this object plays in the UI.
+ * This method will return useful values for roles that fall outside the
+ * enumeration used in Accessible_getRole ().
+ *
+ * Returns: a UTF-8 string specifying the role of this #Accessible object.
+ *
+ **/
+char *
+Accessible_getLocalizedRoleName (Accessible *obj)
+{
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, CORBA_string_dup ("invalid"));
+
+  retval = 
+    Accessibility_Accessible_getLocalizedRoleName (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getLocalizedRoleName", CORBA_string_dup ("invalid")); 
+
+  return retval;
+}
+
+/**
+ * Accessible_getStateSet:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Returns: a pointer to an #AccessibleStateSet representing the object's current state.
  **/
 AccessibleStateSet *
 Accessible_getStateSet (Accessible *obj)
 {
-  return NULL;
+  AccessibleStateSet *retval;
+  Accessibility_StateSet corba_stateset;
+  Accessibility_StateSeq *corba_seq;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  corba_stateset = Accessibility_Accessible_getState (
+         CSPI_OBJREF (obj), cspi_ev ());
+  cspi_return_val_if_ev ("getState", NULL);
+
+  cspi_return_val_if_fail (corba_stateset != CORBA_OBJECT_NIL, NULL);
+  cspi_return_val_if_fail (cspi_ping (corba_stateset), NULL);
+  corba_seq = Accessibility_StateSet_getStates (corba_stateset, cspi_ev ());
+  cspi_return_val_if_ev ("getState", NULL);
+
+  retval = spi_state_set_cache_new (corba_seq);
+
+  CORBA_free (corba_seq);
+  cspi_release_unref (corba_stateset);
+
+  return retval;
+}
+
+/**
+ * Accessible_getAttributes:
+ * Get the #AttributeSet representing any assigned 
+ * name-value pair attributes or annotations for this object.
+ * For typographic, textual, or textually-semantic attributes, see
+ * AccessibleText_getAttributes instead.
+ * @obj: The #Accessible being queried.
+ * Returns: The name-value-pair attributes assigned to this object.
+ */
+AccessibleAttributeSet *
+Accessible_getAttributes (Accessible *obj)
+{
+    AccessibleAttributeSet *retval;
+    Accessibility_AttributeSet *corba_seq;
+
+    cspi_return_val_if_fail (obj != NULL, NULL);
+
+    corba_seq = Accessibility_Accessible_getAttributes (
+       CSPI_OBJREF (obj), cspi_ev ());
+    cspi_return_val_if_ev ("getAttributes", NULL);
+    
+    retval = cspi_attribute_set_from_sequence (corba_seq);
+    CORBA_free (corba_seq);
+
+    return NULL;
+}
+
+/**
+ * Accessible_getHostApplication:
+ * Get the containing #AccessibleApplication for an object.
+ * @obj: The #Accessible being queried.
+ * Returns: the containing AccessibleApplication instance for this object.
+ */
+AccessibleApplication *
+Accessible_getHostApplication (Accessible *obj)
+{
+    AccessibleApplication *retval;
+
+    cspi_return_val_if_fail (obj != NULL, NULL);
+
+    retval = Accessible_getApplication (cspi_object_add (
+                                           Accessibility_Accessible_getApplication (CSPI_OBJREF (obj),
+                                                                                    cspi_ev ())));
+    cspi_return_val_if_ev ("getApplication", NULL);
+
+    return retval;
 }
 
 /* Interface query methods */
@@ -314,16 +634,27 @@ Accessible_getStateSet (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleAction interface,
  *          #FALSE otherwise.
  **/
-boolean
+SPIBoolean
 Accessible_isAction (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Action:1.0",
-                                             spi_ev ());
-  spi_warn_ev (spi_ev (), "isAction");
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Action:1.0");
+}
 
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+/**
+ * Accessible_isApplication:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Query whether the specified #Accessible implements #AccessibleApplication.
+ *
+ * Returns: #TRUE if @obj implements the #AccessibleApplication interface,
+ *          #FALSE otherwise.
+ **/
+SPIBoolean
+Accessible_isApplication (Accessible *obj)
+{
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Application:1.0");
 }
 
 /**
@@ -335,16 +666,11 @@ Accessible_isAction (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleComponent interface,
  *          #FALSE otherwise.
  **/
-boolean
+SPIBoolean
 Accessible_isComponent (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Component:1.0",
-                                             spi_ev ());
-  spi_warn_ev (spi_ev (), "isComponent");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Component:1.0");
 }
 
 /**
@@ -356,16 +682,11 @@ Accessible_isComponent (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleEditableText interface,
  *          #FALSE otherwise.
  **/
-boolean
+SPIBoolean
 Accessible_isEditableText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/EditableText:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "isEditableText");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/EditableText:1.0");
 }
 
 /**
@@ -377,17 +698,11 @@ Accessible_isEditableText (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleHypertext interface,
  *          #FALSE otherwise.
  **/
-boolean
+SPIBoolean
 Accessible_isHypertext (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Hypertext:1.0",
-                                             spi_ev ());
-
-  spi_check_ev (spi_ev (), "isHypertext");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Hypertext:1.0");
 }
 
 /**
@@ -399,16 +714,11 @@ Accessible_isHypertext (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleImage interface,
  *          #FALSE otherwise.
 **/
-boolean
+SPIBoolean
 Accessible_isImage (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Image:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "isImage");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Image:1.0");
 }
 
 /**
@@ -420,17 +730,11 @@ Accessible_isImage (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleSelection interface,
  *          #FALSE otherwise.
 **/
-boolean
+SPIBoolean
 Accessible_isSelection (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Selection:1.0",
-                                             spi_ev ());
-  spi_warn_ev (spi_ev (), "isSelection");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
-
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Selection:1.0");
 }
 
 /**
@@ -442,17 +746,28 @@ Accessible_isSelection (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleTable interface,
  *          #FALSE otherwise.
 **/
-boolean
+SPIBoolean
 Accessible_isTable (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Table:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "isTable");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Table:1.0");
+}
 
+/**
+ * Accessible_isStreamableContent:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Query whether the specified #Accessible implements
+ *          #AccessibleStreamableContent.
+ *
+ * Returns: #TRUE if @obj implements the #AccessibleStreamableContent interface,
+ *          #FALSE otherwise.
+**/
+SPIBoolean
+Accessible_isStreamableContent (Accessible *obj)
+{
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/StreamableContent:1.0");
 }
 
 /**
@@ -464,16 +779,11 @@ Accessible_isTable (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleText interface,
  *          #FALSE otherwise.
 **/
-boolean
+SPIBoolean
 Accessible_isText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Text:1.0",
-                                             spi_ev ());
-  spi_warn_ev (spi_ev (), "isText");
-
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Text:1.0");
 }
 
 /**
@@ -485,16 +795,27 @@ Accessible_isText (Accessible *obj)
  * Returns: #TRUE if @obj implements the #AccessibleValue interface,
  *          #FALSE otherwise.
 **/
-boolean
+SPIBoolean
 Accessible_isValue (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Value:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "isValue");
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Value:1.0");
+}
 
-  return (CORBA_Object_is_nil (iface, spi_ev ())) ? FALSE : TRUE;
+/**
+ * Accessible_getApplication:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleApplication interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleApplication interface instance, or
+ *          NULL if @obj does not implement #AccessibleApplication.
+ **/
+AccessibleApplication *
+Accessible_getApplication (Accessible *obj)
+{
+  return (AccessibleApplication *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Application:1.0");
 }
 
 /**
@@ -509,13 +830,8 @@ Accessible_isValue (Accessible *obj)
 AccessibleAction *
 Accessible_getAction (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Action:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getAction");
-
-  return (AccessibleAction *) spi_object_add (iface);
+  return (AccessibleAction *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Action:1.0");
 }
 
 /**
@@ -530,13 +846,8 @@ Accessible_getAction (Accessible *obj)
 AccessibleComponent *
 Accessible_getComponent (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Component:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getComponent");
-
-  return (AccessibleComponent *) spi_object_add (iface);
+  return (AccessibleComponent *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Component:1.0");
 }
 
 /**
@@ -551,13 +862,8 @@ Accessible_getComponent (Accessible *obj)
 AccessibleEditableText *
 Accessible_getEditableText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/EditableText:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getEditableText");
-
-  return (AccessibleEditableText *) spi_object_add (iface);
+  return (AccessibleEditableText *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/EditableText:1.0");
 }
 
 
@@ -574,13 +880,8 @@ Accessible_getEditableText (Accessible *obj)
 AccessibleHypertext *
 Accessible_getHypertext (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Hypertext:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getHypertext");
-
-  return (AccessibleHypertext *) spi_object_add (iface);
+  return (AccessibleHypertext *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Hypertext:1.0");
 }
 
 
@@ -597,13 +898,8 @@ Accessible_getHypertext (Accessible *obj)
 AccessibleImage *
 Accessible_getImage (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Image:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getImage");
-
-  return (AccessibleImage *) spi_object_add (iface);
+  return (AccessibleImage *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Image:1.0");
 }
 
 
@@ -620,18 +916,29 @@ Accessible_getImage (Accessible *obj)
 AccessibleSelection *
 Accessible_getSelection (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Selection:1.0",
-                                             spi_ev ());
-  spi_warn_ev (spi_ev (), "getSelection");
-
-  return (AccessibleSelection *) spi_object_add (iface);
+  return (AccessibleSelection *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Selection:1.0");
 }
 
 
 
 /**
+ * Accessible_getStreamableContent:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleStreamableContent interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleStreamableContent interface instance, or
+ *          NULL if @obj does not implement #AccessibleStreamableContent.
+ **/
+AccessibleStreamableContent *
+Accessible_getStreamableContent (Accessible *obj)
+{
+  return (AccessibleStreamableContent *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/StreamableContent:1.0");
+}
+
+/**
  * Accessible_getTable:
  * @obj: a pointer to the #Accessible instance to query.
  *
@@ -643,13 +950,8 @@ Accessible_getSelection (Accessible *obj)
 AccessibleTable *
 Accessible_getTable (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Table:1.0",
-                                             spi_ev ());
-  spi_check_ev (spi_ev (), "getTable");
-
-  return (AccessibleTable *) spi_object_add (iface);
+  return (AccessibleTable *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Table:1.0");
 }
 
 /**
@@ -664,14 +966,8 @@ Accessible_getTable (Accessible *obj)
 AccessibleText *
 Accessible_getText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Text:1.0",
-                                             spi_ev ());
-
-  spi_check_ev (spi_ev (), "getText"); 
-
-  return (AccessibleText *) spi_object_add (iface);
+  return (AccessibleText *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Text:1.0");
 }
 
 
@@ -688,11 +984,8 @@ Accessible_getText (Accessible *obj)
 AccessibleValue *
 Accessible_getValue (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_Accessible_queryInterface (*obj,
-                                             "IDL:Accessibility/Value:1.0",
-                                             spi_ev ());
-  return (AccessibleValue *) spi_object_add (iface);
+  return (AccessibleValue *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Value:1.0");
 }
 
 
@@ -708,14 +1001,34 @@ Accessible_getValue (Accessible *obj)
  *          by @obj, or NULL otherwise.
  *
  **/
-GenericInterface *
-Accessible_queryInterface (Accessible *obj, char *interface_name)
+AccessibleUnknown *
+Accessible_queryInterface (Accessible *obj,
+                          const char *interface_name)
 {
-  GenericInterface iface;
-  iface = Accessibility_Accessible_queryInterface (*obj,
-                                                    interface_name,
-                                                    spi_ev ());
-  return spi_object_add (iface);
+  Bonobo_Unknown iface;
+  
+  if (!obj)
+    {
+      return NULL;
+    }
+
+  iface = Accessibility_Accessible_queryInterface (CSPI_OBJREF (obj),
+                                                  interface_name,
+                                                  cspi_ev ());
+
+
+  cspi_return_val_if_ev ("queryInterface", NULL); 
+
+  /*
+   * FIXME: we need to be fairly sure that references are going
+   * to mach up if we are going to expose QueryInterface, ie. we
+   * can't allow people to do:
+   * b = a.qi ("b"); b.unref, b.unref to release a's reference.
+   * this should be no real problem though for this level of API
+   * user.
+   */
+
+  return cspi_object_add (iface);
 }
 
 
@@ -725,15 +1038,11 @@ Accessible_queryInterface (Accessible *obj, char *interface_name)
  *
  * Increment the reference count for an #AccessibleRelation object.
  *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 AccessibleRelation_ref (AccessibleRelation *obj)
 {
-  Accessibility_Relation_ref (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "ref");
-  return 0;
+  cspi_object_ref (obj);
 }
 
 /**
@@ -742,17 +1051,60 @@ AccessibleRelation_ref (AccessibleRelation *obj)
  *
  * Decrement the reference count for an #AccessibleRelation object.
  *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 AccessibleRelation_unref (AccessibleRelation *obj)
 {
-  Accessibility_Relation_unref (*obj, spi_ev ());
-  spi_check_ev (spi_ev (), "unref");
-  return 0;
+  cspi_object_unref (obj);
+}
+
+static SPIBoolean
+cspi_init_relation_type_table (AccessibleRelationType *relation_type_table)
+{
+  int i;
+  for (i = 0; i < Accessibility_RELATION_LAST_DEFINED; ++i)
+    {
+      relation_type_table [i] = SPI_RELATION_NULL;
+    }
+  relation_type_table [Accessibility_RELATION_NULL] = SPI_RELATION_NULL;
+  relation_type_table [Accessibility_RELATION_LABEL_FOR] = SPI_RELATION_LABEL_FOR;
+  relation_type_table [Accessibility_RELATION_LABELLED_BY] = SPI_RELATION_LABELED_BY;
+  relation_type_table [Accessibility_RELATION_CONTROLLER_FOR] = SPI_RELATION_CONTROLLER_FOR;
+  relation_type_table [Accessibility_RELATION_CONTROLLED_BY] = SPI_RELATION_CONTROLLED_BY;
+  relation_type_table [Accessibility_RELATION_MEMBER_OF] = SPI_RELATION_MEMBER_OF;
+  relation_type_table [Accessibility_RELATION_TOOLTIP_FOR] = SPI_RELATION_NULL;
+  relation_type_table [Accessibility_RELATION_NODE_CHILD_OF] = SPI_RELATION_NODE_CHILD_OF;
+  relation_type_table [Accessibility_RELATION_EXTENDED] = SPI_RELATION_EXTENDED;
+  relation_type_table [Accessibility_RELATION_FLOWS_TO] = SPI_RELATION_FLOWS_TO;
+  relation_type_table [Accessibility_RELATION_FLOWS_FROM] = SPI_RELATION_FLOWS_FROM;
+  relation_type_table [Accessibility_RELATION_SUBWINDOW_OF] = SPI_RELATION_SUBWINDOW_OF;
+  relation_type_table [Accessibility_RELATION_EMBEDS] = SPI_RELATION_EMBEDS;
+  relation_type_table [Accessibility_RELATION_EMBEDDED_BY] = SPI_RELATION_EMBEDDED_BY;
+  relation_type_table [Accessibility_RELATION_POPUP_FOR] = SPI_RELATION_POPUP_FOR;
+  return TRUE;
 }
 
+static AccessibleRelationType
+cspi_relation_type_from_spi_relation_type (Accessibility_RelationType type)
+{
+  /* array is sized according to IDL RelationType because IDL RelationTypes are the index */   
+  static AccessibleRelationType cspi_relation_type_table [Accessibility_RELATION_LAST_DEFINED];
+  static SPIBoolean is_initialized = FALSE;
+  AccessibleRelationType cspi_type;
+  if (!is_initialized)
+    {
+      is_initialized = cspi_init_relation_type_table (cspi_relation_type_table);           
+    }
+  if (type >= 0 && type < Accessibility_RELATION_LAST_DEFINED)
+    {
+      cspi_type = cspi_relation_type_table [type];         
+    }
+  else
+    {
+      cspi_type = SPI_RELATION_NULL;
+    }
+  return cspi_type; 
+}
 /**
  * AccessibleRelation_getRelationType:
  * @obj: a pointer to the #AccessibleRelation object to query.
@@ -766,7 +1118,13 @@ AccessibleRelation_unref (AccessibleRelation *obj)
 AccessibleRelationType
 AccessibleRelation_getRelationType (AccessibleRelation *obj)
 {
-  return 0;
+  Accessibility_RelationType retval;
+  
+  cspi_return_val_if_fail (obj, SPI_RELATION_NULL);
+  retval =
+    Accessibility_Relation_getRelationType (CSPI_OBJREF (obj), cspi_ev());
+  cspi_return_val_if_ev ("getRelationType", SPI_RELATION_NULL);
+  return cspi_relation_type_from_spi_relation_type (retval);
 }
 
 /**
@@ -784,7 +1142,12 @@ AccessibleRelation_getRelationType (AccessibleRelation *obj)
 int
 AccessibleRelation_getNTargets (AccessibleRelation *obj)
 {
-  return 0;
+  int retval;
+  
+  cspi_return_val_if_fail (obj, -1);
+  retval = Accessibility_Relation_getNTargets (CSPI_OBJREF (obj), cspi_ev());
+  cspi_return_val_if_ev ("getNTargets", -1);
+  return retval;
 }
 
 /**
@@ -802,7 +1165,15 @@ AccessibleRelation_getNTargets (AccessibleRelation *obj)
 Accessible *
 AccessibleRelation_getTarget (AccessibleRelation *obj, int i)
 {
-  return NULL;
+  Accessible *retval;
+
+  cspi_return_val_if_fail (obj, NULL);
+
+  retval = cspi_object_add (
+                        Accessibility_Relation_getTarget (CSPI_OBJREF(obj),
+                                                          i, cspi_ev()));
+  cspi_return_val_if_ev ("getTarget", NULL);
+  return retval;
 }
 
 /**
@@ -811,15 +1182,11 @@ AccessibleRelation_getTarget (AccessibleRelation *obj, int i)
  *
  * Increment the reference count for an #AccessibleStateSet object.
  *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 AccessibleStateSet_ref (AccessibleStateSet *obj)
 {
-/*  Accessibility_StateSet_ref (*obj, spi_ev ()); */
-  spi_check_ev (spi_ev (), "ref");
-  return 0;
+  spi_state_set_cache_ref (obj);
 }
 
 /**
@@ -828,17 +1195,58 @@ AccessibleStateSet_ref (AccessibleStateSet *obj)
  *
  * Decrement the reference count for an #AccessibleStateSet object.
  *
- * Returns: (no return code implemented yet).
- *
  **/
-int
+void
 AccessibleStateSet_unref (AccessibleStateSet *obj)
 {
-/*  Accessibility_StateSet_unref (*obj, spi_ev ()); */
-  spi_check_ev (spi_ev (), "unref");
-  return 0;
+  spi_state_set_cache_unref (obj);
 }
 
+static Accessibility_StateType
+spi_state_to_corba (AccessibleState state)
+{
+#define MAP_STATE(a) \
+  case SPI_STATE_##a: \
+    return Accessibility_STATE_##a
+
+  switch (state)
+    {
+      MAP_STATE (INVALID);
+      MAP_STATE (ACTIVE);
+      MAP_STATE (ARMED);
+      MAP_STATE (BUSY);
+      MAP_STATE (CHECKED);
+      MAP_STATE (DEFUNCT);
+      MAP_STATE (EDITABLE);
+      MAP_STATE (ENABLED);
+      MAP_STATE (EXPANDABLE);
+      MAP_STATE (EXPANDED);
+      MAP_STATE (FOCUSABLE);
+      MAP_STATE (FOCUSED);
+      MAP_STATE (HORIZONTAL);
+      MAP_STATE (ICONIFIED);
+      MAP_STATE (MODAL);
+      MAP_STATE (MULTI_LINE);
+      MAP_STATE (MULTISELECTABLE);
+      MAP_STATE (OPAQUE);
+      MAP_STATE (PRESSED);
+      MAP_STATE (RESIZABLE);
+      MAP_STATE (SELECTABLE);
+      MAP_STATE (SELECTED);
+      MAP_STATE (SENSITIVE);
+      MAP_STATE (SHOWING);
+      MAP_STATE (SINGLE_LINE);
+      MAP_STATE (STALE);
+      MAP_STATE (TRANSIENT);
+      MAP_STATE (VERTICAL);
+      MAP_STATE (VISIBLE);
+      MAP_STATE (MANAGES_DESCENDANTS);
+      MAP_STATE (INDETERMINATE);
+    default:
+      return Accessibility_STATE_INVALID;
+  }
+#undef MAP_STATE
+}            
 
 /**
  * AccessibleStateSet_contains:
@@ -853,13 +1261,11 @@ AccessibleStateSet_unref (AccessibleStateSet *obj)
  *          otherwise #FALSE.
  *
  **/
-boolean
+SPIBoolean
 AccessibleStateSet_contains (AccessibleStateSet *obj,
                             AccessibleState state)
 {
-  CORBA_boolean retval = Accessibility_StateSet_contains (*obj, state, spi_ev ());
-  spi_check_ev (spi_ev (), "contains");
-  return (boolean) retval;
+  return spi_state_set_cache_contains (obj, spi_state_to_corba (state));
 }
 
 /**
@@ -875,11 +1281,9 @@ void
 AccessibleStateSet_add (AccessibleStateSet *obj,
                        AccessibleState state)
 {
-  Accessibility_StateSet_add (*obj, state, spi_ev ());
-  spi_check_ev (spi_ev (), "contains");
+  spi_state_set_cache_add (obj, spi_state_to_corba (state));
 }
 
-
 /**
  * AccessibleStateSet_remove:
  * @obj: a pointer to the #AccessibleStateSet object on which to operate.
@@ -893,8 +1297,7 @@ void
 AccessibleStateSet_remove (AccessibleStateSet *obj,
                           AccessibleState state)
 {
-  Accessibility_StateSet_remove (*obj, state, spi_ev ());
-  spi_check_ev (spi_ev (), "contains");
+  spi_state_set_cache_remove (obj, spi_state_to_corba (state));
 }
 
 /**
@@ -912,22 +1315,32 @@ AccessibleStateSet_remove (AccessibleStateSet *obj,
  *          otherwise #FALSE.
  *
  **/
-boolean
+SPIBoolean
 AccessibleStateSet_equals (AccessibleStateSet *obj,
                            AccessibleStateSet *obj2)
 {
-  return Accessibility_StateSet_equals (*obj, *obj2, spi_ev ());
+  SPIBoolean   eq;
+  AtkStateSet *cmp;
+
+  if (obj == obj2)
+    {
+      return TRUE;
+    }
+
+  cmp = spi_state_set_cache_xor (obj, obj2);
+  eq = spi_state_set_cache_is_empty (cmp);
+  spi_state_set_cache_unref (cmp);
+
+  return eq;
 }
 
 /**
  * AccessibleStateSet_compare:
  * @obj: a pointer to the first #AccessibleStateSet object on which to operate.
  * @obj2: a pointer to the second #AccessibleStateSet object on which to operate.
- * @differenceSet: a pointer to an array of #AccessibleStates, which is set when the
- *        fuction returns to point to an array of states representing the states which
- *        the two state sets do not have in common.
  *
  * Determine the differences between two instances of #AccessibleStateSet.
+ * Not Yet Implemented.
  *.
  * @see AccessibleStateSet_equals().
  *
@@ -935,11 +1348,12 @@ AccessibleStateSet_equals (AccessibleStateSet *obj,
  *          the two sets but not the other.
  *
  **/
-void
+AccessibleStateSet *
 AccessibleStateSet_compare (AccessibleStateSet *obj,
-                            AccessibleStateSet *obj2,
-                            AccessibleStateSet **differenceSet);
-
+                            AccessibleStateSet *obj2)
+{
+  return spi_state_set_cache_xor (obj, obj2);
+}
 
 /**
  * AccessibleStateSet_isEmpty:
@@ -951,13 +1365,10 @@ AccessibleStateSet_compare (AccessibleStateSet *obj,
  *          otherwise #FALSE.
  *
  **/
-boolean
+SPIBoolean
 AccessibleStateSet_isEmpty (AccessibleStateSet *obj)
 {
-  return TRUE; 
-  /*  return Accessibility_StateSet_isEmpty (*obj, spi_ev ());*/
+  return spi_state_set_cache_is_empty (obj);
 }
 
 
-
-