+#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:
Accessible_ref (Accessible *obj)
{
Accessibility_Accessible_ref (*obj, &ev);
+ spi_check_ev (&ev, "ref");
return 0;
}
Accessible_unref (Accessible *obj)
{
Accessibility_Accessible_unref (*obj, &ev);
+ spi_check_ev (&ev, "unref");
return 0;
}
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;
}
/**
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;
}
/**
*
* 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.
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.
*
**/
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.
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.
*
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.
*
* @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.
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;
}
/**
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;
}
/**
* @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.
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;
}
/**
* @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.
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;
}
/**
* @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.
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.
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;
+
}
/**
* @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.
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;
+
}
/**
* @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.
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));
}
/**
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.