Renamed SpiAccessibleEventListener to (just) SpiEventListener.
[platform/core/uifw/at-spi2-atk.git] / cspi / spi_accessible.c
index c34d7a3..b98f835 100644 (file)
@@ -1,9 +1,87 @@
+#define MAX_ROLES 100
+
+static char *role_names [MAX_ROLES] =
+{
+  " ",
+  "accelerator label",
+  "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",
+  "frame",
+  "glass pane",
+  "HTML container",
+  "icon",
+  "image",
+  "internal frame",
+  "label",
+  "layered pane",
+  "list",
+  "list item",
+  "menu",
+  "menubar",
+  "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",
+  "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",
+  " ",
+  "viewport",
+  "window",
+};
 
 /*
- *
- * Accessible function prototypes
- *
+ * Returns a localizable string name for an AtkRole enumerated type.
  */
+char*
+Accessible_Role_getName (Accessibility_Role role)
+{
+  if (role < MAX_ROLES) return role_names [(int) role];
+  else return "";
+}
+
+
 
 /**
  * Accessible_ref:
@@ -18,6 +96,7 @@ int
 Accessible_ref (Accessible *obj)
 {
   Accessibility_Accessible_ref (*obj, &ev);
+  spi_check_ev (&ev, "ref");
   return 0;
 }
 
@@ -35,6 +114,7 @@ int
 Accessible_unref (Accessible *obj)
 {
   Accessibility_Accessible_unref (*obj, &ev);
+  spi_check_ev (&ev, "unref");
   return 0;
 }
 
@@ -50,7 +130,11 @@ Accessible_unref (Accessible *obj)
 char *
 Accessible_getName (Accessible *obj)
 {
-  return Accessibility_Accessible__get_name (*obj, &ev);
+  char *retval = 
+    (char *)
+    Accessibility_Accessible__get_name (*obj, &ev);
+  spi_check_ev (&ev, "getName"); 
+  return retval;
 }
 
 /**
@@ -65,7 +149,10 @@ Accessible_getName (Accessible *obj)
 char *
 Accessible_getDescription (Accessible *obj)
 {
-  return Accessibility_Accessible__get_description (*obj, &ev);
+  char *retval = (char *)
+    Accessibility_Accessible__get_description (*obj, &ev);
+  spi_check_ev (&ev, "getDescription");
+  return retval;
 }
 
 /**
@@ -74,19 +161,21 @@ Accessible_getDescription (Accessible *obj)
  *
  * Get an #Accessible object's parent container.
  *
- * Returns: a pointer to the #Accessible object which contains the given
+ * Returns: a pointer tothe #Accessible object which contains the given
  *          #Accessible instance, or NULL if the @obj has no parent container.
  *
  **/
 Accessible *
 Accessible_getParent (Accessible *obj)
 {
-  return Obj_Add (Accessibility_Accessible__get_parent (*obj, &ev));
+  Accessible *retval = 
+      Obj_Add (Accessibility_Accessible__get_parent (*obj, &ev));
+  spi_check_ev (&ev, "getParent");
+  return retval;
 }
 
 /**
  * Accessible_getChildCount:
- *
  * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Get the number of children contained by an #Accessible object.
@@ -98,12 +187,13 @@ Accessible_getParent (Accessible *obj)
 long
 Accessible_getChildCount (Accessible *obj)
 {
-  return Accessibility_Accessible__get_childCount (*obj, &ev);
+  long retval = (long) Accessibility_Accessible__get_childCount (*obj, &ev);
+  spi_check_ev (&ev, "getChildCount");
+  return retval;
 }
 
 /**
  * Accessible_getChildAtIndex:
- *
  * @obj: a pointer to the #Accessible object on which to operate.
  * @childIndex: a #long indicating which child is specified.
  *
@@ -115,14 +205,15 @@ Accessible_getChildCount (Accessible *obj)
  **/
 Accessible *
 Accessible_getChildAtIndex (Accessible *obj,
-                            long childIndex)
+                            long int childIndex)
 {
-  return Obj_Add (Accessibility_Accessible_getChildAtIndex (*obj, childIndex, &ev));
+  Accessible *retval = Obj_Add (Accessibility_Accessible_getChildAtIndex (*obj, childIndex, &ev));
+  spi_check_ev (&ev, "getChildAtIndex");
+  return retval;
 }
 
 /**
  * Accessible_getIndexInParent:
- *
  * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Get the index of an #Accessible object in its containing #Accessible.
@@ -135,11 +226,14 @@ Accessible_getChildAtIndex (Accessible *obj,
 long
 Accessible_getIndexInParent (Accessible *obj)
 {
-  return Accessibility_Accessible_getIndexInParent (*obj, &ev);
+  long retval = (long) Accessibility_Accessible_getIndexInParent (*obj, &ev);
+  spi_check_ev (&ev, "getIndexInParent");
+  return retval;
 }
 
 /**
  * Accessible_getRelationSet:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Not Yet Implemented.
  *
@@ -164,11 +258,15 @@ Accessible_getRelationSet (Accessible *obj)
 char *
 Accessible_getRole (Accessible *obj)
 {
-  return "";
+  char *retval = Accessible_Role_getName (
+                 Accessibility_Accessible_getRole (*obj, &ev));
+  spi_check_ev (&ev, "getRole");
+  return retval;
 }
 
 /**
  * Accessible_getStateSet:
+ * @obj: a pointer to the #Accessible object on which to operate.
  *
  * Not Yet Implemented.
  *
@@ -187,7 +285,6 @@ Accessible_getStateSet (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleAction.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleAction interface,
  *          #FALSE otherwise.
@@ -195,7 +292,13 @@ Accessible_getStateSet (Accessible *obj)
 boolean
 Accessible_isAction (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Action:1.0",
+                                             &ev);
+  spi_warn_ev (&ev, "isAction");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
@@ -214,7 +317,9 @@ Accessible_isComponent (Accessible *obj)
     Accessibility_Accessible_queryInterface (*obj,
                                              "IDL:Accessibility/Component:1.0",
                                              &ev);
-  return (iface != NULL) ? TRUE : FALSE;
+  spi_warn_ev (&ev, "isComponent");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
@@ -222,7 +327,6 @@ Accessible_isComponent (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleEditableText.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleEditableText interface,
  *          #FALSE otherwise.
@@ -230,7 +334,13 @@ Accessible_isComponent (Accessible *obj)
 boolean
 Accessible_isEditableText (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/EditableText:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "isEditableText");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
@@ -238,7 +348,6 @@ Accessible_isEditableText (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleHypertext.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleHypertext interface,
  *          #FALSE otherwise.
@@ -246,7 +355,14 @@ Accessible_isEditableText (Accessible *obj)
 boolean
 Accessible_isHypertext (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Hypertext:1.0",
+                                             &ev);
+
+  spi_check_ev (&ev, "isHypertext");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
@@ -254,7 +370,6 @@ Accessible_isHypertext (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleImage.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleImage interface,
  *          #FALSE otherwise.
@@ -262,15 +377,20 @@ Accessible_isHypertext (Accessible *obj)
 boolean
 Accessible_isImage (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Image:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "isImage");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
 * Accessible_isSelection:
+ * Accessible_isSelection:
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleSelection.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleSelection interface,
  *          #FALSE otherwise.
@@ -278,7 +398,14 @@ Accessible_isImage (Accessible *obj)
 boolean
 Accessible_isSelection (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Selection:1.0",
+                                             &ev);
+  spi_warn_ev (&ev, "isSelection");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+
 }
 
 /**
@@ -286,7 +413,6 @@ Accessible_isSelection (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleTable.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleTable interface,
  *          #FALSE otherwise.
@@ -294,7 +420,14 @@ Accessible_isSelection (Accessible *obj)
 boolean
 Accessible_isTable (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Table:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "isTable");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+
 }
 
 /**
@@ -302,7 +435,6 @@ Accessible_isTable (Accessible *obj)
  * @obj: a pointer to the #Accessible instance to query.
  *
  * Query whether the specified #Accessible implements #AccessibleText.
- * Not Yet Implemented.
  *
  * Returns: #TRUE if @obj implements the #AccessibleText interface,
  *          #FALSE otherwise.
@@ -310,19 +442,56 @@ Accessible_isTable (Accessible *obj)
 boolean
 Accessible_isText (Accessible *obj)
 {
-  return FALSE;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Text:1.0",
+                                             &ev);
+  spi_warn_ev (&ev, "isText");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
+}
+
+/**
+ * Accessible_isValue:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Query whether the specified #Accessible implements #AccessibleValue.
+ *
+ * Returns: #TRUE if @obj implements the #AccessibleValue interface,
+ *          #FALSE otherwise.
+**/
+boolean
+Accessible_isValue (Accessible *obj)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Value:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "isValue");
+
+  return (CORBA_Object_is_nil (iface, &ev)) ? FALSE : TRUE;
 }
 
 /**
  * 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.
  **/
 AccessibleAction *
 Accessible_getAction (Accessible *obj)
 {
-  return NULL;
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Action:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "getAction");
+
+  return (AccessibleAction *)
+         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
 }
 
 /**
@@ -337,14 +506,181 @@ Accessible_getAction (Accessible *obj)
 AccessibleComponent *
 Accessible_getComponent (Accessible *obj)
 {
-  AccessibleComponent iface =
+  Bonobo_Unknown iface =
     Accessibility_Accessible_queryInterface (*obj,
                                              "IDL:Accessibility/Component:1.0",
                                              &ev);
-  return Obj_Add (iface);
+  spi_check_ev (&ev, "getComponent");
+
+  return (AccessibleComponent *) ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
 }
 
 /**
+ * Accessible_getEditableText:
+ * @obj: a pointer to the #Accessible instance to query.
+ *
+ * Get the #AccessibleEditableText interface for an #Accessible.
+ *
+ * Returns: a pointer to an #AccessibleEditableText interface instance, or
+ *          NULL if @obj does not implement #AccessibleEditableText.
+ **/
+AccessibleEditableText *
+Accessible_getEditableText (Accessible *obj)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/EditableText:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "getEditableText");
+
+  return (AccessibleEditableText *)
+         ((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)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Hypertext:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "getHypertext");
+
+  return (AccessibleHypertext *)
+         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+}
+
+
+
+/**
+ * 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_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Image:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "getImage");
+
+  return (AccessibleImage *)
+         ((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)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Selection:1.0",
+                                             &ev);
+  spi_warn_ev (&ev, "getSelection");
+
+  return (AccessibleSelection *)
+         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+}
+
+
+
+/**
+ * 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_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Table:1.0",
+                                             &ev);
+  spi_check_ev (&ev, "getTable");
+
+  return (AccessibleTable *)
+         ((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)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Text:1.0",
+                                             &ev);
+
+  spi_check_ev (&ev, "getText"); 
+
+  return (AccessibleText *)
+         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+}
+
+
+
+/**
+ * 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)
+{
+  Bonobo_Unknown iface =
+    Accessibility_Accessible_queryInterface (*obj,
+                                             "IDL:Accessibility/Value:1.0",
+                                             &ev);
+  return (AccessibleValue *)
+         ((CORBA_Object_is_nil (iface, &ev)) ? 0 : Obj_Add (iface));
+}
+
+
+
+/**
  * Accessible_queryInterface:
  * @obj: a pointer to the #Accessible instance to query.
  * @interface_name: a UTF-8 character string specifiying the requested interface.