libspi/listener.c

   1 /*
   2  * AT-SPI - Assistive Technology Service Provider Interface
   3  * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
   4  *
   5  * Copyright 2001 Sun Microsystems Inc.
   6  *
   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.
  11  *
  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.
  16  *
  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.
  21  */
  22
  23 /*
  24  * listener.c: test for accessibility implementation
  25  *
  26  */
  27
  28 #ifdef SPI_DEBUG
  29 #include <stdio.h>
  30 #endif
  31
  32 #include <config.h>
  33 #include <bonobo/Bonobo.h>
  34 #include <libspi/Accessibility.h>
  35
  36 /*
  37  * This pulls the definition for the BonoboObject (GType)
  38  */
  39 #include "listener.h"
  40
  41 /*
  42  * Our parent Gtk object type
  43  */
  44 #define PARENT_TYPE BONOBO_OBJECT_TYPE
  45
  46 /*
  47  * A pointer to our parent object class
  48  */
  49 static GObjectClass *listener_parent_class;
  50
  51 /*
  52  * Implemented GObject::finalize
  53  */
  54 static void
  55 listener_object_finalize (GObject *object)
  56 {
  57 /*        Listener *listener = LISTENER (object); */
  58
  59 #ifdef SPI_DEBUG
  60         fprintf(stderr, "listener_object_finalize called\n");
  61 #endif
  62         listener_parent_class->finalize (object);
  63 }
  64
  65 /*
  66  * CORBA Accessibility::Listener::notifyEvent method implementation
  67  */
  68
  69 static void
  70 impl_notify_event (PortableServer_Servant     servant,
  71                    const Accessibility_Event *e,
  72                    CORBA_Environment         *ev)
  73 {
  74 #ifdef SPI_DEBUG
  75   fprintf (stderr, "notify...\n");
  76   fprintf (stderr, "source name: '%s'\n",
  77            Accessibility_Accessible__get_name(e->target, ev));
  78   if (ev->_major != CORBA_NO_EXCEPTION) {
  79     fprintf(stderr,
  80             ("Accessibility app error: exception during event notification: %s\n"),
  81             CORBA_exception_id(ev));
  82     exit(-1);
  83   }
  84 #endif
  85   Accessibility_Accessible_unref(e->target, ev);
  86
  87 }
  88
  89 static void
  90 listener_class_init (ListenerClass *klass)
  91 {
  92         GObjectClass * object_class = (GObjectClass *) klass;
  93         POA_Accessibility_EventListener__epv *epv = &klass->epv;
  94         listener_parent_class = g_type_class_ref (BONOBO_OBJECT_TYPE);
  95
  96         object_class->finalize = listener_object_finalize;
  97
  98         epv->notifyEvent = impl_notify_event;
  99 }
 100
 101 static void
 102 listener_init (Listener *listener)
 103 {
 104 }
 105
 106 GType
 107 listener_get_type (void)
 108 {
 109         static GType type = 0;
 110
 111         if (!type) {
 112                 static const GTypeInfo tinfo = {
 113                         sizeof (ListenerClass),
 114                         (GBaseInitFunc) NULL,
 115                         (GBaseFinalizeFunc) NULL,
 116                         (GClassInitFunc) listener_class_init,
 117                         (GClassFinalizeFunc) NULL,
 118                         NULL, /* class data */
 119                         sizeof (Listener),
 120                         0, /* n preallocs */
 121                         (GInstanceInitFunc) listener_init,
 122                         NULL /* value table */
 123                 };
 124                 /*
 125                  *   Here we use bonobo_type_unique instead of
 126                  * gtk_type_unique, this auto-generates a load of
 127                  * CORBA structures for us. All derived types must
 128                  * use bonobo_type_unique.
 129                  */
 130                 type = bonobo_type_unique (
 131                         PARENT_TYPE,
 132                         POA_Accessibility_EventListener__init,
 133                         NULL,
 134                         G_STRUCT_OFFSET (ListenerClass, epv),
 135                         &tinfo,
 136                         "Listener");
 137         }
 138
 139         return type;
 140 }
 141
 142 Listener *
 143 listener_new (void)
 144 {
 145     Listener *retval =
 146                LISTENER (g_object_new (listener_get_type (), NULL));
 147     return retval;
 148 }