2 * AT-SPI - Assistive Technology Service Provider Interface
3 * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
5 * Copyright 2001 Sun Microsystems Inc.
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Library General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Library General Public License for more details.
17 * You should have received a copy of the GNU Library General Public
18 * License along with this library; if not, write to the
19 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 * Boston, MA 02111-1307, USA.
24 * application.c: implements SpiApplication.idl
29 #include <bonobo/Bonobo.h>
30 #include <atk/atkutil.h>
33 * This pulls the CORBA definitions for the "Accessibility::SpiAccessible" server
35 #include <libspi/Accessibility.h>
38 * This pulls the definition for the BonoboObject (GObject Type)
40 #include "application.h"
43 * Our parent Gtk object type
45 #define PARENT_TYPE SPI_ACCESSIBLE_TYPE
48 * A pointer to our parent object class
50 static SpiAccessibleClass *spi_application_parent_class;
52 static SpiApplication *the_app;
56 static void notify_listeners (GList *listeners,
57 Accessibility_Event *e,
58 CORBA_Environment *ev);
60 static char* lookup_toolkit_event_for_name (char *generic_name);
62 static char* reverse_lookup_name_for_toolkit_event (char *toolkit_name);
65 * Implemented GObject::finalize
68 spi_accessible_spi_application_finalize (GObject *object)
70 /* TODO: any necessary cleanup */
71 (G_OBJECT_CLASS (spi_application_parent_class))->finalize (object);
75 impl_accessibility_spi_application_get_toolkit_name (PortableServer_Servant servant,
76 CORBA_Environment *ev)
79 SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
80 retval = CORBA_string_dup (atk_get_toolkit_name ());
85 impl_accessibility_spi_application_get_version (PortableServer_Servant servant,
86 CORBA_Environment *ev)
89 SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
90 retval = CORBA_string_dup (atk_get_toolkit_version ());
95 impl_accessibility_spi_application_get_id (PortableServer_Servant servant,
96 CORBA_Environment *ev)
99 SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
100 retval = (CORBA_long) application->id;
105 impl_accessibility_spi_application_set_id (PortableServer_Servant servant,
107 CORBA_Environment *ev)
109 SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
110 application->id = id;
113 #define APP_STATIC_BUFF_SZ 64
116 spi_application_object_event_listener (GSignalInvocationHint *signal_hint,
117 guint n_param_values,
118 const GValue *param_values,
121 Accessibility_Event *e = Accessibility_Event__alloc();
124 SpiAccessible *source;
125 CORBA_Environment ev;
126 GSignalQuery signal_query;
128 char sbuf[APP_STATIC_BUFF_SZ];
131 g_signal_query (signal_hint->signal_id, &signal_query);
132 name = signal_query.signal_name;
133 fprintf (stderr, "Received (object) signal %s:%s\n",
134 g_type_name (signal_query.itype), name);
136 /* TODO: move GTK dependency out of app.c into bridge */
137 snprintf(sbuf, APP_STATIC_BUFF_SZ, "Gtk:%s:%s", g_type_name (signal_query.itype), name);
139 generic_name = reverse_lookup_name_for_toolkit_event (sbuf);
140 gobject = g_value_get_object (param_values + 0);
142 /* notify the actual listeners */
143 if (ATK_IS_IMPLEMENTOR (gobject))
145 aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
147 else if (ATK_IS_OBJECT (gobject))
149 aobject = ATK_OBJECT (gobject);
150 g_object_ref (G_OBJECT (aobject));
154 g_error("received event from non-AtkImplementor");
157 g_return_val_if_fail (generic_name, FALSE);
160 source = spi_accessible_new (aobject);
161 e->type = CORBA_string_dup (generic_name);
162 e->source = BONOBO_OBJREF (source);
164 * no need to dup this ref, since it's inprocess
165 * and will be dup'ed by (inprocess) notify_listeners() call below
169 if (the_app) notify_listeners (the_app->toolkit_listeners, e, &ev);
170 /* unref because the in-process notify has called b_o_dup_ref (e->source) */
171 bonobo_object_release_unref (e->source, &ev);
173 /* and, decrement the refcount on atkobject, incremented moments ago:
174 * the call to spi_accessible_new() above should have added an extra ref */
175 g_object_unref (G_OBJECT (aobject));
182 spi_application_toolkit_event_listener (GSignalInvocationHint *signal_hint,
183 guint n_param_values,
184 const GValue *param_values,
187 Accessibility_Event *e = Accessibility_Event__alloc();
190 SpiAccessible *source;
191 CORBA_Environment ev;
192 GSignalQuery signal_query;
194 char sbuf[APP_STATIC_BUFF_SZ];
196 g_signal_query (signal_hint->signal_id, &signal_query);
197 name = signal_query.signal_name;
198 fprintf (stderr, "Received signal %s:%s\n", g_type_name (signal_query.itype), name);
200 /* TODO: move GTK dependency out of app.c into bridge */
201 snprintf(sbuf, APP_STATIC_BUFF_SZ, "Gtk:%s:%s", g_type_name (signal_query.itype), name);
203 gobject = g_value_get_object (param_values + 0);
204 /* notify the actual listeners */
205 if (ATK_IS_IMPLEMENTOR (gobject))
207 aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
208 source = spi_accessible_new (aobject);
209 e->type = CORBA_string_dup (sbuf);
210 e->source = BONOBO_OBJREF (source);
213 if (the_app) notify_listeners (the_app->toolkit_listeners, e, &ev);
214 bonobo_object_unref (source);
215 g_object_unref (G_OBJECT (aobject));
221 impl_accessibility_spi_application_register_toolkit_event_listener (PortableServer_Servant servant,
222 Accessibility_EventListener listener,
223 const CORBA_char *event_name,
224 CORBA_Environment *ev)
226 guint spi_listener_id;
228 atk_add_global_event_listener (spi_application_toolkit_event_listener, event_name);
229 the_app->toolkit_listeners = g_list_append (the_app->toolkit_listeners,
230 CORBA_Object_duplicate (listener, ev));
232 fprintf (stderr, "registered %d for toolkit events named: %s\n",
239 impl_accessibility_spi_application_register_object_event_listener (PortableServer_Servant servant,
240 Accessibility_EventListener listener,
241 const CORBA_char *event_name,
242 CORBA_Environment *ev)
244 guint spi_listener_id;
245 char *toolkit_specific_event_name = lookup_toolkit_event_for_name (event_name);
246 if (toolkit_specific_event_name)
249 atk_add_global_event_listener (spi_application_object_event_listener,
250 CORBA_string_dup (toolkit_specific_event_name));
251 the_app->toolkit_listeners = g_list_append (the_app->toolkit_listeners,
252 CORBA_Object_duplicate (listener, ev));
255 fprintf (stderr, "registered %d for object events named: %s\n",
262 notify_listeners (GList *listeners, Accessibility_Event *e, CORBA_Environment *ev)
266 if (listeners) n_listeners = g_list_length (listeners);
268 for (i=0; i<n_listeners; ++i) {
269 Accessibility_EventListener listener;
270 e->source = bonobo_object_dup_ref (e->source, ev);
271 listener = (Accessibility_EventListener) g_list_nth_data (listeners, i);
272 Accessibility_EventListener_notifyEvent (listener, e, ev);
274 * when this (oneway) call completes, the CORBA refcount and
275 * Bonobo_Unknown refcount will be decremented by the recipient
281 lookup_toolkit_event_for_name (char *generic_name)
283 char *toolkit_specific_name;
284 SpiApplicationClass *klass = g_type_class_peek (SPI_APPLICATION_TYPE);
286 fprintf (stderr, "looking for %s in hash table.\n", generic_name);
288 toolkit_specific_name =
289 (char *) g_hash_table_lookup (klass->toolkit_event_names, generic_name);
291 fprintf (stderr, "generic event %s converted to %s\n", generic_name, toolkit_specific_name);
293 return toolkit_specific_name;
297 reverse_lookup_name_for_toolkit_event (char *toolkit_specific_name)
300 SpiApplicationClass *klass = g_type_class_peek (SPI_APPLICATION_TYPE);
302 fprintf (stderr, "(reverse lookup) looking for %s in hash table.\n", toolkit_specific_name);
305 (char *) g_hash_table_lookup (klass->generic_event_names, toolkit_specific_name);
307 fprintf (stderr, "toolkit event %s converted to %s\n", toolkit_specific_name, generic_name);
313 init_toolkit_names (GHashTable **generic_event_names, GHashTable **toolkit_event_names)
315 *toolkit_event_names = g_hash_table_new (g_str_hash, g_str_equal);
316 *generic_event_names = g_hash_table_new (g_str_hash, g_str_equal);
317 g_hash_table_insert (*toolkit_event_names,
318 "object:property-change",
319 "Gtk:AtkObject:property-change");
320 g_hash_table_insert (*generic_event_names,
321 "Gtk:AtkObject:property-change",
322 "object:property-change");
324 fprintf (stderr, "inserted spi_selection_changed hash\n");
329 spi_application_class_init (SpiApplicationClass *klass)
331 GObjectClass * object_class = (GObjectClass *) klass;
332 POA_Accessibility_SpiApplication__epv *epv = &klass->epv;
334 spi_application_parent_class = g_type_class_ref (SPI_ACCESSIBLE_TYPE);
336 object_class->finalize = spi_accessible_spi_application_finalize;
338 epv->_get_toolkitName = impl_accessibility_spi_application_get_toolkit_name;
339 epv->_get_version = impl_accessibility_spi_application_get_version;
340 epv->_get_id = impl_accessibility_spi_application_get_id;
341 epv->_set_id = impl_accessibility_spi_application_set_id;
342 epv->registerToolkitEventListener = impl_accessibility_spi_application_register_toolkit_event_listener;
343 init_toolkit_names (&klass->generic_event_names, &klass->toolkit_event_names);
347 spi_application_init (SpiApplication *application)
349 SPI_ACCESSIBLE (application)->atko = g_object_new (atk_object_get_type(), NULL);
350 application->toolkit_listeners = (GList *) NULL;
351 the_app = application;
355 spi_application_get_type (void)
357 static GType type = 0;
360 static const GTypeInfo tinfo = {
361 sizeof (SpiApplicationClass),
362 (GBaseInitFunc) NULL,
363 (GBaseFinalizeFunc) NULL,
364 (GClassInitFunc) spi_application_class_init,
365 (GClassFinalizeFunc) NULL,
366 NULL, /* class data */
367 sizeof (SpiApplication),
369 (GInstanceInitFunc) spi_application_init,
370 NULL /* value table */
373 * Bonobo_type_unique auto-generates a load of
374 * CORBA structures for us. All derived types must
375 * use bonobo_type_unique.
377 type = bonobo_type_unique (
379 POA_Accessibility_SpiApplication__init,
381 G_STRUCT_OFFSET (SpiApplicationClass, epv),
390 spi_application_new (AtkObject *app_root)
392 SpiApplication *retval =
393 SPI_APPLICATION (g_object_new (spi_application_get_type (), NULL));
394 SPI_ACCESSIBLE (retval)->atko = app_root;
395 g_object_ref (G_OBJECT (app_root));