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 /* accessible.c: the core of the accessibility implementation */
28 #include <bonobo/bonobo-exception.h>
30 #include <libspi/libspi.h>
31 #include "spi-private.h"
33 /* Our parent Gtk object type */
34 #define PARENT_TYPE SPI_TYPE_BASE
36 static gboolean spi_init_role_lookup_table (Accessibility_Role *role_table);
37 Accessibility_Role spi_accessible_role_from_atk_role (AtkRole role);
40 spi_init_role_lookup_table (Accessibility_Role *role_table)
43 /* if it's not in the list below, dunno what it is */
44 for (i = 0; i < ATK_ROLE_LAST_DEFINED; ++i)
46 role_table [i] = Accessibility_ROLE_UNKNOWN;
49 role_table [ATK_ROLE_INVALID] = Accessibility_ROLE_INVALID;
50 role_table [ATK_ROLE_ACCEL_LABEL] = Accessibility_ROLE_ACCELERATOR_LABEL;
51 role_table [ATK_ROLE_ALERT] = Accessibility_ROLE_ALERT;
52 role_table [ATK_ROLE_ANIMATION] = Accessibility_ROLE_ANIMATION;
53 role_table [ATK_ROLE_ARROW] = Accessibility_ROLE_ARROW;
54 role_table [ATK_ROLE_CALENDAR] = Accessibility_ROLE_CALENDAR;
55 role_table [ATK_ROLE_CANVAS] = Accessibility_ROLE_CANVAS;
56 role_table [ATK_ROLE_CHECK_BOX] = Accessibility_ROLE_CHECK_BOX;
57 role_table [ATK_ROLE_CHECK_MENU_ITEM] = Accessibility_ROLE_CHECK_MENU_ITEM;
58 role_table [ATK_ROLE_COLOR_CHOOSER] = Accessibility_ROLE_COLOR_CHOOSER;
59 role_table [ATK_ROLE_COLUMN_HEADER] = Accessibility_ROLE_COLUMN_HEADER;
60 role_table [ATK_ROLE_COMBO_BOX] = Accessibility_ROLE_COMBO_BOX;
61 role_table [ATK_ROLE_DATE_EDITOR] = Accessibility_ROLE_DATE_EDITOR;
62 role_table [ATK_ROLE_DESKTOP_ICON] = Accessibility_ROLE_DESKTOP_ICON;
63 role_table [ATK_ROLE_DESKTOP_FRAME] = Accessibility_ROLE_DESKTOP_FRAME;
64 role_table [ATK_ROLE_DIAL] = Accessibility_ROLE_DIAL;
65 role_table [ATK_ROLE_DIALOG] = Accessibility_ROLE_DIALOG;
66 role_table [ATK_ROLE_DIRECTORY_PANE] = Accessibility_ROLE_DIRECTORY_PANE;
67 role_table [ATK_ROLE_DRAWING_AREA] = Accessibility_ROLE_DRAWING_AREA;
68 role_table [ATK_ROLE_FILE_CHOOSER] = Accessibility_ROLE_FILE_CHOOSER;
69 role_table [ATK_ROLE_FILLER] = Accessibility_ROLE_FILLER;
70 role_table [ATK_ROLE_FONT_CHOOSER] = Accessibility_ROLE_FONT_CHOOSER;
71 role_table [ATK_ROLE_FRAME] = Accessibility_ROLE_FRAME;
72 role_table [ATK_ROLE_GLASS_PANE] = Accessibility_ROLE_GLASS_PANE;
73 role_table [ATK_ROLE_HTML_CONTAINER] = Accessibility_ROLE_HTML_CONTAINER;
74 role_table [ATK_ROLE_ICON] = Accessibility_ROLE_ICON;
75 role_table [ATK_ROLE_IMAGE] = Accessibility_ROLE_IMAGE;
76 role_table [ATK_ROLE_INTERNAL_FRAME] = Accessibility_ROLE_INTERNAL_FRAME;
77 role_table [ATK_ROLE_LABEL] = Accessibility_ROLE_LABEL;
78 role_table [ATK_ROLE_LAYERED_PANE] = Accessibility_ROLE_LAYERED_PANE;
79 role_table [ATK_ROLE_LIST] = Accessibility_ROLE_LIST;
80 role_table [ATK_ROLE_LIST_ITEM] = Accessibility_ROLE_LIST_ITEM;
81 role_table [ATK_ROLE_MENU] = Accessibility_ROLE_MENU;
82 role_table [ATK_ROLE_MENU_BAR] = Accessibility_ROLE_MENU_BAR;
83 role_table [ATK_ROLE_MENU_ITEM] = Accessibility_ROLE_MENU_ITEM;
84 role_table [ATK_ROLE_OPTION_PANE] = Accessibility_ROLE_OPTION_PANE;
85 role_table [ATK_ROLE_PAGE_TAB] = Accessibility_ROLE_PAGE_TAB;
86 role_table [ATK_ROLE_PAGE_TAB_LIST] = Accessibility_ROLE_PAGE_TAB_LIST;
87 role_table [ATK_ROLE_PANEL] = Accessibility_ROLE_PANEL;
88 role_table [ATK_ROLE_PASSWORD_TEXT] = Accessibility_ROLE_PASSWORD_TEXT;
89 role_table [ATK_ROLE_POPUP_MENU] = Accessibility_ROLE_POPUP_MENU;
90 role_table [ATK_ROLE_PROGRESS_BAR] = Accessibility_ROLE_PROGRESS_BAR;
91 role_table [ATK_ROLE_PUSH_BUTTON] = Accessibility_ROLE_PUSH_BUTTON;
92 role_table [ATK_ROLE_RADIO_BUTTON] = Accessibility_ROLE_RADIO_BUTTON;
93 role_table [ATK_ROLE_RADIO_MENU_ITEM] = Accessibility_ROLE_RADIO_MENU_ITEM;
94 role_table [ATK_ROLE_ROOT_PANE] = Accessibility_ROLE_ROOT_PANE;
95 role_table [ATK_ROLE_ROW_HEADER] = Accessibility_ROLE_ROW_HEADER;
96 role_table [ATK_ROLE_SCROLL_BAR] = Accessibility_ROLE_SCROLL_BAR;
97 role_table [ATK_ROLE_SCROLL_PANE] = Accessibility_ROLE_SCROLL_PANE;
98 role_table [ATK_ROLE_SEPARATOR] = Accessibility_ROLE_SEPARATOR;
99 role_table [ATK_ROLE_SLIDER] = Accessibility_ROLE_SLIDER;
100 role_table [ATK_ROLE_SPIN_BUTTON] = Accessibility_ROLE_SPIN_BUTTON;
101 role_table [ATK_ROLE_SPLIT_PANE] = Accessibility_ROLE_SPLIT_PANE;
102 role_table [ATK_ROLE_STATUSBAR] = Accessibility_ROLE_STATUS_BAR;
103 role_table [ATK_ROLE_TABLE] = Accessibility_ROLE_TABLE;
104 role_table [ATK_ROLE_TABLE_CELL] = Accessibility_ROLE_TABLE_CELL;
105 role_table [ATK_ROLE_TABLE_COLUMN_HEADER] = Accessibility_ROLE_TABLE_COLUMN_HEADER;
106 role_table [ATK_ROLE_TABLE_ROW_HEADER] = Accessibility_ROLE_TABLE_ROW_HEADER;
107 role_table [ATK_ROLE_TEAR_OFF_MENU_ITEM] = Accessibility_ROLE_TEAROFF_MENU_ITEM;
108 role_table [ATK_ROLE_TERMINAL] = Accessibility_ROLE_TERMINAL;
109 role_table [ATK_ROLE_TEXT] = Accessibility_ROLE_TEXT;
110 role_table [ATK_ROLE_TOGGLE_BUTTON] = Accessibility_ROLE_TOGGLE_BUTTON;
111 role_table [ATK_ROLE_TOOL_BAR] = Accessibility_ROLE_TOOL_BAR;
112 role_table [ATK_ROLE_TOOL_TIP] = Accessibility_ROLE_TOOL_TIP;
113 role_table [ATK_ROLE_TREE] = Accessibility_ROLE_TREE;
114 role_table [ATK_ROLE_TREE_TABLE] = Accessibility_ROLE_TREE_TABLE;
115 role_table [ATK_ROLE_UNKNOWN] = Accessibility_ROLE_UNKNOWN;
116 role_table [ATK_ROLE_VIEWPORT] = Accessibility_ROLE_VIEWPORT;
117 role_table [ATK_ROLE_WINDOW] = Accessibility_ROLE_WINDOW;
118 role_table [ATK_ROLE_HEADER] = Accessibility_ROLE_HEADER;
119 role_table [ATK_ROLE_FOOTER] = Accessibility_ROLE_FOOTER;
120 role_table [ATK_ROLE_PARAGRAPH] = Accessibility_ROLE_PARAGRAPH;
121 role_table [ATK_ROLE_RULER] = Accessibility_ROLE_RULER;
122 role_table [ATK_ROLE_APPLICATION] = Accessibility_ROLE_APPLICATION;
123 role_table [ATK_ROLE_AUTOCOMPLETE] = Accessibility_ROLE_AUTOCOMPLETE;
124 role_table [ATK_ROLE_EDITBAR] = Accessibility_ROLE_EDITBAR;
125 role_table [ATK_ROLE_EMBEDDED] = Accessibility_ROLE_EMBEDDED;
126 role_table [ATK_ROLE_ENTRY] = Accessibility_ROLE_ENTRY;
127 role_table [ATK_ROLE_CHART] = Accessibility_ROLE_CHART;
128 role_table [ATK_ROLE_CAPTION] = Accessibility_ROLE_CAPTION;
129 role_table [ATK_ROLE_DOCUMENT_FRAME] = Accessibility_ROLE_DOCUMENT_FRAME;
130 role_table [ATK_ROLE_HEADING] = Accessibility_ROLE_HEADING;
131 role_table [ATK_ROLE_PAGE] = Accessibility_ROLE_PAGE;
132 role_table [ATK_ROLE_SECTION] = Accessibility_ROLE_SECTION;
133 role_table [ATK_ROLE_FORM] = Accessibility_ROLE_FORM;
134 role_table [ATK_ROLE_REDUNDANT_OBJECT] = Accessibility_ROLE_REDUNDANT_OBJECT;
135 role_table [ATK_ROLE_LINK] = Accessibility_ROLE_LINK;
136 role_table [ATK_ROLE_INPUT_METHOD_WINDOW] = Accessibility_ROLE_INPUT_METHOD_WINDOW;
141 spi_accessible_role_from_atk_role (AtkRole role)
143 static gboolean is_initialized = FALSE;
144 static Accessibility_Role spi_role_table [ATK_ROLE_LAST_DEFINED];
145 Accessibility_Role spi_role;
149 is_initialized = spi_init_role_lookup_table (spi_role_table);
152 if (role >= 0 && role < ATK_ROLE_LAST_DEFINED)
154 spi_role = spi_role_table [role];
158 spi_role = Accessibility_ROLE_EXTENDED;
164 get_atkobject_from_servant (PortableServer_Servant servant)
166 SpiBase *object = SPI_BASE (bonobo_object_from_servant (servant));
168 g_return_val_if_fail (object, NULL);
169 g_return_val_if_fail (ATK_IS_OBJECT(object->gobj), NULL);
170 return ATK_OBJECT(object->gobj);
174 * CORBA Accessibility::Accessible::get_name method implementation
177 impl_accessibility_accessible_get_name (PortableServer_Servant servant,
178 CORBA_Environment *ev)
182 AtkObject *object = get_atkobject_from_servant (servant);
184 g_return_val_if_fail (object != NULL, CORBA_string_dup (""));
186 name = atk_object_get_name (object);
190 retval = CORBA_string_dup (name);
194 retval = CORBA_string_dup ("");
201 * CORBA Accessibility::Accessible::set_name method implementation
204 impl_accessibility_accessible_set_name (PortableServer_Servant servant,
205 const CORBA_char *name,
206 CORBA_Environment *ev)
208 AtkObject *object = get_atkobject_from_servant (servant);
210 g_return_if_fail (object != NULL);
212 atk_object_set_name (object, name);
216 * CORBA Accessibility::Accessible::get_description method implementation
219 impl_accessibility_accessible_get_description (PortableServer_Servant servant,
220 CORBA_Environment *ev)
224 AtkObject *object = get_atkobject_from_servant (servant);
226 g_return_val_if_fail (object != NULL, CORBA_string_dup (""));
228 descr = atk_object_get_description (object);
232 retval = CORBA_string_dup (descr);
236 retval = CORBA_string_dup ("");
243 * CORBA Accessibility::Accessible::set_description method implementation
246 impl_accessibility_accessible_set_description (PortableServer_Servant servant,
247 const CORBA_char *descr,
248 CORBA_Environment *ev)
250 AtkObject *object = get_atkobject_from_servant (servant);
252 g_return_if_fail (object != NULL);
254 atk_object_set_description (object, descr);
258 * CORBA Accessibility::Accessible::get_parent method implementation
260 static Accessibility_Accessible
261 impl_accessibility_accessible_get_parent (PortableServer_Servant servant,
262 CORBA_Environment *ev)
265 AtkObject *object = get_atkobject_from_servant (servant);
267 g_return_val_if_fail (object != NULL, CORBA_OBJECT_NIL);
269 parent = atk_object_get_parent (object);
271 return spi_accessible_new_return (parent, FALSE, ev);
275 * CORBA Accessibility::Accessible::get_IndexInParent method implementation
278 impl_accessibility_accessible_get_index_in_parent (PortableServer_Servant servant,
279 CORBA_Environment *ev)
281 AtkObject *object = get_atkobject_from_servant (servant);
283 g_return_val_if_fail (object != NULL, -1);
285 return atk_object_get_index_in_parent (object);
289 * CORBA Accessibility::Accessible::get_childCount method implementation
292 impl_accessibility_accessible_get_child_count (PortableServer_Servant servant,
293 CORBA_Environment *ev)
295 AtkObject *object = get_atkobject_from_servant (servant);
297 g_return_val_if_fail (object != NULL, 0);
299 return atk_object_get_n_accessible_children (object);
303 * CORBA Accessibility::Accessible::getChildAtIndex method implementation
305 static Accessibility_Accessible
306 impl_accessibility_accessible_get_child_at_index (PortableServer_Servant servant,
307 const CORBA_long index,
308 CORBA_Environment *ev)
311 AtkObject *object = get_atkobject_from_servant (servant);
313 g_return_val_if_fail (object != NULL, CORBA_OBJECT_NIL);
315 child = atk_object_ref_accessible_child (object, index);
317 return spi_accessible_new_return (child, TRUE, ev);
321 * CORBA Accessibility::Accessible::getState method implementation
323 static Accessibility_StateSet
324 impl_accessibility_accessible_get_state (PortableServer_Servant servant,
325 CORBA_Environment *ev)
327 AtkObject *object = get_atkobject_from_servant (servant);
328 AtkStateSet *atk_set;
330 Accessibility_StateSet retval;
332 bonobo_return_val_if_fail (object != NULL, NULL, ev);
334 atk_set = atk_object_ref_state_set (object);
336 set = spi_state_set_new (atk_set);
337 retval = bonobo_object_dup_ref (
345 * CORBA Accessibility::Accessible::getRelationSet method implementation
347 static Accessibility_RelationSet *
348 impl_accessibility_accessible_get_relation_set (PortableServer_Servant servant,
349 CORBA_Environment *ev)
351 Accessibility_RelationSet *retval;
354 AtkRelationSet *relation_set;
355 AtkObject *object = get_atkobject_from_servant (servant);
357 bonobo_return_val_if_fail (object != NULL, NULL, ev);
359 relation_set = atk_object_ref_relation_set (object);
361 n_relations = atk_relation_set_get_n_relations (relation_set);
363 retval = CORBA_sequence_Accessibility_Relation__alloc ();
364 retval->_length = retval->_maximum = n_relations;
365 retval->_buffer = CORBA_sequence_Accessibility_Relation_allocbuf (n_relations);
366 CORBA_sequence_set_release (retval, CORBA_TRUE);
368 for (i = 0; i < n_relations; ++i)
371 bonobo_object_dup_ref (
373 spi_relation_new (atk_relation_set_get_relation (relation_set, i))),
381 * CORBA Accessibility::Accessible::getRole method implementation
383 static Accessibility_Role
384 impl_accessibility_accessible_get_role (PortableServer_Servant servant,
385 CORBA_Environment *ev)
388 Accessibility_Role retval;
389 AtkObject *object = get_atkobject_from_servant (servant);
391 g_return_val_if_fail (object != NULL, 0);
393 role = atk_object_get_role (object);
394 retval = spi_role_from_atk_role (role);
400 * CORBA Accessibility::Accessible::getRole method implementation
403 impl_accessibility_accessible_get_role_name (PortableServer_Servant servant,
404 CORBA_Environment *ev)
406 const gchar *role_name;
408 AtkObject *object = get_atkobject_from_servant (servant);
410 g_return_val_if_fail (object != NULL, NULL);
412 role = atk_object_get_role (object);
414 role_name = atk_role_get_name (role);
416 return CORBA_string_dup (role_name);
418 return CORBA_string_dup ("");
422 * CORBA Accessibility::Accessible::getLocalizedRole method implementation
425 impl_accessibility_accessible_get_local_role_name (PortableServer_Servant servant,
426 CORBA_Environment *ev)
428 const gchar *role_name;
430 AtkObject *object = get_atkobject_from_servant (servant);
432 g_return_val_if_fail (object != NULL, NULL);
434 role = atk_object_get_role (object);
436 role_name = atk_role_get_localized_name (role);
438 return CORBA_string_dup (role_name);
440 return CORBA_string_dup ("");
443 static Accessibility_Accessible
444 impl_accessibility_accessible_get_application (PortableServer_Servant servant,
445 CORBA_Environment *ev)
447 return spi_accessible_new_return (atk_get_root (), FALSE, ev);
450 static Accessibility_AttributeSet*
451 impl_accessibility_accessible_get_attributes (PortableServer_Servant servant,
452 CORBA_Environment *ev)
454 Accessibility_AttributeSet *retval;
455 AtkAttributeSet *attributes = NULL;
456 AtkAttribute *attr = NULL;
457 gint n_attributes = 0;
460 AtkObject *object = get_atkobject_from_servant (servant);
462 g_return_val_if_fail (object != NULL, NULL);
463 attributes = atk_object_get_attributes (object);
465 bonobo_return_val_if_fail (attributes != NULL, NULL, ev);
466 n_attributes = g_slist_length (attributes);
468 retval = CORBA_sequence_CORBA_string__alloc ();
469 retval->_length = retval->_maximum = n_attributes;
470 retval->_buffer = CORBA_sequence_CORBA_string_allocbuf (n_attributes);
471 CORBA_sequence_set_release (retval, CORBA_TRUE);
473 for (i = 0; i < n_attributes; ++i)
475 attr = g_slist_nth_data (attributes, i);
476 retval->_buffer[i] = CORBA_string_dup (g_strconcat (attr->name, ":", attr->value, NULL));
479 atk_attribute_set_free (attributes);
485 spi_accessible_class_init (SpiAccessibleClass *klass)
487 POA_Accessibility_Accessible__epv *epv = &klass->epv;
489 epv->_get_name = impl_accessibility_accessible_get_name;
490 epv->_set_name = impl_accessibility_accessible_set_name;
491 epv->_get_description = impl_accessibility_accessible_get_description;
492 epv->_set_description = impl_accessibility_accessible_set_description;
494 epv->_get_parent = impl_accessibility_accessible_get_parent;
495 epv->_get_childCount = impl_accessibility_accessible_get_child_count;
496 epv->getChildAtIndex = impl_accessibility_accessible_get_child_at_index;
497 epv->getIndexInParent = impl_accessibility_accessible_get_index_in_parent;
499 epv->getRelationSet = impl_accessibility_accessible_get_relation_set;
500 epv->getState = impl_accessibility_accessible_get_state;
501 epv->getRole = impl_accessibility_accessible_get_role;
502 epv->getRoleName = impl_accessibility_accessible_get_role_name;
503 epv->getLocalizedRoleName = impl_accessibility_accessible_get_local_role_name;
504 epv->getApplication = impl_accessibility_accessible_get_application;
505 epv->getAttributes = impl_accessibility_accessible_get_attributes;
509 spi_accessible_init (SpiAccessible *accessible)
513 BONOBO_TYPE_FUNC_FULL (SpiAccessible,
514 Accessibility_Accessible,
518 static GHashTable *public_corba_refs = NULL;
521 get_public_refs (void)
523 if (!public_corba_refs)
525 public_corba_refs = g_hash_table_new (NULL, NULL);
527 return public_corba_refs;
531 de_register_public_ref (SpiBase *object)
533 g_hash_table_remove (get_public_refs (), object->gobj);
537 spi_accessible_new (AtkObject *o)
539 return spi_accessible_construct (SPI_ACCESSIBLE_TYPE, o);
543 spi_accessible_construct (GType type, AtkObject *o)
545 SpiAccessible *retval;
546 CORBA_Environment ev;
548 CORBA_exception_init (&ev);
551 g_assert (g_type_is_a (type, SPI_ACCESSIBLE_TYPE));
553 if ((retval = g_hash_table_lookup (get_public_refs (), o)))
555 bonobo_object_ref (BONOBO_OBJECT (retval));
560 retval = g_object_new (type, NULL);
561 spi_base_construct (SPI_BASE (retval), G_OBJECT(o));
564 g_hash_table_insert (get_public_refs (), o, retval);
565 g_signal_connect (G_OBJECT (retval), "destroy",
566 G_CALLBACK (de_register_public_ref),
569 /* aggregate appropriate SPI interfaces based on ATK interfaces */
571 if (ATK_IS_ACTION (o))
573 bonobo_object_add_interface (bonobo_object (retval),
574 BONOBO_OBJECT (spi_action_interface_new (o)));
577 if (ATK_IS_COMPONENT (o))
579 bonobo_object_add_interface (bonobo_object (retval),
580 BONOBO_OBJECT (spi_component_interface_new (o)));
583 if (ATK_IS_EDITABLE_TEXT (o))
585 bonobo_object_add_interface (bonobo_object (retval),
586 BONOBO_OBJECT(spi_editable_text_interface_new (o)));
589 else if (ATK_IS_TEXT (o))
591 bonobo_object_add_interface (bonobo_object (retval),
592 BONOBO_OBJECT (spi_text_interface_new (o)));
595 if (ATK_IS_HYPERTEXT (o))
597 bonobo_object_add_interface (bonobo_object (retval),
598 BONOBO_OBJECT (spi_hypertext_interface_new (o)));
601 if (ATK_IS_IMAGE (o))
603 bonobo_object_add_interface (bonobo_object (retval),
604 BONOBO_OBJECT (spi_image_interface_new (o)));
607 if (ATK_IS_SELECTION (o))
609 bonobo_object_add_interface (bonobo_object (retval),
610 BONOBO_OBJECT (spi_selection_interface_new (o)));
613 if (ATK_IS_TABLE (o))
615 bonobo_object_add_interface (bonobo_object (retval),
616 BONOBO_OBJECT (spi_table_interface_new (o)));
619 if (ATK_IS_VALUE (o))
621 bonobo_object_add_interface (bonobo_object (retval),
622 BONOBO_OBJECT (spi_value_interface_new (o)));
625 if (ATK_IS_STREAMABLE_CONTENT (o))
627 bonobo_object_add_interface (bonobo_object (retval),
628 BONOBO_OBJECT (spi_streamable_interface_new (o)));
630 if (ATK_IS_DOCUMENT (o))
632 bonobo_object_add_interface (bonobo_object (retval),
633 BONOBO_OBJECT (spi_document_interface_new (o)));
635 if (ATK_IS_HYPERLINK_IMPL (o))
637 /* !!! the cast below is used instead of the ATK_HYPERLINK macro, since
638 the object 'o' is not really a hyperlink, but is in fact an AtkHyperlinkImpl.
639 Ouch. This works since it gets cast back to GObject, but it's nasty and needs
642 bonobo_object_add_interface (bonobo_object (retval),
643 BONOBO_OBJECT (spi_hyperlink_new ((AtkHyperlink*)o)));
650 * spi_accessible_new_return:
651 * @o: an AtkObject or NULL
652 * @release_ref: whether to unref this AtkObject before return
653 * @ev: a CORBA environment
655 * A helper function to instantiate a CORBA accessiblility
656 * proxy from an AtkObject.
658 * Return value: the proxy or CORBA_OBJECT_NIL
660 Accessibility_Accessible
661 spi_accessible_new_return (AtkObject *o,
662 gboolean release_ref,
663 CORBA_Environment *ev)
665 SpiAccessible *accessible;
666 Accessibility_Accessible retval;
670 return CORBA_OBJECT_NIL;
672 else if (SPI_IS_REMOTE_OBJECT (o))
674 retval = spi_remote_object_get_accessible (SPI_REMOTE_OBJECT (o));
678 accessible = spi_accessible_construct (SPI_ACCESSIBLE_TYPE, o);
679 retval = CORBA_Object_duplicate (BONOBO_OBJREF (accessible), ev);
684 g_object_unref (G_OBJECT (o));