2001-12-10 Michael Meeks <michael@ximian.com>
[platform/core/uifw/at-spi2-atk.git] / cspi / spi_accessible.c
index ca47d9d..ca366c1 100644 (file)
@@ -1,34 +1,26 @@
-#define MAX_ROLES 100
+#include <stdlib.h> /* for malloc */
+#include <cspi/spi-private.h>
 
-static char *role_names [MAX_ROLES] =
+static const char *role_names [] =
 {
-  " ",
-  "accelerator label",
+  "<invalid>",
   "alert",
-  "animation",
-  "arrow",
-  "calendar",
   "canvas",
   "check box",
-  "menu item",
   "color chooser",
   "column header",
   "combo box",
-  "date editor",
   "desktop icon",
   "desktop frame",
-  "dial",
   "dialog",
   "directory pane",
-  "drawing area",
   "file chooser",
   "filler",
-  "font chooser",
+  "focus traversable",
   "frame",
   "glass pane",
   "HTML container",
   "icon",
-  "image",
   "internal frame",
   "label",
   "layered pane",
@@ -46,7 +38,6 @@ static char *role_names [MAX_ROLES] =
   "progress bar",
   "pushbutton",
   "radiobutton",
-  "radio menu item",
   "root pane",
   "row header",
   "scrollbar",
@@ -54,227 +45,315 @@ static char *role_names [MAX_ROLES] =
   "separator",
   "slider",
   "split pane",
-  "spin button",
-  "status bar",
   "table",
   "table cell",
   "table column header",
   "table row header",
-  "tearoff menu item",
   "text",
   "toggle button",
   "toolbar",
   "tooltip",
   "tree",
-  " ",
+  "<unknown>",
   "viewport",
   "window",
-};
 
-/*
- * Returns a localizable string name for an AtkRole enumerated type.
- */
-char*
-SpiAccessible_Role_getName (Accessibility_Role role)
-{
-  if (role < MAX_ROLES) return role_names [(int) role];
-  else return "";
-}
+  /* These have no equivalent AccessibleRole enum values */
+  "accelerator label",
+  "animation",
+  "arrow",
+  "calendar",
+  "menu item",
+  "date editor",
+  "dial",
+  "drawing area",
+  "font chooser",
+  "image",
+  "radio menu item",
+  "tearoff menu item",
+  "spin button",
+  "status bar",
+};
 
+#define MAX_ROLES (sizeof (role_names) / sizeof (char *))
 
+/**
+ * AccessibleRole_getName:
+ * @role: an #AccessibleRole object to query.
+ *
+ * Get a localizeable string that indicates the name of an #AccessibleRole.
+ *
+ * Returns: a localizable string name for an #AccessibleRole enumerated type.
+ **/
+const char *
+AccessibleRole_getName (AccessibleRole role)
+{
+  if (role < MAX_ROLES)
+    {
+      return role_names [(int) role];
+    }
+  else
+    {
+      return "";
+    }
+  /*
+   * TODO: replace with implementation linked to ATK, which
+   *  now supports Role/Name mapping
+   */
+}
 
 /**
- * SpiAccessible_ref:
- * @obj: a pointer to the #SpiAccessible object on which to operate.
+ * Accessible_ref:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Increment the reference count for an #SpiAccessible object.
+ * Increment the reference count for an #Accessible object.
  *
  * Returns: (no return code implemented yet).
  *
  **/
-int
-SpiAccessible_ref (SpiAccessible *obj)
+void
+Accessible_ref (Accessible *obj)
 {
-  Accessibility_SpiAccessible_ref (*obj, &ev);
-  spi_check_ev (&ev, "ref");
-  return 0;
+  cspi_object_ref (obj);
 }
 
-
 /**
- * SpiAccessible_unref:
- * @obj: a pointer to the #SpiAccessible object on which to operate.
- *
- * Decrement the reference count for an #SpiAccessible object.
+ * Accessible_unref:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Returns: (no return code implemented yet).
+ * Decrement the reference count for an #Accessible object.
  *
  **/
-int
-SpiAccessible_unref (SpiAccessible *obj)
+void
+Accessible_unref (Accessible *obj)
 {
-  Accessibility_SpiAccessible_unref (*obj, &ev);
-  spi_check_ev (&ev, "unref");
-  return 0;
+  cspi_object_unref (obj);
 }
 
 /**
- * SpiAccessible_getName:
- * @obj: a pointer to the #SpiAccessible object on which to operate.
- *
- * Get the name of an #SpiAccessible object.
+ * Accessible_getName:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Returns: a UTF-8 string indicating the name of the #SpiAccessible object.
+ * Get the name of an #Accessible object.
  *
+ * Returns: a UTF-8 string indicating the name of the #Accessible object.
+ * or NULL on exception
  **/
 char *
-SpiAccessible_getName (SpiAccessible *obj)
+Accessible_getName (Accessible *obj)
 {
-  char *retval = 
-    (char *)
-    Accessibility_SpiAccessible__get_name (*obj, &ev);
-  spi_check_ev (&ev, "getName"); 
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = (char *)
+    Accessibility_Accessible__get_name (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getName", NULL); 
+
   return retval;
 }
 
 /**
- * SpiAccessible_getDescription:
- * @obj: a pointer to the #SpiAccessible object on which to operate.
+ * Accessible_getDescription:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Get the description of an #SpiAccessible object.
- *
- * Returns: a UTF-8 string describing the #SpiAccessible object.
+ * Get the description of an #Accessible object.
  *
+ * Returns: a UTF-8 string describing the #Accessible object.
+ * or NULL on exception
  **/
 char *
-SpiAccessible_getDescription (SpiAccessible *obj)
+Accessible_getDescription (Accessible *obj)
 {
-  char *retval = (char *)
-    Accessibility_SpiAccessible__get_description (*obj, &ev);
-  spi_check_ev (&ev, "getDescription");
+  char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = (char *)
+    Accessibility_Accessible__get_description (CSPI_OBJREF (obj),
+                                              cspi_ev ());
+
+  cspi_return_val_if_ev ("getDescription", NULL); 
+
   return retval;
 }
 
 /**
- * SpiAccessible_getParent:
- * @obj: a pointer to the #SpiAccessible object to query.
+ * Accessible_getParent:
+ * @obj: a pointer to the #Accessible object to query.
  *
- * Get an #SpiAccessible object's parent container.
+ * Get an #Accessible object's parent container.
  *
- * Returns: a pointer tothe #SpiAccessible object which contains the given
- *          #SpiAccessible instance, or NULL if the @obj has no parent container.
+ * Returns: a pointer tothe #Accessible object which contains the given
+ *          #Accessible instance, or NULL if the @obj has no parent container.
  *
  **/
-SpiAccessible *
-SpiAccessible_getParent (SpiAccessible *obj)
+Accessible *
+Accessible_getParent (Accessible *obj)
 {
-  SpiAccessible *retval = 
-      Obj_Add (Accessibility_SpiAccessible__get_parent (*obj, &ev));
-  spi_check_ev (&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;
 }
 
 /**
- * SpiAccessible_getChildCount:
- *
- * @obj: a pointer to the #SpiAccessible object on which to operate.
+ * Accessible_getChildCount:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Get the number of children contained by an #SpiAccessible object.
+ * Get the number of children contained by an #Accessible object.
  *
- * Returns: a #long indicating the number of #SpiAccessible children
- *          contained by an #SpiAccessible object.
+ * Returns: a #long indicating the number of #Accessible children
+ *          contained by an #Accessible object. or -1 on exception
  *
  **/
 long
-SpiAccessible_getChildCount (SpiAccessible *obj)
+Accessible_getChildCount (Accessible *obj)
 {
-  long retval = (long) Accessibility_SpiAccessible__get_childCount (*obj, &ev);
-  spi_check_ev (&ev, "getChildCount");
+  long retval;
+
+  cspi_return_val_if_fail (obj != NULL, -1);
+
+  retval = (long) 
+    Accessibility_Accessible__get_childCount (CSPI_OBJREF (obj),
+                                             cspi_ev ());
+
+  cspi_return_val_if_ev ("getChildCount", -1); 
+
   return retval;
 }
 
 /**
- * SpiAccessible_getChildAtIndex:
- *
- * @obj: a pointer to the #SpiAccessible object on which to operate.
+ * Accessible_getChildAtIndex:
+ * @obj: a pointer to the #Accessible object on which to operate.
  * @childIndex: a #long indicating which child is specified.
  *
- * Get the #SpiAccessible child of an #SpiAccessible object at a given index.
- *
- * Returns: a pointer to the #SpiAccessible child object at index
- *          @childIndex.
+ * Get the #Accessible child of an #Accessible object at a given index.
  *
+ * Returns: a pointer to the #Accessible child object at index
+ *          @childIndex. or NULL on exception
  **/
-SpiAccessible *
-SpiAccessible_getChildAtIndex (SpiAccessible *obj,
-                            long childIndex)
+Accessible *
+Accessible_getChildAtIndex (Accessible *obj,
+                            long int    childIndex)
 {
-  SpiAccessible *retval = Obj_Add (Accessibility_SpiAccessible_getChildAtIndex (*obj, childIndex, &ev));
-  spi_check_ev (&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 ()));
+
   return retval;
 }
 
 /**
- * SpiAccessible_getIndexInParent:
- *
- * @obj: a pointer to the #SpiAccessible object on which to operate.
- *
- * Get the index of an #SpiAccessible object in its containing #SpiAccessible.
+ * Accessible_getIndexInParent:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Returns: a #long indicating the index of the #SpiAccessible object
- *          in its parent (i.e. containing) #SpiAccessible instance,
- *          or -1 if @obj has no containing parent.
+ * Get the index of an #Accessible object in its containing #Accessible.
  *
+ * 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 on exception.
  **/
 long
-SpiAccessible_getIndexInParent (SpiAccessible *obj)
+Accessible_getIndexInParent (Accessible *obj)
 {
-  long retval = (long) Accessibility_SpiAccessible_getIndexInParent (*obj, &ev);
-  spi_check_ev (&ev, "getIndexInParent");
+  long retval;
+
+  cspi_return_val_if_fail (obj != NULL, -1);
+
+  retval = (long)
+    Accessibility_Accessible_getIndexInParent (CSPI_OBJREF (obj), cspi_ev ());
+
+  cspi_return_val_if_ev ("getIndexInparent", -1); 
   return retval;
 }
 
 /**
- * SpiAccessible_getRelationSet:
- *
- * Not Yet Implemented.
+ * Accessible_getRelationSet:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Returns: a pointer to an array of #SpiAccessibleRelations.
+ * Get the set of #AccessibleRelation objects which describe this #Accessible object's
+ *       relationships with other #Accessible objects.
  *
+ * Returns: an array of #AccessibleRelation pointers. or NULL on exception
  **/
-SpiAccessibleRelation **
-SpiAccessible_getRelationSet (SpiAccessible *obj)
-{
-  return NULL;
+AccessibleRelation **
+Accessible_getRelationSet (Accessible *obj)
+{
+  int i;
+  int n_relations;
+  AccessibleRelation **relations;
+  Accessibility_RelationSet *relation_set;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  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);
+  
+  for (i = 0; i < n_relations; ++i)
+    {
+      relations[i] = cspi_object_add (CORBA_Object_duplicate (
+             relation_set->_buffer[i], cspi_ev ()));
+    }
+  relations[i] = CORBA_OBJECT_NIL;
+
+  CORBA_free (relation_set);
+
+  return relations;
 }
 
 /**
- * SpiAccessible_getRole:
- * @obj: a pointer to the #SpiAccessible object on which to operate.
+ * Accessible_getRole:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
- * Get the UI role of an #SpiAccessible object.
+ * Get the UI role of an #Accessible object.
  *
- * Returns: a UTF-8 string indicating the UI role of the #SpiAccessible object.
+ * Returns: a UTF-8 string indicating the UI role of the #Accessible object.
  *
  **/
-char *
-SpiAccessible_getRole (SpiAccessible *obj)
+const char *
+Accessible_getRole (Accessible *obj)
 {
-  char *retval = SpiAccessible_Role_getName (
-                 Accessibility_SpiAccessible_getRole (*obj, &ev));
-  spi_check_ev (&ev, "getRole");
+  const char *retval;
+
+  cspi_return_val_if_fail (obj != NULL, NULL);
+
+  retval = AccessibleRole_getName (
+    Accessibility_Accessible_getRole (CSPI_OBJREF (obj), cspi_ev ()));
+
+  cspi_return_val_if_ev ("getRole", NULL); 
+
   return retval;
 }
 
 /**
- * SpiAccessible_getStateSet:
+ * Accessible_getStateSet:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Not Yet Implemented.
  *
- * Returns: a pointer to an #SpiAccessibleStateSet representing the object's current state.
+ * Returns: a pointer to an #AccessibleStateSet representing the object's current state.
  **/
-SpiAccessibleStateSet *
-SpiAccessible_getStateSet (SpiAccessible *obj)
+AccessibleStateSet *
+Accessible_getStateSet (Accessible *obj)
 {
   return NULL;
 }
@@ -282,365 +361,629 @@ SpiAccessible_getStateSet (SpiAccessible *obj)
 /* Interface query methods */
 
 /**
- * SpiAccessible_isSpiAction:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isAction:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleAction.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleAction.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleAction interface,
+ * Returns: #TRUE if @obj implements the #AccessibleAction interface,
  *          #FALSE otherwise.
  **/
-boolean
-SpiAccessible_isSpiAction (SpiAccessible *obj)
+SPIBoolean
+Accessible_isAction (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiAction:1.0",
-                                             &ev);
-  spi_warn_ev (&ev, "isSpiAction");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Action:1.0");
 }
 
 /**
- * SpiAccessible_isSpiComponent:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isApplication:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleComponent.
+ * Query whether the specified #Accessible implements #AccessibleApplication.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleComponent interface,
+ * Returns: #TRUE if @obj implements the #AccessibleApplication interface,
  *          #FALSE otherwise.
  **/
-boolean
-SpiAccessible_isSpiComponent (SpiAccessible *obj)
+SPIBoolean
+Accessible_isApplication (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiComponent:1.0",
-                                             &ev);
-  spi_warn_ev (&ev, "isSpiComponent");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Application:1.0");
 }
 
 /**
- * SpiAccessible_isSpiEditableText:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isComponent:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleEditableText.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleComponent.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleEditableText interface,
+ * Returns: #TRUE if @obj implements the #AccessibleComponent interface,
  *          #FALSE otherwise.
  **/
-boolean
-SpiAccessible_isSpiEditableText (SpiAccessible *obj)
+SPIBoolean
+Accessible_isComponent (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiEditableText:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "isSpiEditableText");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Component:1.0");
 }
 
 /**
- * SpiAccessible_isSpiHypertext:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isEditableText:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleHypertext.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleEditableText.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleHypertext interface,
+ * Returns: #TRUE if @obj implements the #AccessibleEditableText interface,
  *          #FALSE otherwise.
  **/
-boolean
-SpiAccessible_isSpiHypertext (SpiAccessible *obj)
+SPIBoolean
+Accessible_isEditableText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiHypertext:1.0",
-                                             &ev);
-
-  spi_check_ev (&ev, "isSpiHypertext");
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/EditableText:1.0");
+}
 
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+/**
+ * Accessible_isHypertext:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Query whether the specified #Accessible implements #AccessibleHypertext.
+ *
+ * Returns: #TRUE if @obj implements the #AccessibleHypertext interface,
+ *          #FALSE otherwise.
+ **/
+SPIBoolean
+Accessible_isHypertext (Accessible *obj)
+{
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Hypertext:1.0");
 }
 
 /**
- * SpiAccessible_isSpiImage:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isImage:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleImage.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleImage.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleImage interface,
+ * Returns: #TRUE if @obj implements the #AccessibleImage interface,
  *          #FALSE otherwise.
 **/
-boolean
-SpiAccessible_isSpiImage (SpiAccessible *obj)
+SPIBoolean
+Accessible_isImage (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiImage:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "isSpiImage");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Image:1.0");
 }
 
 /**
 * SpiAccessible_isSpiSelection:
- * @obj: a pointer to the #SpiAccessible instance to query.
* Accessible_isSelection:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleSelection.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleSelection.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleSelection interface,
+ * Returns: #TRUE if @obj implements the #AccessibleSelection interface,
  *          #FALSE otherwise.
 **/
-boolean
-SpiAccessible_isSpiSelection (SpiAccessible *obj)
+SPIBoolean
+Accessible_isSelection (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiSelection:1.0",
-                                             &ev);
-  spi_warn_ev (&ev, "isSpiSelection");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
-
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Selection:1.0");
 }
 
 /**
- * SpiAccessible_isSpiTable:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isTable:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleTable.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleTable.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleTable interface,
+ * Returns: #TRUE if @obj implements the #AccessibleTable interface,
  *          #FALSE otherwise.
 **/
-boolean
-SpiAccessible_isSpiTable (SpiAccessible *obj)
+SPIBoolean
+Accessible_isTable (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiTable:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "isSpiTable");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
-
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Table:1.0");
 }
 
 /**
- * SpiAccessible_isSpiText:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isText:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleText.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleText.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleText interface,
+ * Returns: #TRUE if @obj implements the #AccessibleText interface,
  *          #FALSE otherwise.
 **/
-boolean
-SpiAccessible_isSpiText (SpiAccessible *obj)
+SPIBoolean
+Accessible_isText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiText:1.0",
-                                             &ev);
-  spi_warn_ev (&ev, "isSpiText");
-
-  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Text:1.0");
 }
 
 /**
- * SpiAccessible_isSpiValue:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_isValue:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Query whether the specified #SpiAccessible implements #SpiAccessibleValue.
- * Not Yet Implemented.
+ * Query whether the specified #Accessible implements #AccessibleValue.
  *
- * Returns: #TRUE if @obj implements the #SpiAccessibleValue interface,
+ * Returns: #TRUE if @obj implements the #AccessibleValue interface,
  *          #FALSE otherwise.
 **/
-boolean
-SpiAccessible_isSpiValue (SpiAccessible *obj)
+SPIBoolean
+Accessible_isValue (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiValue:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "isSpiValue");
+  return cspi_accessible_is_a (obj,
+                             "IDL:Accessibility/Value:1.0");
+}
 
-  return (CORBA_Object_is_nil (iface, &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");
 }
 
 /**
- * SpiAccessible_getAction:
+ * Accessible_getAction:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Not Yet Implemented.
+ * Get the #AccessibleAction interface for an #Accessible.
  *
+ * Returns: a pointer to an #AccessibleAction interface instance, or
+ *          NULL if @obj does not implement #AccessibleAction.
  **/
-SpiAccessibleAction *
-SpiAccessible_getAction (SpiAccessible *obj)
+AccessibleAction *
+Accessible_getAction (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiAction:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getAction");
+  return (AccessibleAction *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Action:1.0");
+}
 
-  return (SpiAccessibleAction *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+/**
+ * Accessible_getComponent:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleComponent interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleComponent interface instance, or
+ *          NULL if @obj does not implement #AccessibleComponent.
+ **/
+AccessibleComponent *
+Accessible_getComponent (Accessible *obj)
+{
+  return (AccessibleComponent *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Component:1.0");
 }
 
 /**
- * SpiAccessible_getComponent:
- * @obj: a pointer to the #SpiAccessible instance to query.
+ * Accessible_getEditableText:
+ * @obj: a pointer to the #Accessible instance to query.
  *
- * Get the #SpiAccessibleComponent interface for an #SpiAccessible.
+ * Get the #AccessibleEditableText interface for an #Accessible.
  *
- * Returns: a pointer to an #SpiAccessibleComponent interface instance, or
- *          NULL if @obj does not implement #SpiAccessibleComponent.
+ * Returns: a pointer to an #AccessibleEditableText interface instance, or
+ *          NULL if @obj does not implement #AccessibleEditableText.
  **/
-SpiAccessibleComponent *
-SpiAccessible_getComponent (SpiAccessible *obj)
+AccessibleEditableText *
+Accessible_getEditableText (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiComponent:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getComponent");
+  return (AccessibleEditableText *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/EditableText:1.0");
+}
 
-  return (SpiAccessibleComponent *) ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+
+
+/**
+ * Accessible_getHypertext:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleHypertext interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleHypertext interface instance, or
+ *          NULL if @obj does not implement #AccessibleHypertext.
+ **/
+AccessibleHypertext *
+Accessible_getHypertext (Accessible *obj)
+{
+  return (AccessibleHypertext *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Hypertext:1.0");
 }
 
-SpiAccessibleEditableText *
-SpiAccessible_getEditableText (SpiAccessible *obj)
+
+
+/**
+ * Accessible_getImage:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleImage interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleImage interface instance, or
+ *          NULL if @obj does not implement #AccessibleImage.
+ **/
+AccessibleImage *
+Accessible_getImage (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiEditableText:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getEditableText");
+  return (AccessibleImage *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Image:1.0");
+}
+
 
-  return (SpiAccessibleEditableText *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+
+/**
+ * Accessible_getSelection:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleSelection interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleSelection interface instance, or
+ *          NULL if @obj does not implement #AccessibleSelection.
+ **/
+AccessibleSelection *
+Accessible_getSelection (Accessible *obj)
+{
+  return (AccessibleSelection *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Selection:1.0");
 }
 
 
 
-SpiAccessibleHypertext *
-SpiAccessible_getHypertext (SpiAccessible *obj)
+/**
+ * Accessible_getTable:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleTable interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleTable interface instance, or
+ *          NULL if @obj does not implement #AccessibleTable.
+ **/
+AccessibleTable *
+Accessible_getTable (Accessible *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiHypertext:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getHypertext");
+  return (AccessibleTable *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Table:1.0");
+}
 
-  return (SpiAccessibleHypertext *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+/**
+ * Accessible_getText:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleText interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleText interface instance, or
+ *          NULL if @obj does not implement #AccessibleText.
+ **/
+AccessibleText *
+Accessible_getText (Accessible *obj)
+{
+  return (AccessibleText *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Text:1.0");
+}
+
+
+
+/**
+ * Accessible_getValue:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleValue interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleValue interface instance, or
+ *          NULL if @obj does not implement #AccessibleValue.
+ **/
+AccessibleValue *
+Accessible_getValue (Accessible *obj)
+{
+  return (AccessibleValue *) Accessible_queryInterface (
+         obj, "IDL:Accessibility/Value:1.0");
 }
 
 
 
-SpiAccessibleImage *
-SpiAccessible_getImage (SpiAccessible *obj)
+/**
+ * Accessible_queryInterface:
+ * @obj: a pointer to the #Accessible instance to query.
+ * @interface_name: a UTF-8 character string specifiying the requested interface.
+ *
+ * Query an #Accessible object to for a named interface.
+ *
+ * Returns: an instance of the named interface object, if it is implemented
+ *          by @obj, or NULL otherwise.
+ *
+ **/
+GenericInterface *
+Accessible_queryInterface (Accessible *obj,
+                          const char *interface_name)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiImage:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getImage");
+  Bonobo_Unknown iface;
+  
+  if (!obj)
+    {
+      return NULL;
+    }
+
+  iface = Accessibility_Accessible_queryInterface (CSPI_OBJREF (obj),
+                                                  interface_name,
+                                                  cspi_ev ());
 
-  return (SpiAccessibleImage *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+
+  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);
 }
 
 
+/**
+ * AccessibleRelation_ref:
+ * @obj: a pointer to the #AccessibleRelation object on which to operate.
+ *
+ * Increment the reference count for an #AccessibleRelation object.
+ *
+ * Returns: (no return code implemented yet).
+ **/
+void
+AccessibleRelation_ref (AccessibleRelation *obj)
+{
+  cspi_object_ref (obj);
+}
 
-SpiAccessibleSelection *
-SpiAccessible_getSelection (SpiAccessible *obj)
+/**
+ * AccessibleRelation_unref:
+ * @obj: a pointer to the #AccessibleRelation object on which to operate.
+ *
+ * Decrement the reference count for an #AccessibleRelation object.
+ *
+ * Returns: (no return code implemented yet).
+ **/
+void
+AccessibleRelation_unref (AccessibleRelation *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiSelection:1.0",
-                                             &ev);
-  spi_warn_ev (&ev, "getSelection");
+  cspi_object_unref (obj);
+}
 
-  return (SpiAccessibleSelection *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+/**
+ * AccessibleRelation_getRelationType:
+ * @obj: a pointer to the #AccessibleRelation object to query.
+ *
+ * Get the type of relationship represented by an #AccessibleRelation.
+ *
+ * Returns: an #AccessibleRelationType indicating the type of relation
+ *         encapsulated in this #AccessibleRelation object.
+ *
+ **/
+AccessibleRelationType
+AccessibleRelation_getRelationType (AccessibleRelation *obj)
+{
+  cspi_return_val_if_fail (obj != NULL, -1);
+  return 0;
 }
 
+/**
+ * AccessibleRelation_getNTargets:
+ * @obj: a pointer to the #AccessibleRelation object to query.
+ *
+ * Get the number of objects which this relationship has as its
+ *       target objects (the subject is the #Accessible from which this
+ *       #AccessibleRelation originated).
+ *
+ * Returns: a short integer indicating how many target objects which the
+ *       originating #Accessible object has the #AccessibleRelation
+ *       relationship with.
+ **/
+int
+AccessibleRelation_getNTargets (AccessibleRelation *obj)
+{
+  cspi_return_val_if_fail (obj != NULL, -1);
+  return 0;
+}
 
+/**
+ * AccessibleRelation_getTarget:
+ * @obj: a pointer to the #AccessibleRelation object to query.
+ * @i: a (zero-index) integer indicating which (of possibly several) target is requested.
+ *
+ * Get the @i-th target of a specified #AccessibleRelation relationship.
+ *
+ * Returns: an #Accessible which is the @i-th object with which the
+ *      originating #Accessible has relationship specified in the
+ *      #AccessibleRelation object.
+ *
+ **/
+Accessible *
+AccessibleRelation_getTarget (AccessibleRelation *obj, int i)
+{
+  cspi_return_val_if_fail (obj != NULL, NULL);
+  return NULL;
+}
 
-SpiAccessibleTable *
-SpiAccessible_getTable (SpiAccessible *obj)
+/**
+ * AccessibleStateSet_ref:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ *
+ * Increment the reference count for an #AccessibleStateSet object.
+ *
+ * Returns: (no return code implemented yet).
+ *
+ **/
+void
+AccessibleStateSet_ref (AccessibleStateSet *obj)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiTable:1.0",
-                                             &ev);
-  spi_check_ev (&ev, "getTable");
+  cspi_object_ref (obj);
+}
 
-  return (SpiAccessibleTable *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+/**
+ * AccessibleStateSet_unref:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ *
+ * Decrement the reference count for an #AccessibleStateSet object.
+ *
+ * Returns: (no return code implemented yet).
+ *
+ **/
+void
+AccessibleStateSet_unref (AccessibleStateSet *obj)
+{
+  cspi_object_unref (obj);
 }
 
-SpiAccessibleText *
-SpiAccessible_getText (SpiAccessible *obj)
+/**
+ * AccessibleStateSet_contains:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ * @state: an #AccessibleState for which the specified #AccessibleStateSet
+ *       will be queried.
+ *
+ * Determine whether a given #AccessibleStateSet includes a given state; that is,
+ *       whether @state is true for the stateset in question.
+ *
+ * Returns: #TRUE if @state is true/included in the given #AccessibleStateSet,
+ *          otherwise #FALSE.
+ *
+ **/
+SPIBoolean
+AccessibleStateSet_contains (AccessibleStateSet *obj,
+                            AccessibleState state)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiText:1.0",
-                                             &ev);
+  CORBA_boolean retval;
+
+  cspi_return_val_if_fail (obj != NULL, FALSE);
 
-  spi_check_ev (&ev, "getText"); 
+  retval = Accessibility_StateSet_contains (CSPI_OBJREF (obj),
+                                           state, cspi_ev ());
 
-  return (SpiAccessibleText *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+  cspi_return_val_if_ev ("contains", FALSE);
+
+  return (SPIBoolean) retval;
 }
 
+/**
+ * AccessibleStateSet_add:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ * @state: an #AccessibleState to be added to the specified #AccessibleStateSet
+ *
+ * Add a particular #AccessibleState to an #AccessibleStateSet (i.e. set the
+ *       given state to #TRUE in the stateset.
+ *
+ **/
+void
+AccessibleStateSet_add (AccessibleStateSet *obj,
+                       AccessibleState state)
+{
+  cspi_return_if_fail (obj != NULL);
 
+  Accessibility_StateSet_add (CSPI_OBJREF (obj), state, cspi_ev ());
+  cspi_check_ev ("add");
+}
 
-SpiAccessibleValue *
-SpiAccessible_getValue (SpiAccessible *obj)
+/**
+ * AccessibleStateSet_remove:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ * @state: an #AccessibleState to be removed from the specified #AccessibleStateSet
+ *
+ * Remove a particular #AccessibleState to an #AccessibleStateSet (i.e. set the
+ *       given state to #FALSE in the stateset.)
+ *
+ **/
+void
+AccessibleStateSet_remove (AccessibleStateSet *obj,
+                          AccessibleState state)
 {
-  Bonobo_Unknown iface =
-    Accessibility_SpiAccessible_queryInterface (*obj,
-                                             "IDL:Accessibility/SpiValue:1.0",
-                                             &ev);
-  return (SpiAccessibleValue *)
-         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+  cspi_return_if_fail (obj != NULL);
+
+  Accessibility_StateSet_remove (CSPI_OBJREF (obj), state, cspi_ev ());
+  cspi_check_ev ("remove");
 }
 
+/**
+ * AccessibleStateSet_equals:
+ * @obj: a pointer to the first #AccessibleStateSet object on which to operate.
+ * @obj2: a pointer to the second #AccessibleStateSet object on which to operate.
+ *
+ * Determine whether two instances of #AccessibleStateSet are equivalent (i.e.
+ *         consist of the same #AccessibleStates).  Useful for checking multiple
+ *         state variables at once; construct the target state then compare against it.
+ *
+ * @see AccessibleStateSet_compare().
+ *
+ * Returns: #TRUE if the two #AccessibleStateSets are equivalent,
+ *          otherwise #FALSE.
+ *
+ **/
+SPIBoolean
+AccessibleStateSet_equals (AccessibleStateSet *obj,
+                           AccessibleStateSet *obj2)
+{
+  if (obj == obj2)
+    {
+      return TRUE;
+    }
 
+  cspi_return_val_if_fail (obj != NULL, FALSE);
+  cspi_return_val_if_fail (obj2 != NULL, FALSE);
+
+  return Accessibility_StateSet_equals (CSPI_OBJREF (obj),
+                                       CSPI_OBJREF (obj2), cspi_ev ());
+}
 
 /**
- * SpiAccessible_queryInterface:
- * @obj: a pointer to the #SpiAccessible instance to query.
- * @interface_name: a UTF-8 character string specifiying the requested interface.
+ * 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.
  *
- * Query an #SpiAccessible object to for a named interface.
+ * Determine the differences between two instances of #AccessibleStateSet.
+ * Not Yet Implemented.
+ *.
+ * @see AccessibleStateSet_equals().
  *
- * Returns: an instance of the named interface object, if it is implemented
- *          by @obj, or NULL otherwise.
+ * Returns: an #AccessibleStateSet object containing all states contained on one of
+ *          the two sets but not the other.
  *
  **/
-GenericInterface *
-SpiAccessible_queryInterface (SpiAccessible *obj, char *interface_name)
+AccessibleStateSet *
+AccessibleStateSet_compare (AccessibleStateSet *obj,
+                            AccessibleStateSet *obj2)
+{
+  cspi_return_val_if_fail (obj != NULL, NULL);
+  cspi_return_val_if_fail (obj2 != NULL, NULL);
+  return NULL; 
+}
+
+/**
+ * AccessibleStateSet_isEmpty:
+ * @obj: a pointer to the #AccessibleStateSet object on which to operate.
+ *
+ * Determine whether a given #AccessibleStateSet is the empty set.
+ *
+ * Returns: #TRUE if the given #AccessibleStateSet contains no (true) states,
+ *          otherwise #FALSE.
+ *
+ **/
+SPIBoolean
+AccessibleStateSet_isEmpty (AccessibleStateSet *obj)
 {
-  GenericInterface iface;
-  iface = Accessibility_SpiAccessible_queryInterface (*obj,
-                                                    interface_name,
-                                                    &ev);
-  return (iface != NULL) ? Obj_Add (iface) : NULL;
+  cspi_return_val_if_fail (obj != NULL, FALSE);
+  return TRUE; 
+  /*  return Accessibility_StateSet_isEmpty (CSPI_OBJREF (obj), cspi_ev ());*/
 }
 
+