* AT-SPI - Assistive Technology Service Provider Interface
* (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
*
- * Copyright 2001 Sun Microsystems Inc.
+ * Copyright 2001, 2002 Sun Microsystems Inc.,
+ * Copyright 2001, 2002 Ximian, Inc.
* 2002 Ximian Inc.
*
* This library is free software; you can redistribute it and/or
CORBA_Object
cspi_dup_ref (CORBA_Object object)
{
- return bonobo_object_dup_ref (object, NULL);
+ return bonobo_object_dup_ref (object, cspi_ev ());
}
void
cspi_release_unref (CORBA_Object object)
{
- bonobo_object_release_unref (object, NULL);
+ bonobo_object_release_unref (object, NULL);
}
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)
{
err = bonobo_exception_get_text (ev);
- fprintf (stderr, "Warning: AT-SPI error: %s: %s\n",
- error_string, err);
+ if (!_cspi_exception_throw (ev, (char *) error_string)) {
+ fprintf (stderr, "Warning: AT-SPI error: %s: %s\n",
+ error_string, err);
+ }
g_free (err);