* cspi/bonobo/cspi-bonobo.c (cspi_check_ev): use it.
* cspi/spi_main.c (cspi_peek_ev): impl.
git-svn-id: http://svn.gnome.org/svn/at-spi/trunk@446
e2bd861d-eb25-0410-b326-
f6ed22b6b98c
+2003-06-13 Michael Meeks <michael@ximian.com>
+
+ * cspi/bonobo/cspi-bonobo.c (cspi_check_ev): use it.
+
+ * cspi/spi_main.c (cspi_peek_ev): impl.
+
2003-06-11 Padraig O'Briain <padraig.obriain@sun.com>
* cspi/spi-roletypes.h: Add role SPI_ROLE_AUTOCOMPLETE
SPIBoolean
cspi_check_ev (const char *error_string)
{
- CORBA_Environment *ev = cspi_ev ();
+ CORBA_Environment *ev = cspi_peek_ev ();
if (ev->_major != CORBA_NO_EXCEPTION)
{
#define CSPI_OBJREF(a) (((Accessible *)(a))->objref)
CORBA_Environment *cspi_ev (void);
+CORBA_Environment *cspi_peek_ev (void);
SPIBoolean cspi_exception (void);
Accessibility_Registry cspi_registry (void);
Accessible *cspi_object_add (CORBA_Object corba_object);
return live_refs;
}
+CORBA_Environment *
+cspi_peek_ev (void)
+{
+ return &ev;
+}
+
CORBA_Environment *
cspi_ev (void)
{