2 * AT-SPI - Assistive Technology Service Provider Interface
3 * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
5 * Copyright 2001, 2002 Sun Microsystems Inc.,
6 * Copyright 2001, 2002 Ximian, Inc.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Library General Public
10 * License as published by the Free Software Foundation; either
11 * version 2 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Library General Public License for more details.
18 * You should have received a copy of the GNU Library General Public
19 * License along with this library; if not, write to the
20 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 * Boston, MA 02111-1307, USA.
24 /* application.c: implements SpiApplication.idl */
29 #include <atk/atkutil.h>
30 #include <libspi/application.h>
32 #include "spi-private.h"
34 /* Our parent Gtk object type */
35 #define PARENT_TYPE SPI_ACCESSIBLE_TYPE
37 /* A pointer to our parent object class */
38 static SpiAccessibleClass *spi_application_parent_class;
40 static SpiApplication *the_app;
44 static void notify_listeners (GList *listeners,
45 SpiAccessible *source,
46 Accessibility_Event *e);
49 * Implemented GObject::finalize
52 spi_accessible_application_finalize (GObject *object)
55 SpiApplication *application = (SpiApplication *) object;
58 CORBA_exception_init (&ev);
60 for (l = application->toolkit_listeners; l; l = l->next)
62 CORBA_Object_release ((CORBA_Object) l->data, &ev);
65 CORBA_exception_free (&ev);
67 g_list_free (application->toolkit_listeners);
68 application->toolkit_listeners = NULL;
70 g_print ("application finalize called\n");
71 (G_OBJECT_CLASS (spi_application_parent_class))->finalize (object);
75 impl_accessibility_application_get_toolkit_name (PortableServer_Servant servant,
76 CORBA_Environment *ev)
78 return CORBA_string_dup (atk_get_toolkit_name ());
82 impl_accessibility_application_get_version (PortableServer_Servant servant,
83 CORBA_Environment *ev)
85 return CORBA_string_dup (atk_get_toolkit_version ());
89 impl_accessibility_application_get_id (PortableServer_Servant servant,
90 CORBA_Environment *ev)
92 SpiApplication *application = SPI_APPLICATION (
93 bonobo_object_from_servant (servant));
95 return application->id;
99 impl_accessibility_application_set_id (PortableServer_Servant servant,
101 CORBA_Environment *ev)
103 SpiApplication *application = SPI_APPLICATION (
104 bonobo_object_from_servant (servant));
106 application->id = id;
110 get_atk_object_ref (GObject *gobject)
114 if (ATK_IS_IMPLEMENTOR (gobject))
116 aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
118 else if (ATK_IS_OBJECT (gobject))
120 aobject = ATK_OBJECT (gobject);
121 g_object_ref (G_OBJECT (aobject));
126 g_error ("received event from non-AtkImplementor");
133 spi_application_toolkit_event_listener (GSignalInvocationHint *signal_hint,
134 guint n_param_values,
135 const GValue *param_values,
138 Accessibility_Event e;
140 SpiAccessible *source;
141 GSignalQuery signal_query;
144 g_return_val_if_fail (the_app != NULL, FALSE);
146 g_signal_query (signal_hint->signal_id, &signal_query);
148 /* TODO: move GTK reference out of app.c into bridge */
149 event_name = g_strdup_printf ("Gtk:%s:%s",
150 g_type_name (signal_query.itype),
151 signal_query.signal_name);
154 fprintf (stderr, "Received signal %s\n", event_name);
157 aobject = get_atk_object_ref (g_value_get_object (param_values + 0));
159 source = spi_accessible_new (aobject);
160 e.type = CORBA_string_dup (event_name);
161 e.source = CORBA_OBJECT_NIL;
164 spi_init_any_nil (&e.any_data,
165 spi_accessible_new_return (atk_get_root (), FALSE, NULL),
166 Accessibility_ROLE_UNKNOWN,
168 notify_listeners (the_app->toolkit_listeners, source, &e);
170 bonobo_object_unref (BONOBO_OBJECT (source));
171 g_object_unref (G_OBJECT (aobject));
179 impl_accessibility_application_get_locale (PortableServer_Servant servant,
180 Accessibility_LOCALE_TYPE lctype,
181 CORBA_Environment *ev)
186 case Accessibility_LOCALE_TYPE_COLLATE:
187 category = LC_COLLATE;
189 case Accessibility_LOCALE_TYPE_CTYPE:
192 case Accessibility_LOCALE_TYPE_MONETARY:
193 category = LC_MONETARY;
195 case Accessibility_LOCALE_TYPE_NUMERIC:
196 category = LC_NUMERIC;
198 case Accessibility_LOCALE_TYPE_MESSAGES:
200 category = LC_MESSAGES;
203 return CORBA_string_dup (setlocale (category, NULL));
207 impl_accessibility_application_register_toolkit_event_listener (PortableServer_Servant servant,
208 Accessibility_EventListener listener,
209 const CORBA_char *event_name,
210 CORBA_Environment *ev)
212 guint spi_listener_id;
214 atk_add_global_event_listener (spi_application_toolkit_event_listener, event_name);
215 the_app->toolkit_listeners = g_list_append (the_app->toolkit_listeners,
216 CORBA_Object_duplicate (listener, ev));
218 fprintf (stderr, "registered %d for toolkit events named: %s\n",
225 notify_listeners (GList *listeners, SpiAccessible *source, Accessibility_Event *e)
228 CORBA_Environment ev;
230 CORBA_exception_init (&ev);
232 for (l = listeners; l; l = l->next)
234 Accessibility_EventListener listener = l->data;
236 e->source = bonobo_object_dup_ref (BONOBO_OBJREF (source), &ev);
238 Accessibility_EventListener_notifyEvent (listener, e, &ev);
240 * when this (oneway) call completes, the CORBA refcount and
241 * Bonobo_Unknown refcount will be decremented by the recipient
243 CORBA_exception_free (&ev);
248 init_toolkit_names (GHashTable **generic_event_names, GHashTable **toolkit_event_names)
250 *toolkit_event_names = g_hash_table_new (g_str_hash, g_str_equal);
251 *generic_event_names = g_hash_table_new (g_str_hash, g_str_equal);
252 g_hash_table_insert (*toolkit_event_names,
253 "object:property-change",
254 "Gtk:AtkObject:property-change");
255 g_hash_table_insert (*generic_event_names,
256 "Gtk:AtkObject:property-change",
257 "object:property-change");
259 fprintf (stderr, "inserted spi_selection_changed hash\n");
264 spi_application_class_init (SpiApplicationClass *klass)
266 GObjectClass * object_class = (GObjectClass *) klass;
267 POA_Accessibility_Application__epv *epv = &klass->epv;
269 spi_application_parent_class = g_type_class_ref (SPI_ACCESSIBLE_TYPE);
271 object_class->finalize = spi_accessible_application_finalize;
273 epv->_get_toolkitName = impl_accessibility_application_get_toolkit_name;
274 epv->_get_version = impl_accessibility_application_get_version;
275 epv->_get_id = impl_accessibility_application_get_id;
276 epv->_set_id = impl_accessibility_application_set_id;
277 epv->registerToolkitEventListener = impl_accessibility_application_register_toolkit_event_listener;
278 epv->getLocale = impl_accessibility_application_get_locale;
279 init_toolkit_names (&klass->generic_event_names, &klass->toolkit_event_names);
283 spi_application_init (SpiApplication *application)
285 application->toolkit_listeners = NULL;
286 the_app = application;
289 BONOBO_TYPE_FUNC_FULL (SpiApplication,
290 Accessibility_Application,
291 PARENT_TYPE, spi_application)
294 spi_application_new (AtkObject *app_root)
296 return SPI_APPLICATION (spi_accessible_construct (
297 SPI_APPLICATION_TYPE, app_root));