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 /* hyperlink.c : implements the Hyperlink interface */
28 #include <libspi/hyperlink.h>
29 #include <libspi/action.h>
30 #include <libspi/accessible.h>
32 /* Static function declarations */
35 spi_hyperlink_class_init (SpiHyperlinkClass *klass);
37 spi_hyperlink_init (SpiHyperlink *hyperlink);
39 impl_getURI (PortableServer_Servant _servant,
40 const CORBA_long i, CORBA_Environment * ev);
42 impl__get_n_anchors (PortableServer_Servant _servant,
43 CORBA_Environment * ev);
45 impl__get_startIndex (PortableServer_Servant _servant,
46 CORBA_Environment * ev);
48 impl__get_endIndex (PortableServer_Servant _servant,
49 CORBA_Environment * ev);
50 static Accessibility_Accessible
51 impl_getObject (PortableServer_Servant _servant,
53 CORBA_Environment * ev);
55 impl_isValid (PortableServer_Servant _servant,
56 CORBA_Environment * ev);
59 BONOBO_TYPE_FUNC_FULL (SpiHyperlink,
60 Accessibility_Hyperlink,
66 spi_hyperlink_class_init (SpiHyperlinkClass *klass)
68 POA_Accessibility_Hyperlink__epv *epv = &klass->epv;
70 /* Initialize epv table */
72 epv->_get_nAnchors = impl__get_n_anchors;
73 epv->getURI = impl_getURI;
74 epv->_get_startIndex = impl__get_startIndex;
75 epv->_get_endIndex = impl__get_endIndex;
76 epv->getObject = impl_getObject;
77 epv->isValid = impl_isValid;
82 spi_hyperlink_init (SpiHyperlink *hyperlink)
88 spi_hyperlink_new (AtkHyperlink *object)
90 SpiHyperlink *new_hyperlink = g_object_new (
91 SPI_HYPERLINK_TYPE, NULL);
93 spi_base_construct (SPI_BASE (new_hyperlink), G_OBJECT(object));
96 * some hyperlinks are actionable... this is an ATK convention
97 * that seems convenient though possibly poorly documented or unintended.
99 if (ATK_IS_ACTION (object))
102 * NOTE: we don't cast 'object' to ATK_OBJECT in the call to
103 * spi_action_interface_new(), because of the above convention,
104 * even though it means we may be violating the func prototype.
105 * See discussion in bugzilla bug #120659.
107 * IMPORTANT! The 'AtkObject' typecast, instead of the cast macro,
108 * is used below, because 'object' may NOT really be an AtkObject;
109 * it will be cast back to a G_OBJECT inside spi_action_interface_new
110 * before use, so this is OK though very ropey coding style.
113 /* Don't aggregate action twice... if this is from AtkHyperlinkImpl */
114 if (!bonobo_object_query_interface (bonobo_object (new_hyperlink), "IDL:Accessibility/Action:1.0",
117 bonobo_object_add_interface (bonobo_object (new_hyperlink),
118 BONOBO_OBJECT (spi_action_interface_new ((AtkObject *) object)));
120 return new_hyperlink;
123 static AtkHyperlink *
124 get_hyperlink_from_servant (PortableServer_Servant servant)
126 SpiBase *object = SPI_BASE (bonobo_object_from_servant (servant));
128 g_return_val_if_fail (object != NULL, NULL);
129 if (ATK_IS_HYPERLINK(object->gobj))
131 return ATK_HYPERLINK (object->gobj);
133 else if (ATK_IS_HYPERLINK_IMPL(object->gobj))
135 return atk_hyperlink_impl_get_hyperlink (ATK_HYPERLINK_IMPL (object->gobj));
143 impl__get_n_anchors (PortableServer_Servant servant,
144 CORBA_Environment *ev)
146 AtkHyperlink *link = get_hyperlink_from_servant (servant);
148 g_return_val_if_fail (link != NULL, 0);
150 return atk_hyperlink_get_n_anchors (link);
155 impl__get_startIndex (PortableServer_Servant servant,
156 CORBA_Environment *ev)
158 AtkHyperlink *link = get_hyperlink_from_servant (servant);
160 g_return_val_if_fail (link != NULL, -1);
162 return atk_hyperlink_get_start_index (link);
167 impl__get_endIndex (PortableServer_Servant servant,
168 CORBA_Environment *ev)
170 AtkHyperlink *link = get_hyperlink_from_servant (servant);
172 g_return_val_if_fail (link != NULL, -1);
174 return atk_hyperlink_get_end_index (link);
179 impl_getURI (PortableServer_Servant servant,
180 const CORBA_long i, CORBA_Environment *ev)
184 AtkHyperlink *link = get_hyperlink_from_servant (servant);
186 g_return_val_if_fail (link != NULL, CORBA_string_dup (""));
188 uri = atk_hyperlink_get_uri (link, i);
191 rv = CORBA_string_dup (uri);
195 rv = CORBA_string_dup ("");
201 static Accessibility_Accessible
202 impl_getObject (PortableServer_Servant servant,
204 CORBA_Environment *ev)
206 AtkObject *atk_object;
207 AtkHyperlink *link = get_hyperlink_from_servant (servant);
209 g_return_val_if_fail (link != NULL, CORBA_OBJECT_NIL);
211 atk_object = atk_hyperlink_get_object (link, i);
213 return spi_accessible_new_return (atk_object, FALSE, ev);
218 impl_isValid (PortableServer_Servant servant,
219 CORBA_Environment *ev)
221 AtkHyperlink *link = get_hyperlink_from_servant (servant);
223 g_return_val_if_fail (link != NULL, TRUE);
225 return atk_hyperlink_is_valid (link);