forked from AuroraMiddleware/gtk
ffe333a21f
A screen reader user is not interested in GTK internals, for example, he does not care whether a button is an image button or not, and a screen reader will report the fact that it is a button anyway. Same applies for GtkEntry widgets, for example. This actually is sufficient to fix gnome-control-center#2244. And, according to the discussion in #5145, it should be fine.
1155 lines
35 KiB
C
1155 lines
35 KiB
C
/* gtkatcontext.c: Assistive technology context
|
|
*
|
|
* Copyright 2020 GNOME Foundation
|
|
*
|
|
* SPDX-License-Identifier: LGPL-2.1-or-later
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 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
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* GtkATContext:
|
|
*
|
|
* `GtkATContext` is an abstract class provided by GTK to communicate to
|
|
* platform-specific assistive technologies API.
|
|
*
|
|
* Each platform supported by GTK implements a `GtkATContext` subclass, and
|
|
* is responsible for updating the accessible state in response to state
|
|
* changes in `GtkAccessible`.
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include "gtkatcontextprivate.h"
|
|
|
|
#include "gtkaccessiblevalueprivate.h"
|
|
#include "gtkaccessibleprivate.h"
|
|
#include "gtkdebug.h"
|
|
#include "gtkprivate.h"
|
|
#include "gtktestatcontextprivate.h"
|
|
#include "gtktypebuiltins.h"
|
|
|
|
#if defined(GDK_WINDOWING_X11) || defined(GDK_WINDOWING_WAYLAND)
|
|
#include "a11y/gtkatspicontextprivate.h"
|
|
#endif
|
|
|
|
G_DEFINE_ABSTRACT_TYPE (GtkATContext, gtk_at_context, G_TYPE_OBJECT)
|
|
|
|
enum
|
|
{
|
|
PROP_ACCESSIBLE_ROLE = 1,
|
|
PROP_ACCESSIBLE,
|
|
PROP_DISPLAY,
|
|
|
|
N_PROPS
|
|
};
|
|
|
|
enum
|
|
{
|
|
STATE_CHANGE,
|
|
|
|
LAST_SIGNAL
|
|
};
|
|
|
|
static GParamSpec *obj_props[N_PROPS];
|
|
|
|
static guint obj_signals[LAST_SIGNAL];
|
|
|
|
static void
|
|
gtk_at_context_finalize (GObject *gobject)
|
|
{
|
|
GtkATContext *self = GTK_AT_CONTEXT (gobject);
|
|
|
|
gtk_accessible_attribute_set_unref (self->properties);
|
|
gtk_accessible_attribute_set_unref (self->relations);
|
|
gtk_accessible_attribute_set_unref (self->states);
|
|
|
|
G_OBJECT_CLASS (gtk_at_context_parent_class)->finalize (gobject);
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_dispose (GObject *gobject)
|
|
{
|
|
GtkATContext *self = GTK_AT_CONTEXT (gobject);
|
|
|
|
gtk_at_context_unrealize (self);
|
|
|
|
G_OBJECT_CLASS (gtk_at_context_parent_class)->dispose (gobject);
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_set_property (GObject *gobject,
|
|
guint prop_id,
|
|
const GValue *value,
|
|
GParamSpec *pspec)
|
|
{
|
|
GtkATContext *self = GTK_AT_CONTEXT (gobject);
|
|
|
|
switch (prop_id)
|
|
{
|
|
case PROP_ACCESSIBLE_ROLE:
|
|
if (!self->realized)
|
|
self->accessible_role = g_value_get_enum (value);
|
|
else
|
|
g_critical ("The accessible role cannot be set on a realized AT context");
|
|
break;
|
|
|
|
case PROP_ACCESSIBLE:
|
|
self->accessible = g_value_get_object (value);
|
|
break;
|
|
|
|
case PROP_DISPLAY:
|
|
gtk_at_context_set_display (self, g_value_get_object (value));
|
|
break;
|
|
|
|
default:
|
|
G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, prop_id, pspec);
|
|
}
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_get_property (GObject *gobject,
|
|
guint prop_id,
|
|
GValue *value,
|
|
GParamSpec *pspec)
|
|
{
|
|
GtkATContext *self = GTK_AT_CONTEXT (gobject);
|
|
|
|
switch (prop_id)
|
|
{
|
|
case PROP_ACCESSIBLE_ROLE:
|
|
g_value_set_enum (value, self->accessible_role);
|
|
break;
|
|
|
|
case PROP_ACCESSIBLE:
|
|
g_value_set_object (value, self->accessible);
|
|
break;
|
|
|
|
case PROP_DISPLAY:
|
|
g_value_set_object (value, self->display);
|
|
break;
|
|
|
|
default:
|
|
G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, prop_id, pspec);
|
|
}
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_state_change (GtkATContext *self,
|
|
GtkAccessibleStateChange changed_states,
|
|
GtkAccessiblePropertyChange changed_properties,
|
|
GtkAccessibleRelationChange changed_relations,
|
|
GtkAccessibleAttributeSet *states,
|
|
GtkAccessibleAttributeSet *properties,
|
|
GtkAccessibleAttributeSet *relations)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_platform_change (GtkATContext *self,
|
|
GtkAccessiblePlatformChange change)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_bounds_change (GtkATContext *self)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_child_change (GtkATContext *self,
|
|
GtkAccessibleChildChange change,
|
|
GtkAccessible *child)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_realize (GtkATContext *self)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_real_unrealize (GtkATContext *self)
|
|
{
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_class_init (GtkATContextClass *klass)
|
|
{
|
|
GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
|
|
|
|
gobject_class->set_property = gtk_at_context_set_property;
|
|
gobject_class->get_property = gtk_at_context_get_property;
|
|
gobject_class->dispose = gtk_at_context_dispose;
|
|
gobject_class->finalize = gtk_at_context_finalize;
|
|
|
|
klass->realize = gtk_at_context_real_realize;
|
|
klass->unrealize = gtk_at_context_real_unrealize;
|
|
klass->state_change = gtk_at_context_real_state_change;
|
|
klass->platform_change = gtk_at_context_real_platform_change;
|
|
klass->bounds_change = gtk_at_context_real_bounds_change;
|
|
klass->child_change = gtk_at_context_real_child_change;
|
|
|
|
/**
|
|
* GtkATContext:accessible-role: (attributes org.gtk.Property.get=gtk_at_context_get_accessible_role)
|
|
*
|
|
* The accessible role used by the AT context.
|
|
*
|
|
* Depending on the given role, different states and properties can be
|
|
* set or retrieved.
|
|
*/
|
|
obj_props[PROP_ACCESSIBLE_ROLE] =
|
|
g_param_spec_enum ("accessible-role", NULL, NULL,
|
|
GTK_TYPE_ACCESSIBLE_ROLE,
|
|
GTK_ACCESSIBLE_ROLE_NONE,
|
|
G_PARAM_READWRITE |
|
|
G_PARAM_CONSTRUCT |
|
|
G_PARAM_STATIC_STRINGS);
|
|
|
|
/**
|
|
* GtkATContext:accessible: (attributes org.gtk.Property.get=gtk_at_context_get_accessible)
|
|
*
|
|
* The `GtkAccessible` that created the `GtkATContext` instance.
|
|
*/
|
|
obj_props[PROP_ACCESSIBLE] =
|
|
g_param_spec_object ("accessible", NULL, NULL,
|
|
GTK_TYPE_ACCESSIBLE,
|
|
G_PARAM_READWRITE |
|
|
G_PARAM_CONSTRUCT_ONLY |
|
|
G_PARAM_STATIC_STRINGS);
|
|
|
|
/**
|
|
* GtkATContext:display:
|
|
*
|
|
* The `GdkDisplay` for the `GtkATContext`.
|
|
*/
|
|
obj_props[PROP_DISPLAY] =
|
|
g_param_spec_object ("display", NULL, NULL,
|
|
GDK_TYPE_DISPLAY,
|
|
G_PARAM_READWRITE |
|
|
G_PARAM_STATIC_STRINGS |
|
|
G_PARAM_EXPLICIT_NOTIFY);
|
|
|
|
/**
|
|
* GtkATContext::state-change:
|
|
* @self: the `GtkATContext`
|
|
*
|
|
* Emitted when the attributes of the accessible for the
|
|
* `GtkATContext` instance change.
|
|
*/
|
|
obj_signals[STATE_CHANGE] =
|
|
g_signal_new ("state-change",
|
|
G_TYPE_FROM_CLASS (gobject_class),
|
|
G_SIGNAL_RUN_FIRST,
|
|
0,
|
|
NULL, NULL,
|
|
NULL,
|
|
G_TYPE_NONE, 0);
|
|
|
|
g_object_class_install_properties (gobject_class, N_PROPS, obj_props);
|
|
}
|
|
|
|
#define N_PROPERTIES (GTK_ACCESSIBLE_PROPERTY_VALUE_TEXT + 1)
|
|
#define N_RELATIONS (GTK_ACCESSIBLE_RELATION_SET_SIZE + 1)
|
|
#define N_STATES (GTK_ACCESSIBLE_STATE_SELECTED + 1)
|
|
|
|
static const char *property_attrs[] = {
|
|
[GTK_ACCESSIBLE_PROPERTY_AUTOCOMPLETE] = "autocomplete",
|
|
[GTK_ACCESSIBLE_PROPERTY_DESCRIPTION] = "description",
|
|
[GTK_ACCESSIBLE_PROPERTY_HAS_POPUP] = "haspopup",
|
|
[GTK_ACCESSIBLE_PROPERTY_KEY_SHORTCUTS] = "keyshortcuts",
|
|
[GTK_ACCESSIBLE_PROPERTY_LABEL] = "label",
|
|
[GTK_ACCESSIBLE_PROPERTY_LEVEL] = "level",
|
|
[GTK_ACCESSIBLE_PROPERTY_MODAL] = "modal",
|
|
[GTK_ACCESSIBLE_PROPERTY_MULTI_LINE] = "multiline",
|
|
[GTK_ACCESSIBLE_PROPERTY_MULTI_SELECTABLE] = "multiselectable",
|
|
[GTK_ACCESSIBLE_PROPERTY_ORIENTATION] = "orientation",
|
|
[GTK_ACCESSIBLE_PROPERTY_PLACEHOLDER] = "placeholder",
|
|
[GTK_ACCESSIBLE_PROPERTY_READ_ONLY] = "readonly",
|
|
[GTK_ACCESSIBLE_PROPERTY_REQUIRED] = "required",
|
|
[GTK_ACCESSIBLE_PROPERTY_ROLE_DESCRIPTION] = "roledescription",
|
|
[GTK_ACCESSIBLE_PROPERTY_SORT] = "sort",
|
|
[GTK_ACCESSIBLE_PROPERTY_VALUE_MAX] = "valuemax",
|
|
[GTK_ACCESSIBLE_PROPERTY_VALUE_MIN] = "valuemin",
|
|
[GTK_ACCESSIBLE_PROPERTY_VALUE_NOW] = "valuenow",
|
|
[GTK_ACCESSIBLE_PROPERTY_VALUE_TEXT] = "valuetext",
|
|
};
|
|
|
|
/*< private >
|
|
* gtk_accessible_property_get_attribute_name:
|
|
* @property: a `GtkAccessibleProperty`
|
|
*
|
|
* Retrieves the name of a `GtkAccessibleProperty`.
|
|
*
|
|
* Returns: (transfer none): the name of the accessible property
|
|
*/
|
|
const char *
|
|
gtk_accessible_property_get_attribute_name (GtkAccessibleProperty property)
|
|
{
|
|
g_return_val_if_fail (property >= GTK_ACCESSIBLE_PROPERTY_AUTOCOMPLETE &&
|
|
property <= GTK_ACCESSIBLE_PROPERTY_VALUE_TEXT,
|
|
"<none>");
|
|
|
|
return property_attrs[property];
|
|
}
|
|
|
|
static const char *relation_attrs[] = {
|
|
[GTK_ACCESSIBLE_RELATION_ACTIVE_DESCENDANT] = "activedescendant",
|
|
[GTK_ACCESSIBLE_RELATION_COL_COUNT] = "colcount",
|
|
[GTK_ACCESSIBLE_RELATION_COL_INDEX] = "colindex",
|
|
[GTK_ACCESSIBLE_RELATION_COL_INDEX_TEXT] = "colindextext",
|
|
[GTK_ACCESSIBLE_RELATION_COL_SPAN] = "colspan",
|
|
[GTK_ACCESSIBLE_RELATION_CONTROLS] = "controls",
|
|
[GTK_ACCESSIBLE_RELATION_DESCRIBED_BY] = "describedby",
|
|
[GTK_ACCESSIBLE_RELATION_DETAILS] = "details",
|
|
[GTK_ACCESSIBLE_RELATION_ERROR_MESSAGE] = "errormessage",
|
|
[GTK_ACCESSIBLE_RELATION_FLOW_TO] = "flowto",
|
|
[GTK_ACCESSIBLE_RELATION_LABELLED_BY] = "labelledby",
|
|
[GTK_ACCESSIBLE_RELATION_OWNS] = "owns",
|
|
[GTK_ACCESSIBLE_RELATION_POS_IN_SET] = "posinset",
|
|
[GTK_ACCESSIBLE_RELATION_ROW_COUNT] = "rowcount",
|
|
[GTK_ACCESSIBLE_RELATION_ROW_INDEX] = "rowindex",
|
|
[GTK_ACCESSIBLE_RELATION_ROW_INDEX_TEXT] = "rowindextext",
|
|
[GTK_ACCESSIBLE_RELATION_ROW_SPAN] = "rowspan",
|
|
[GTK_ACCESSIBLE_RELATION_SET_SIZE] = "setsize",
|
|
};
|
|
|
|
/*< private >
|
|
* gtk_accessible_relation_get_attribute_name:
|
|
* @relation: a `GtkAccessibleRelation`
|
|
*
|
|
* Retrieves the name of a `GtkAccessibleRelation`.
|
|
*
|
|
* Returns: (transfer none): the name of the accessible relation
|
|
*/
|
|
const char *
|
|
gtk_accessible_relation_get_attribute_name (GtkAccessibleRelation relation)
|
|
{
|
|
g_return_val_if_fail (relation >= GTK_ACCESSIBLE_RELATION_ACTIVE_DESCENDANT &&
|
|
relation <= GTK_ACCESSIBLE_RELATION_SET_SIZE,
|
|
"<none>");
|
|
|
|
return relation_attrs[relation];
|
|
}
|
|
|
|
static const char *state_attrs[] = {
|
|
[GTK_ACCESSIBLE_STATE_BUSY] = "busy",
|
|
[GTK_ACCESSIBLE_STATE_CHECKED] = "checked",
|
|
[GTK_ACCESSIBLE_STATE_DISABLED] = "disabled",
|
|
[GTK_ACCESSIBLE_STATE_EXPANDED] = "expanded",
|
|
[GTK_ACCESSIBLE_STATE_HIDDEN] = "hidden",
|
|
[GTK_ACCESSIBLE_STATE_INVALID] = "invalid",
|
|
[GTK_ACCESSIBLE_STATE_PRESSED] = "pressed",
|
|
[GTK_ACCESSIBLE_STATE_SELECTED] = "selected",
|
|
};
|
|
|
|
/*< private >
|
|
* gtk_accessible_state_get_attribute_name:
|
|
* @state: a `GtkAccessibleState`
|
|
*
|
|
* Retrieves the name of a `GtkAccessibleState`.
|
|
*
|
|
* Returns: (transfer none): the name of the accessible state
|
|
*/
|
|
const char *
|
|
gtk_accessible_state_get_attribute_name (GtkAccessibleState state)
|
|
{
|
|
g_return_val_if_fail (state >= GTK_ACCESSIBLE_STATE_BUSY &&
|
|
state <= GTK_ACCESSIBLE_STATE_SELECTED,
|
|
"<none>");
|
|
|
|
return state_attrs[state];
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_init (GtkATContext *self)
|
|
{
|
|
self->accessible_role = GTK_ACCESSIBLE_ROLE_NONE;
|
|
|
|
self->properties =
|
|
gtk_accessible_attribute_set_new (G_N_ELEMENTS (property_attrs),
|
|
(GtkAccessibleAttributeNameFunc) gtk_accessible_property_get_attribute_name,
|
|
(GtkAccessibleAttributeDefaultFunc) gtk_accessible_value_get_default_for_property);
|
|
self->relations =
|
|
gtk_accessible_attribute_set_new (G_N_ELEMENTS (relation_attrs),
|
|
(GtkAccessibleAttributeNameFunc) gtk_accessible_relation_get_attribute_name,
|
|
(GtkAccessibleAttributeDefaultFunc) gtk_accessible_value_get_default_for_relation);
|
|
self->states =
|
|
gtk_accessible_attribute_set_new (G_N_ELEMENTS (state_attrs),
|
|
(GtkAccessibleAttributeNameFunc) gtk_accessible_state_get_attribute_name,
|
|
(GtkAccessibleAttributeDefaultFunc) gtk_accessible_value_get_default_for_state);
|
|
}
|
|
|
|
/**
|
|
* gtk_at_context_get_accessible: (attributes org.gtk.Method.get_property=accessible)
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Retrieves the `GtkAccessible` using this context.
|
|
*
|
|
* Returns: (transfer none): a `GtkAccessible`
|
|
*/
|
|
GtkAccessible *
|
|
gtk_at_context_get_accessible (GtkATContext *self)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
return self->accessible;
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_set_accessible_role:
|
|
* @self: a `GtkATContext`
|
|
* @role: the accessible role for the context
|
|
*
|
|
* Sets the accessible role for the given `GtkATContext`.
|
|
*
|
|
* This function can only be called if the `GtkATContext` is unrealized.
|
|
*/
|
|
void
|
|
gtk_at_context_set_accessible_role (GtkATContext *self,
|
|
GtkAccessibleRole role)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
g_return_if_fail (!self->realized);
|
|
|
|
if (self->accessible_role == role)
|
|
return;
|
|
|
|
self->accessible_role = role;
|
|
|
|
g_object_notify_by_pspec (G_OBJECT (self), obj_props[PROP_ACCESSIBLE_ROLE]);
|
|
}
|
|
|
|
/**
|
|
* gtk_at_context_get_accessible_role: (attributes org.gtk.Method.get_property=accessible-role)
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Retrieves the accessible role of this context.
|
|
*
|
|
* Returns: a `GtkAccessibleRole`
|
|
*/
|
|
GtkAccessibleRole
|
|
gtk_at_context_get_accessible_role (GtkATContext *self)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), GTK_ACCESSIBLE_ROLE_NONE);
|
|
|
|
return self->accessible_role;
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_set_display:
|
|
* @self: a `GtkATContext`
|
|
* @display: a `GdkDisplay`
|
|
*
|
|
* Sets the `GdkDisplay` used by the `GtkATContext`.
|
|
*
|
|
* This function can only be called if the `GtkATContext` is
|
|
* not realized.
|
|
*/
|
|
void
|
|
gtk_at_context_set_display (GtkATContext *self,
|
|
GdkDisplay *display)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
g_return_if_fail (display == NULL || GDK_IS_DISPLAY (display));
|
|
|
|
if (self->display == display)
|
|
return;
|
|
|
|
if (self->realized)
|
|
return;
|
|
|
|
self->display = display;
|
|
|
|
g_object_notify_by_pspec (G_OBJECT (self), obj_props[PROP_DISPLAY]);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_display:
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Retrieves the `GdkDisplay` used to create the context.
|
|
*
|
|
* Returns: (transfer none): a `GdkDisplay`
|
|
*/
|
|
GdkDisplay *
|
|
gtk_at_context_get_display (GtkATContext *self)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
return self->display;
|
|
}
|
|
|
|
static const struct {
|
|
const char *name;
|
|
const char *env_name;
|
|
GtkATContext * (* create_context) (GtkAccessibleRole accessible_role,
|
|
GtkAccessible *accessible,
|
|
GdkDisplay *display);
|
|
} a11y_backends[] = {
|
|
#if defined(GDK_WINDOWING_WAYLAND)
|
|
{ "AT-SPI (Wayland)", "atspi", gtk_at_spi_create_context },
|
|
#endif
|
|
#if defined(GDK_WINDOWING_X11)
|
|
{ "AT-SPI (X11)", "atspi", gtk_at_spi_create_context },
|
|
#endif
|
|
{ "Test", "test", gtk_test_at_context_new },
|
|
{ NULL, NULL, NULL },
|
|
};
|
|
|
|
/**
|
|
* gtk_at_context_create: (constructor)
|
|
* @accessible_role: the accessible role used by the `GtkATContext`
|
|
* @accessible: the `GtkAccessible` implementation using the `GtkATContext`
|
|
* @display: the `GdkDisplay` used by the `GtkATContext`
|
|
*
|
|
* Creates a new `GtkATContext` instance for the given accessible role,
|
|
* accessible instance, and display connection.
|
|
*
|
|
* The `GtkATContext` implementation being instantiated will depend on the
|
|
* platform.
|
|
*
|
|
* Returns: (nullable) (transfer full): the `GtkATContext`
|
|
*/
|
|
GtkATContext *
|
|
gtk_at_context_create (GtkAccessibleRole accessible_role,
|
|
GtkAccessible *accessible,
|
|
GdkDisplay *display)
|
|
{
|
|
static const char *gtk_a11y_env;
|
|
|
|
if (gtk_a11y_env == NULL)
|
|
{
|
|
gtk_a11y_env = g_getenv ("GTK_A11Y");
|
|
if (gtk_a11y_env == NULL)
|
|
gtk_a11y_env = "0";
|
|
|
|
if (g_ascii_strcasecmp (gtk_a11y_env, "help") == 0)
|
|
{
|
|
g_print ("Supported arguments for GTK_A11Y environment variable:\n");
|
|
|
|
#if defined(GDK_WINDOWING_X11) || defined(GDK_WINDOWING_WAYLAND)
|
|
g_print (" atspi - Use the AT-SPI accessibility backend\n");
|
|
#endif
|
|
g_print (" test - Use the test accessibility backend\n");
|
|
g_print (" none - Disable the accessibility backend\n");
|
|
g_print (" help - Print this help\n\n");
|
|
g_print ("Other arguments will cause a warning and be ignored.\n");
|
|
|
|
gtk_a11y_env = "0";
|
|
}
|
|
}
|
|
|
|
/* Short-circuit disabling the accessibility support */
|
|
if (g_ascii_strcasecmp (gtk_a11y_env, "none") == 0)
|
|
return NULL;
|
|
|
|
GtkATContext *res = NULL;
|
|
|
|
for (guint i = 0; i < G_N_ELEMENTS (a11y_backends); i++)
|
|
{
|
|
if (a11y_backends[i].name == NULL)
|
|
break;
|
|
|
|
if (a11y_backends[i].create_context != NULL &&
|
|
(*gtk_a11y_env == '0' || g_ascii_strcasecmp (a11y_backends[i].env_name, gtk_a11y_env) == 0))
|
|
{
|
|
res = a11y_backends[i].create_context (accessible_role, accessible, display);
|
|
if (res != NULL)
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (*gtk_a11y_env != '0' && res == NULL)
|
|
g_warning ("Unrecognized accessibility backend \"%s\". Try GTK_A11Y=help", gtk_a11y_env);
|
|
|
|
/* Fall back to the test context, so we can get debugging data */
|
|
if (res == NULL)
|
|
res = g_object_new (GTK_TYPE_TEST_AT_CONTEXT,
|
|
"accessible_role", accessible_role,
|
|
"accessible", accessible,
|
|
"display", display,
|
|
NULL);
|
|
|
|
return res;
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_clone: (constructor)
|
|
* @self: the `GtkATContext` to clone
|
|
* @role: the accessible role of the clone, or %GTK_ACCESSIBLE_ROLE_NONE to
|
|
* use the same accessible role of @self
|
|
* @accessible: (nullable): the accessible creating the context, or %NULL to
|
|
* use the same `GtkAccessible` of @self
|
|
* @display: (nullable): the display connection, or %NULL to use the same
|
|
* `GdkDisplay` of @self
|
|
*
|
|
* Clones the state of the given `GtkATContext`, using @role, @accessible,
|
|
* and @display.
|
|
*
|
|
* If @self is realized, the returned `GtkATContext` will also be realized.
|
|
*
|
|
* Returns: (transfer full): the newly created `GtkATContext`
|
|
*/
|
|
GtkATContext *
|
|
gtk_at_context_clone (GtkATContext *self,
|
|
GtkAccessibleRole role,
|
|
GtkAccessible *accessible,
|
|
GdkDisplay *display)
|
|
{
|
|
g_return_val_if_fail (self == NULL || GTK_IS_AT_CONTEXT (self), NULL);
|
|
g_return_val_if_fail (accessible == NULL || GTK_IS_ACCESSIBLE (accessible), NULL);
|
|
g_return_val_if_fail (display == NULL || GDK_IS_DISPLAY (display), NULL);
|
|
|
|
if (self != NULL && role == GTK_ACCESSIBLE_ROLE_NONE)
|
|
role = self->accessible_role;
|
|
|
|
if (self != NULL && accessible == NULL)
|
|
accessible = self->accessible;
|
|
|
|
if (self != NULL && display == NULL)
|
|
display = self->display;
|
|
|
|
GtkATContext *res = gtk_at_context_create (role, accessible, display);
|
|
|
|
if (self != NULL)
|
|
{
|
|
g_clear_pointer (&res->states, gtk_accessible_attribute_set_unref);
|
|
g_clear_pointer (&res->properties, gtk_accessible_attribute_set_unref);
|
|
g_clear_pointer (&res->relations, gtk_accessible_attribute_set_unref);
|
|
|
|
res->states = gtk_accessible_attribute_set_ref (self->states);
|
|
res->properties = gtk_accessible_attribute_set_ref (self->properties);
|
|
res->relations = gtk_accessible_attribute_set_ref (self->relations);
|
|
|
|
if (self->realized)
|
|
gtk_at_context_realize (res);
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
gboolean
|
|
gtk_at_context_is_realized (GtkATContext *self)
|
|
{
|
|
return self->realized;
|
|
}
|
|
|
|
void
|
|
gtk_at_context_realize (GtkATContext *self)
|
|
{
|
|
if (self->realized)
|
|
return;
|
|
|
|
GTK_DEBUG (A11Y, "Realizing AT context '%s'", G_OBJECT_TYPE_NAME (self));
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->realize (self);
|
|
|
|
self->realized = TRUE;
|
|
}
|
|
|
|
void
|
|
gtk_at_context_unrealize (GtkATContext *self)
|
|
{
|
|
if (!self->realized)
|
|
return;
|
|
|
|
GTK_DEBUG (A11Y, "Unrealizing AT context '%s'", G_OBJECT_TYPE_NAME (self));
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->unrealize (self);
|
|
|
|
self->realized = FALSE;
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_update:
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Notifies the AT connected to this `GtkATContext` that the accessible
|
|
* state and its properties have changed.
|
|
*/
|
|
void
|
|
gtk_at_context_update (GtkATContext *self)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
|
|
if (!self->realized)
|
|
return;
|
|
|
|
/* There's no point in notifying of state changes if there weren't any */
|
|
if (self->updated_properties == 0 &&
|
|
self->updated_relations == 0 &&
|
|
self->updated_states == 0)
|
|
return;
|
|
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->state_change (self,
|
|
self->updated_states, self->updated_properties, self->updated_relations,
|
|
self->states, self->properties, self->relations);
|
|
g_signal_emit (self, obj_signals[STATE_CHANGE], 0);
|
|
|
|
self->updated_properties = 0;
|
|
self->updated_relations = 0;
|
|
self->updated_states = 0;
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_set_accessible_state:
|
|
* @self: a `GtkATContext`
|
|
* @state: a `GtkAccessibleState`
|
|
* @value: (nullable): `GtkAccessibleValue`
|
|
*
|
|
* Sets the @value for the given @state of a `GtkATContext`.
|
|
*
|
|
* If @value is %NULL, the state is unset.
|
|
*
|
|
* This function will accumulate state changes until gtk_at_context_update()
|
|
* is called.
|
|
*/
|
|
void
|
|
gtk_at_context_set_accessible_state (GtkATContext *self,
|
|
GtkAccessibleState state,
|
|
GtkAccessibleValue *value)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
|
|
gboolean res = FALSE;
|
|
|
|
if (value != NULL)
|
|
res = gtk_accessible_attribute_set_add (self->states, state, value);
|
|
else
|
|
res = gtk_accessible_attribute_set_remove (self->states, state);
|
|
|
|
if (res)
|
|
self->updated_states |= (1 << state);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_has_accessible_state:
|
|
* @self: a `GtkATContext`
|
|
* @state: a `GtkAccessibleState`
|
|
*
|
|
* Checks whether a `GtkATContext` has the given @state set.
|
|
*
|
|
* Returns: %TRUE, if the accessible state is set
|
|
*/
|
|
gboolean
|
|
gtk_at_context_has_accessible_state (GtkATContext *self,
|
|
GtkAccessibleState state)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), FALSE);
|
|
|
|
return gtk_accessible_attribute_set_contains (self->states, state);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_accessible_state:
|
|
* @self: a `GtkATContext`
|
|
* @state: a `GtkAccessibleState`
|
|
*
|
|
* Retrieves the value for the accessible state of a `GtkATContext`.
|
|
*
|
|
* Returns: (transfer none): the value for the given state
|
|
*/
|
|
GtkAccessibleValue *
|
|
gtk_at_context_get_accessible_state (GtkATContext *self,
|
|
GtkAccessibleState state)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
return gtk_accessible_attribute_set_get_value (self->states, state);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_set_accessible_property:
|
|
* @self: a `GtkATContext`
|
|
* @property: a `GtkAccessibleProperty`
|
|
* @value: (nullable): `GtkAccessibleValue`
|
|
*
|
|
* Sets the @value for the given @property of a `GtkATContext`.
|
|
*
|
|
* If @value is %NULL, the property is unset.
|
|
*
|
|
* This function will accumulate property changes until gtk_at_context_update()
|
|
* is called.
|
|
*/
|
|
void
|
|
gtk_at_context_set_accessible_property (GtkATContext *self,
|
|
GtkAccessibleProperty property,
|
|
GtkAccessibleValue *value)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
|
|
gboolean res = FALSE;
|
|
|
|
if (value != NULL)
|
|
res = gtk_accessible_attribute_set_add (self->properties, property, value);
|
|
else
|
|
res = gtk_accessible_attribute_set_remove (self->properties, property);
|
|
|
|
if (res)
|
|
self->updated_properties |= (1 << property);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_has_accessible_property:
|
|
* @self: a `GtkATContext`
|
|
* @property: a `GtkAccessibleProperty`
|
|
*
|
|
* Checks whether a `GtkATContext` has the given @property set.
|
|
*
|
|
* Returns: %TRUE, if the accessible property is set
|
|
*/
|
|
gboolean
|
|
gtk_at_context_has_accessible_property (GtkATContext *self,
|
|
GtkAccessibleProperty property)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), FALSE);
|
|
|
|
return gtk_accessible_attribute_set_contains (self->properties, property);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_accessible_property:
|
|
* @self: a `GtkATContext`
|
|
* @property: a `GtkAccessibleProperty`
|
|
*
|
|
* Retrieves the value for the accessible property of a `GtkATContext`.
|
|
*
|
|
* Returns: (transfer none): the value for the given property
|
|
*/
|
|
GtkAccessibleValue *
|
|
gtk_at_context_get_accessible_property (GtkATContext *self,
|
|
GtkAccessibleProperty property)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
return gtk_accessible_attribute_set_get_value (self->properties, property);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_set_accessible_relation:
|
|
* @self: a `GtkATContext`
|
|
* @relation: a `GtkAccessibleRelation`
|
|
* @value: (nullable): `GtkAccessibleValue`
|
|
*
|
|
* Sets the @value for the given @relation of a `GtkATContext`.
|
|
*
|
|
* If @value is %NULL, the relation is unset.
|
|
*
|
|
* This function will accumulate relation changes until gtk_at_context_update()
|
|
* is called.
|
|
*/
|
|
void
|
|
gtk_at_context_set_accessible_relation (GtkATContext *self,
|
|
GtkAccessibleRelation relation,
|
|
GtkAccessibleValue *value)
|
|
{
|
|
g_return_if_fail (GTK_IS_AT_CONTEXT (self));
|
|
|
|
gboolean res = FALSE;
|
|
|
|
if (value != NULL)
|
|
res = gtk_accessible_attribute_set_add (self->relations, relation, value);
|
|
else
|
|
res = gtk_accessible_attribute_set_remove (self->relations, relation);
|
|
|
|
if (res)
|
|
self->updated_relations |= (1 << relation);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_has_accessible_relation:
|
|
* @self: a `GtkATContext`
|
|
* @relation: a `GtkAccessibleRelation`
|
|
*
|
|
* Checks whether a `GtkATContext` has the given @relation set.
|
|
*
|
|
* Returns: %TRUE, if the accessible relation is set
|
|
*/
|
|
gboolean
|
|
gtk_at_context_has_accessible_relation (GtkATContext *self,
|
|
GtkAccessibleRelation relation)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), FALSE);
|
|
|
|
return gtk_accessible_attribute_set_contains (self->relations, relation);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_accessible_relation:
|
|
* @self: a `GtkATContext`
|
|
* @relation: a `GtkAccessibleRelation`
|
|
*
|
|
* Retrieves the value for the accessible relation of a `GtkATContext`.
|
|
*
|
|
* Returns: (transfer none): the value for the given relation
|
|
*/
|
|
GtkAccessibleValue *
|
|
gtk_at_context_get_accessible_relation (GtkATContext *self,
|
|
GtkAccessibleRelation relation)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
return gtk_accessible_attribute_set_get_value (self->relations, relation);
|
|
}
|
|
|
|
/* See the WAI-ARIA § 4.3, "Accessible Name and Description Computation" */
|
|
static void
|
|
gtk_at_context_get_name_accumulate (GtkATContext *self,
|
|
GPtrArray *names,
|
|
gboolean recurse)
|
|
{
|
|
GtkAccessibleValue *value = NULL;
|
|
|
|
if (gtk_accessible_attribute_set_contains (self->properties, GTK_ACCESSIBLE_PROPERTY_LABEL))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->properties, GTK_ACCESSIBLE_PROPERTY_LABEL);
|
|
|
|
g_ptr_array_add (names, (char *) gtk_string_accessible_value_get (value));
|
|
}
|
|
|
|
if (recurse && gtk_accessible_attribute_set_contains (self->relations, GTK_ACCESSIBLE_RELATION_LABELLED_BY))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->relations, GTK_ACCESSIBLE_RELATION_LABELLED_BY);
|
|
|
|
GList *list = gtk_reference_list_accessible_value_get (value);
|
|
|
|
for (GList *l = list; l != NULL; l = l->next)
|
|
{
|
|
GtkAccessible *rel = GTK_ACCESSIBLE (l->data);
|
|
GtkATContext *rel_context = gtk_accessible_get_at_context (rel);
|
|
|
|
gtk_at_context_get_name_accumulate (rel_context, names, FALSE);
|
|
}
|
|
}
|
|
|
|
GtkAccessibleRole role = gtk_at_context_get_accessible_role (self);
|
|
|
|
switch ((int) role)
|
|
{
|
|
case GTK_ACCESSIBLE_ROLE_RANGE:
|
|
{
|
|
int range_attrs[] = {
|
|
GTK_ACCESSIBLE_PROPERTY_VALUE_TEXT,
|
|
GTK_ACCESSIBLE_PROPERTY_VALUE_NOW,
|
|
};
|
|
|
|
value = NULL;
|
|
for (int i = 0; i < G_N_ELEMENTS (range_attrs); i++)
|
|
{
|
|
if (gtk_accessible_attribute_set_contains (self->properties, range_attrs[i]))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->properties, range_attrs[i]);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (value != NULL)
|
|
g_ptr_array_add (names, (char *) gtk_string_accessible_value_get (value));
|
|
}
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
/* If there is no label or labelled-by attribute, hidden elements
|
|
* have no name
|
|
*/
|
|
if (gtk_accessible_attribute_set_contains (self->states, GTK_ACCESSIBLE_STATE_HIDDEN))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->states, GTK_ACCESSIBLE_STATE_HIDDEN);
|
|
|
|
if (gtk_boolean_accessible_value_get (value))
|
|
return;
|
|
}
|
|
|
|
}
|
|
|
|
static void
|
|
gtk_at_context_get_description_accumulate (GtkATContext *self,
|
|
GPtrArray *labels,
|
|
gboolean recurse)
|
|
{
|
|
GtkAccessibleValue *value = NULL;
|
|
|
|
if (gtk_accessible_attribute_set_contains (self->properties, GTK_ACCESSIBLE_PROPERTY_DESCRIPTION))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->properties, GTK_ACCESSIBLE_PROPERTY_DESCRIPTION);
|
|
|
|
g_ptr_array_add (labels, (char *) gtk_string_accessible_value_get (value));
|
|
}
|
|
|
|
if (recurse && gtk_accessible_attribute_set_contains (self->relations, GTK_ACCESSIBLE_RELATION_DESCRIBED_BY))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->relations, GTK_ACCESSIBLE_RELATION_DESCRIBED_BY);
|
|
|
|
GList *list = gtk_reference_list_accessible_value_get (value);
|
|
|
|
for (GList *l = list; l != NULL; l = l->next)
|
|
{
|
|
GtkAccessible *rel = GTK_ACCESSIBLE (l->data);
|
|
GtkATContext *rel_context = gtk_accessible_get_at_context (rel);
|
|
|
|
gtk_at_context_get_description_accumulate (rel_context, labels, FALSE);
|
|
}
|
|
}
|
|
|
|
GtkAccessibleRole role = gtk_at_context_get_accessible_role (self);
|
|
|
|
switch ((int) role)
|
|
{
|
|
case GTK_ACCESSIBLE_ROLE_RANGE:
|
|
{
|
|
int range_attrs[] = {
|
|
GTK_ACCESSIBLE_PROPERTY_VALUE_TEXT,
|
|
GTK_ACCESSIBLE_PROPERTY_VALUE_NOW,
|
|
};
|
|
|
|
value = NULL;
|
|
for (int i = 0; i < G_N_ELEMENTS (range_attrs); i++)
|
|
{
|
|
if (gtk_accessible_attribute_set_contains (self->properties, range_attrs[i]))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->properties, range_attrs[i]);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (value != NULL)
|
|
g_ptr_array_add (labels, (char *) gtk_string_accessible_value_get (value));
|
|
}
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
/* If there is no description or described-by attribute, hidden elements
|
|
* have no description
|
|
*/
|
|
if (gtk_accessible_attribute_set_contains (self->states, GTK_ACCESSIBLE_STATE_HIDDEN))
|
|
{
|
|
value = gtk_accessible_attribute_set_get_value (self->states, GTK_ACCESSIBLE_STATE_HIDDEN);
|
|
|
|
if (gtk_boolean_accessible_value_get (value))
|
|
return;
|
|
}
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_name:
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Retrieves the accessible name of the `GtkATContext`.
|
|
*
|
|
* This is a convenience function meant to be used by `GtkATContext` implementations.
|
|
*
|
|
* Returns: (transfer full): the label of the `GtkATContext`
|
|
*/
|
|
char *
|
|
gtk_at_context_get_name (GtkATContext *self)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
GPtrArray *names = g_ptr_array_new ();
|
|
|
|
gtk_at_context_get_name_accumulate (self, names, TRUE);
|
|
|
|
if (names->len == 0)
|
|
{
|
|
g_ptr_array_unref (names);
|
|
return g_strdup ("");
|
|
}
|
|
|
|
GString *res = g_string_new ("");
|
|
g_string_append (res, g_ptr_array_index (names, 0));
|
|
|
|
for (guint i = 1; i < names->len; i++)
|
|
{
|
|
g_string_append (res, " ");
|
|
g_string_append (res, g_ptr_array_index (names, i));
|
|
}
|
|
|
|
g_ptr_array_unref (names);
|
|
|
|
return g_string_free (res, FALSE);
|
|
}
|
|
|
|
/*< private >
|
|
* gtk_at_context_get_description:
|
|
* @self: a `GtkATContext`
|
|
*
|
|
* Retrieves the accessible description of the `GtkATContext`.
|
|
*
|
|
* This is a convenience function meant to be used by `GtkATContext` implementations.
|
|
*
|
|
* Returns: (transfer full): the label of the `GtkATContext`
|
|
*/
|
|
char *
|
|
gtk_at_context_get_description (GtkATContext *self)
|
|
{
|
|
g_return_val_if_fail (GTK_IS_AT_CONTEXT (self), NULL);
|
|
|
|
GPtrArray *names = g_ptr_array_new ();
|
|
|
|
gtk_at_context_get_description_accumulate (self, names, TRUE);
|
|
|
|
if (names->len == 0)
|
|
{
|
|
g_ptr_array_unref (names);
|
|
return g_strdup ("");
|
|
}
|
|
|
|
GString *res = g_string_new ("");
|
|
g_string_append (res, g_ptr_array_index (names, 0));
|
|
|
|
for (guint i = 1; i < names->len; i++)
|
|
{
|
|
g_string_append (res, " ");
|
|
g_string_append (res, g_ptr_array_index (names, i));
|
|
}
|
|
|
|
g_ptr_array_unref (names);
|
|
|
|
return g_string_free (res, FALSE);
|
|
}
|
|
|
|
void
|
|
gtk_at_context_platform_changed (GtkATContext *self,
|
|
GtkAccessiblePlatformChange change)
|
|
{
|
|
gtk_at_context_realize (self);
|
|
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->platform_change (self, change);
|
|
}
|
|
|
|
void
|
|
gtk_at_context_bounds_changed (GtkATContext *self)
|
|
{
|
|
if (!self->realized)
|
|
return;
|
|
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->bounds_change (self);
|
|
}
|
|
|
|
void
|
|
gtk_at_context_child_changed (GtkATContext *self,
|
|
GtkAccessibleChildChange change,
|
|
GtkAccessible *child)
|
|
{
|
|
if (!self->realized)
|
|
return;
|
|
|
|
GTK_AT_CONTEXT_GET_CLASS (self)->child_change (self, change, child);
|
|
}
|