2007-04-02 Ariel Rios <ariel@gnu.org>

[platform/core/uifw/at-spi2-atk.git] / libspi / application.c

diff --git a/libspi/application.c b/libspi/application.c
index 1d10074..fba42cf 100644 (file)
--- a/libspi/application.c
+++ b/libspi/application.c
@@ -25,8 +25,10 @@
 
 #include <string.h>
 #include <config.h>
+#include <glib.h>
 #include <atk/atkutil.h>
 #include <libspi/application.h>
+#include <locale.h>
 #include "spi-private.h"
 
 /* Our parent Gtk object type */
@@ -65,7 +67,6 @@ spi_accessible_application_finalize (GObject *object)
   g_list_free (application->toolkit_listeners);
   application->toolkit_listeners = NULL;
 
-  g_print ("application finalize called\n");
   (G_OBJECT_CLASS (spi_application_parent_class))->finalize (object);
 }
 
@@ -159,7 +160,10 @@ spi_application_toolkit_event_listener (GSignalInvocationHint *signal_hint,
   e.source = CORBA_OBJECT_NIL;
   e.detail1 = 0;
   e.detail2 = 0;
-  spi_init_any_nil (&e.any_data);
+  spi_init_any_nil (&e.any_data, 
+                   spi_accessible_new_return (atk_get_root (), FALSE, NULL),
+                   Accessibility_ROLE_UNKNOWN,
+                   "");
   notify_listeners (the_app->toolkit_listeners, source, &e);
 
   bonobo_object_unref (BONOBO_OBJECT (source));
@@ -170,6 +174,34 @@ spi_application_toolkit_event_listener (GSignalInvocationHint *signal_hint,
   return TRUE;
 }
 
+static CORBA_string
+impl_accessibility_application_get_locale (PortableServer_Servant servant,
+                                          Accessibility_LOCALE_TYPE lctype,
+                                          CORBA_Environment *ev)
+{
+    int category;
+    switch (lctype) 
+    {
+       case Accessibility_LOCALE_TYPE_COLLATE:
+           category = LC_COLLATE;
+           break;
+       case Accessibility_LOCALE_TYPE_CTYPE:
+           category = LC_CTYPE;
+           break;
+       case Accessibility_LOCALE_TYPE_MONETARY:
+           category = LC_MONETARY;
+           break;
+       case Accessibility_LOCALE_TYPE_NUMERIC:
+           category = LC_NUMERIC;
+           break;
+       case Accessibility_LOCALE_TYPE_MESSAGES:
+       default:
+           category = LC_MESSAGES;
+           break;
+    }
+    return CORBA_string_dup (setlocale (category, NULL));
+}
+
 static void
 impl_accessibility_application_register_toolkit_event_listener (PortableServer_Servant servant,
                                                                Accessibility_EventListener listener,
@@ -242,6 +274,7 @@ spi_application_class_init (SpiApplicationClass *klass)
   epv->_get_id = impl_accessibility_application_get_id;
   epv->_set_id = impl_accessibility_application_set_id;
   epv->registerToolkitEventListener = impl_accessibility_application_register_toolkit_event_listener;
+  epv->getLocale = impl_accessibility_application_get_locale;
   init_toolkit_names (&klass->generic_event_names, &klass->toolkit_event_names);
 }
 
@@ -260,5 +293,5 @@ SpiApplication *
 spi_application_new (AtkObject *app_root)
 {
   return SPI_APPLICATION (spi_accessible_construct (
-       SPI_APPLICATION_TYPE, app_root));
+                         SPI_APPLICATION_TYPE, app_root));
 }