#include <string.h>
#include <glib-object.h>
#include <atk/atk.h>

/*
 * To use this test module, run the test program testgtk and click on 
 * statusbar
 */

static void _check_statusbar (AtkObject *obj);
static AtkObject* _find_object (AtkObject* obj, AtkRole role);
static void _notify_handler (GObject *obj, GParamSpec *pspec);
static void _property_change_handler (AtkObject   *obj,
                                      AtkPropertyValues *values);

static AtkObject*
_find_object (AtkObject *obj,
              AtkRole   role)
{
  /*
   * Find the first object which is a descendant of the specified object
   * which matches the specified role.
   *
   * This function returns a reference to the AtkObject which should be
   * removed when finished with the object.
   */
  gint i;
  gint n_children;
  AtkObject *child;

  n_children = atk_object_get_n_accessible_children (obj);
  for (i = 0; i < n_children; i++)
  {
    AtkObject* found_obj;

    child = atk_object_ref_accessible_child (obj, i);
    if (atk_object_get_role (child) == role)
    {
      return child;
    }
    found_obj = _find_object (child, role);
    g_object_unref (child);
    if (found_obj)
    {
      return found_obj;
    }
  }
  return NULL;
}

static void _property_change_handler (AtkObject   *obj,
                                      AtkPropertyValues   *values)
{
  const gchar *type_name = g_type_name (G_TYPE_FROM_INSTANCE (obj));
  const gchar *name = atk_object_get_name (obj);

  g_print ("_property_change_handler: Accessible Type: %s\n",
           type_name ? type_name : "NULL");
  g_print ("_property_change_handler: Accessible name: %s\n",
           name ? name : "NULL");
  g_print ("_property_change_handler: PropertyName: %s\n",
           values->property_name ? values->property_name: "NULL");
  if (G_VALUE_HOLDS_STRING (&values->new_value))
    g_print ("_property_change_handler: PropertyValue: %s\n",
             g_value_get_string (&values->new_value));
}

static void _check_statusbar (AtkObject *obj)
{
  AtkRole role;
  AtkObject *statusbar, *label;

  role = atk_object_get_role (obj);
  if (role != ATK_ROLE_FRAME)
    return;

  statusbar = _find_object (obj, ATK_ROLE_STATUSBAR); 
  if (!statusbar)
    return;
  g_print ("_check_statusbar\n");
  label = atk_object_ref_accessible_child (statusbar, 0);
  g_return_if_fail (label == NULL);

  /*
   * We get notified of changes to the label
   */
  g_signal_connect_closure_by_id (statusbar,
                                  g_signal_lookup ("notify", 
                                                   G_OBJECT_TYPE (statusbar)),
                                  0,
                                  g_cclosure_new (G_CALLBACK (_notify_handler),
                                                 NULL, NULL),
                                  FALSE);
  atk_object_connect_property_change_handler (statusbar,
                   (AtkPropertyChangeHandler*) _property_change_handler);

}

static void 
_notify_handler (GObject *obj, GParamSpec *pspec)
{
  AtkObject *atk_obj = ATK_OBJECT (obj);
  const gchar *name;

  g_print ("_notify_handler: property: %s\n", pspec->name);
  if (strcmp (pspec->name, "accessible-name") == 0)
  {
    name = atk_object_get_name (atk_obj);
    g_print ("_notify_handler: value: |%s|\n", name ? name : "<NULL>");
  }
}

static void
_create_event_watcher (void)
{
  atk_add_focus_tracker (_check_statusbar);
}

int
gtk_module_init(gint argc, char* argv[])
{
  g_print("teststatusbar Module loaded\n");

  _create_event_watcher();

  return 0;
}