[at-spi2-core: 1/2] Add atspi_accessible_get_accessible_id

[Samuel Thibault <sthibaul src gnome org>]

commit e7be59e469739583226867632378a06aafcd24f4
Author: Samuel Thibault <samuel thibault ens-lyon org>
Date:   Wed Apr 3 17:05:48 2019 +0200

    Add atspi_accessible_get_accessible_id

 atspi/atspi-accessible.c                | 27 +++++++++++++++++++++++++++
 atspi/atspi-accessible.h                |  2 ++
 doc/libatspi/libatspi-sections.txt      |  1 +
 doc/libatspi/tmpl/atspi-accessible.sgml | 10 ++++++++++
 xml/Accessible.xml                      |  2 ++
 5 files changed, 42 insertions(+)
---
diff --git a/atspi/atspi-accessible.c b/atspi/atspi-accessible.c
index e7f1446..2a0eda1 100644
--- a/atspi/atspi-accessible.c
+++ b/atspi/atspi-accessible.c
@@ -1767,6 +1767,33 @@ atspi_accessible_get_object_locale (AtspiAccessible *accessible, GError **error)
   return locale;
 }
 
+/**
+ * atspi_accessible_get_accessible_id:
+ * @obj: an #AtspiAccessible
+ *
+ * Gets the accessible id of the accessible.  This is not meant to be presented
+ * to the user, but to be an id which is stable over application development.
+ * Typically, this is the gtkbuilder id.
+ *
+ * Since: 2.34
+ *
+ * Returns: a character string representing the accessible id of the
+ * #AtspiAccessible object or NULL on exception.
+ **/
+gchar*
+atspi_accessible_get_accessible_id (AtspiAccessible *obj, GError **error)
+{
+  gchar *accessible_id;
+
+  g_return_val_if_fail (obj != NULL, NULL);
+
+  if (!_atspi_dbus_get_property (obj, atspi_interface_accessible,
+                                "AccessibleId", error, "s", &accessible_id))
+    return NULL;
+
+  return accessible_id;
+}
+
 void
 free_value (gpointer data)
 {
diff --git a/atspi/atspi-accessible.h b/atspi/atspi-accessible.h
index 443e395..a6b687c 100644
--- a/atspi/atspi-accessible.h
+++ b/atspi/atspi-accessible.h
@@ -167,6 +167,8 @@ void atspi_accessible_clear_cache (AtspiAccessible *obj);
 
 guint atspi_accessible_get_process_id (AtspiAccessible *accessible, GError **error);
 
+gchar * atspi_accessible_get_accessible_id (AtspiAccessible *obj, GError **error);
+
 /* private */
 void _atspi_accessible_add_cache (AtspiAccessible *accessible, AtspiCache flag);
 AtspiCache _atspi_accessible_get_cache_mask (AtspiAccessible *accessible);
diff --git a/doc/libatspi/libatspi-sections.txt b/doc/libatspi/libatspi-sections.txt
index adb9130..f4a0eec 100644
--- a/doc/libatspi/libatspi-sections.txt
+++ b/doc/libatspi/libatspi-sections.txt
@@ -251,6 +251,7 @@ atspi_accessible_get_table_iface
 atspi_accessible_get_text_iface
 atspi_accessible_get_value_iface
 atspi_accessible_get_interfaces
+atspi_accessible_get_accessible_id
 <SUBSECTION Standard>
 ATSPI_ACCESSIBLE
 ATSPI_IS_ACCESSIBLE
diff --git a/doc/libatspi/tmpl/atspi-accessible.sgml b/doc/libatspi/tmpl/atspi-accessible.sgml
index 5b3c8ea..0e161ee 100644
--- a/doc/libatspi/tmpl/atspi-accessible.sgml
+++ b/doc/libatspi/tmpl/atspi-accessible.sgml
@@ -322,3 +322,13 @@ actually have children.
 @Returns: 
 
 
+<!-- ##### FUNCTION atspi_accessible_get_accessible_id ##### -->
+<para>
+
+</para>
+
+@obj: 
+@error: 
+@Returns: 
+
+
diff --git a/xml/Accessible.xml b/xml/Accessible.xml
index 9240882..7015466 100644
--- a/xml/Accessible.xml
+++ b/xml/Accessible.xml
@@ -14,6 +14,8 @@
 
   <property name="Locale" type="s" access="read"/>
 
+  <property name="AccessibleId" type="s" access="read"/>
+
   <method name="GetChildAtIndex">
     <arg direction="in" name="index" type="i"/>
     <arg direction="out" type="(so)"/>