libspi/keystrokelistener.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 "keystrokelistener.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 *keystroke_listener_parent_class;
  50
  51 /*
  52  * Implemented GObject::finalize
  53  */
  54 static void
  55 keystroke_listener_object_finalize (GObject *object)
  56 {
  57 /*        KeystrokeListener *keystroke_listener = KEYSTROKE_LISTENER (object); */
  58
  59 #ifdef SPI_DEBUG
  60         fprintf(stderr, "keystroke_listener_object_finalize called\n");
  61 #endif
  62         keystroke_listener_parent_class->finalize (object);
  63 }
  64
  65 void   keystroke_listener_add_callback (KeystrokeListener *listener,
  66                                         BooleanKeystrokeListenerCB callback)
  67 {
  68   listener->callbacks = g_list_append (listener->callbacks, callback);
  69 #ifdef SPI_DEBUG
  70         fprintf(stderr, "keystroke_listener_add_callback (%p) called\n",
  71                 (gpointer) callback);
  72 #endif
  73 }
  74
  75 void   keystroke_listener_remove_callback (KeystrokeListener *listener,
  76                                            BooleanKeystrokeListenerCB callback)
  77 {
  78   listener->callbacks = g_list_remove (listener->callbacks, callback);
  79 }
  80
  81 /*
  82  * CORBA Accessibility::KeystrokeListener::keyEvent method implementation
  83  */
  84
  85 static CORBA_boolean
  86 impl_key_event (PortableServer_Servant     servant,
  87                 const Accessibility_KeyStroke *key,
  88                 CORBA_Environment         *ev)
  89 {
  90 #ifdef SPI_DEBUG
  91   if (ev->_major != CORBA_NO_EXCEPTION) {
  92     fprintf(stderr,
  93             ("Accessibility app error: exception during keystroke notification: %s\n"),
  94             CORBA_exception_id(ev));
  95     exit(-1);
  96   }
  97   else {
  98     fprintf(stderr, "%s%c",
  99             (key->modifiers & KEYMASK_ALT)?"Alt-":"",
 100             ((key->modifiers & KEYMASK_SHIFT)^(key->modifiers & KEYMASK_SHIFTLOCK))?
 101             (char) toupper((int) key->keyID) : (char) tolower((int) key->keyID));
 102   }
 103 #endif
 104 }
 105
 106 static void
 107 keystroke_listener_class_init (KeystrokeListenerClass *klass)
 108 {
 109         GObjectClass * object_class = (GObjectClass *) klass;
 110         POA_Accessibility_KeystrokeListener__epv *epv = &klass->epv;
 111         keystroke_listener_parent_class = g_type_class_ref (BONOBO_OBJECT_TYPE);
 112
 113         object_class->finalize = keystroke_listener_object_finalize;
 114
 115         epv->keyEvent = impl_key_event;
 116 }
 117
 118 static void
 119 keystroke_listener_init (KeystrokeListener *keystroke_listener)
 120 {
 121         keystroke_listener->callbacks = NULL;
 122 }
 123
 124 GType
 125 keystroke_listener_get_type (void)
 126 {
 127         static GType type = 0;
 128
 129         if (!type) {
 130                 static const GTypeInfo tinfo = {
 131                         sizeof (KeystrokeListenerClass),
 132                         (GBaseInitFunc) NULL,
 133                         (GBaseFinalizeFunc) NULL,
 134                         (GClassInitFunc) keystroke_listener_class_init,
 135                         (GClassFinalizeFunc) NULL,
 136                         NULL, /* class data */
 137                         sizeof (KeystrokeListener),
 138                         0, /* n preallocs */
 139                         (GInstanceInitFunc) keystroke_listener_init,
 140                         NULL /* value table */
 141                 };
 142                 /*
 143                  *   Here we use bonobo_type_unique instead of
 144                  * gtk_type_unique, this auto-generates a load of
 145                  * CORBA structures for us. All derived types must
 146                  * use bonobo_type_unique.
 147                  */
 148                 type = bonobo_type_unique (
 149                         PARENT_TYPE,
 150                         POA_Accessibility_KeystrokeListener__init,
 151                         NULL,
 152                         G_STRUCT_OFFSET (KeystrokeListenerClass, epv),
 153                         &tinfo,
 154                         "KeystrokeListener");
 155         }
 156
 157         return type;
 158 }
 159
 160 KeystrokeListener *
 161 keystroke_listener_new (void)
 162 {
 163     KeystrokeListener *retval =
 164                KEYSTROKE_LISTENER (g_object_new (keystroke_listener_get_type (), NULL));
 165     return retval;
 166 }