/* GAIL - The GNOME Accessibility Implementation Library

 * Copyright 2001 Sun Microsystems Inc.

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

#include "config.h"

#include <gtk/gtk.h>

#include "gailradiobutton.h"

static void      gail_radio_button_class_init        (GailRadioButtonClass *klass);

static void      gail_radio_button_init              (GailRadioButton      *radio_button);

static void      gail_radio_button_initialize        (AtkObject            *accessible,

                                                      gpointer              data);

static AtkRelationSet* gail_radio_button_ref_relation_set (AtkObject       *obj);

G_DEFINE_TYPE (GailRadioButton, gail_radio_button, GAIL_TYPE_TOGGLE_BUTTON)

static void

gail_radio_button_class_init (GailRadioButtonClass *klass)

{

  AtkObjectClass *class = ATK_OBJECT_CLASS (klass);

  class->initialize = gail_radio_button_initialize;

  class->ref_relation_set = gail_radio_button_ref_relation_set;

}

static void

gail_radio_button_init (GailRadioButton *radio_button)

{

  radio_button->old_group = NULL;

}

static void

gail_radio_button_initialize (AtkObject *accessible,

                              gpointer  data)

{

  ATK_OBJECT_CLASS (gail_radio_button_parent_class)->initialize (accessible, data);

  accessible->role = ATK_ROLE_RADIO_BUTTON;

}

AtkRelationSet*

gail_radio_button_ref_relation_set (AtkObject *obj)

{

  GtkWidget *widget;

  AtkRelationSet *relation_set;

  GSList *list;

  GailRadioButton *radio_button;

  g_return_val_if_fail (GAIL_IS_RADIO_BUTTON (obj), NULL);

  widget = GTK_ACCESSIBLE (obj)->widget;

  if (widget == NULL)

  {

    /*

     * State is defunct

     */

    return NULL;

  }

  radio_button = GAIL_RADIO_BUTTON (obj);

  relation_set = ATK_OBJECT_CLASS (gail_radio_button_parent_class)->ref_relation_set (obj);

  /*

   * If the radio button'group has changed remove the relation

   */

  list = gtk_radio_button_get_group (GTK_RADIO_BUTTON (widget));

  if (radio_button->old_group != list)

    {

      AtkRelation *relation;

      relation = atk_relation_set_get_relation_by_type (relation_set, ATK_RELATION_MEMBER_OF);

      atk_relation_set_remove (relation_set, relation);

    }

  if (!atk_relation_set_contains (relation_set, ATK_RELATION_MEMBER_OF))

  {

    /*

     * Get the members of the button group

     */

    radio_button->old_group = list;

    if (list)

    {

      AtkObject **accessible_array;

      guint list_length;

      AtkRelation* relation;

      gint i = 0;

      list_length = g_slist_length (list);

      accessible_array = (AtkObject**) g_malloc (sizeof (AtkObject *) * 

                          list_length);

      while (list != NULL)

      {

        GtkWidget* list_item = list->data;

        accessible_array[i++] = gtk_widget_get_accessible (list_item);

        list = list->next;

      }

      relation = atk_relation_new (accessible_array, list_length,

                                   ATK_RELATION_MEMBER_OF);

      g_free (accessible_array);

      atk_relation_set_add (relation_set, relation);

      /*

       * Unref the relation so that it is not leaked.

       */

      g_object_unref (relation);

    }

  }

  return relation_set;

}