]> Pileus Git - ~andy/gtk/blob - modules/other/gail/gailradiomenuitem.c
e7913466fa0c3e508681920647c6ac59ccf40226
[~andy/gtk] / modules / other / gail / gailradiomenuitem.c
1 /* GAIL - The GNOME Accessibility Implementation Library
2  * Copyright 2002 Sun Microsystems Inc.
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the
16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17  * Boston, MA 02111-1307, USA.
18  */
19
20 #include "config.h"
21
22 #include <gtk/gtk.h>
23 #include "gailradiomenuitem.h"
24 #include "gailradiosubmenuitem.h"
25
26 static void      gail_radio_menu_item_class_init        (GailRadioMenuItemClass *klass);
27 static void      gail_radio_menu_item_init              (GailRadioMenuItem      *radio_menu_item);
28
29 static AtkRelationSet* gail_radio_menu_item_ref_relation_set (AtkObject       *obj);
30
31 G_DEFINE_TYPE (GailRadioMenuItem, gail_radio_menu_item, GAIL_TYPE_CHECK_MENU_ITEM)
32
33 static void
34 gail_radio_menu_item_class_init (GailRadioMenuItemClass *klass)
35 {
36   AtkObjectClass *class = ATK_OBJECT_CLASS (klass);
37
38   class->ref_relation_set = gail_radio_menu_item_ref_relation_set;
39 }
40
41 AtkObject* 
42 gail_radio_menu_item_new (GtkWidget *widget)
43 {
44   GObject *object;
45   AtkObject *accessible;
46
47   g_return_val_if_fail (GTK_IS_RADIO_MENU_ITEM (widget), NULL);
48
49   if (gtk_menu_item_get_submenu (GTK_MENU_ITEM (widget)))
50     return gail_radio_sub_menu_item_new (widget);
51
52   object = g_object_new (GAIL_TYPE_RADIO_MENU_ITEM, NULL);
53
54   accessible = ATK_OBJECT (object);
55   atk_object_initialize (accessible, widget);
56
57   accessible->role = ATK_ROLE_RADIO_MENU_ITEM;
58   return accessible;
59 }
60
61 static void
62 gail_radio_menu_item_init (GailRadioMenuItem *radio_menu_item)
63 {
64   radio_menu_item->old_group = NULL;
65 }
66
67 AtkRelationSet*
68 gail_radio_menu_item_ref_relation_set (AtkObject *obj)
69 {
70   GtkWidget *widget;
71   AtkRelationSet *relation_set;
72   GSList *list;
73   GailRadioMenuItem *radio_menu_item;
74
75   g_return_val_if_fail (GAIL_IS_RADIO_MENU_ITEM (obj), NULL);
76
77   widget = gtk_accessible_get_widget (GTK_ACCESSIBLE (obj));
78   if (widget == NULL)
79   {
80     /*
81      * State is defunct
82      */
83     return NULL;
84   }
85   radio_menu_item = GAIL_RADIO_MENU_ITEM (obj);
86
87   relation_set = ATK_OBJECT_CLASS (gail_radio_menu_item_parent_class)->ref_relation_set (obj);
88
89   /*
90    * If the radio menu_item'group has changed remove the relation
91    */
92   list = gtk_radio_menu_item_get_group (GTK_RADIO_MENU_ITEM (widget));
93   
94   if (radio_menu_item->old_group != list)
95     {
96       AtkRelation *relation;
97
98       relation = atk_relation_set_get_relation_by_type (relation_set, ATK_RELATION_MEMBER_OF);
99       atk_relation_set_remove (relation_set, relation);
100     }
101
102   if (!atk_relation_set_contains (relation_set, ATK_RELATION_MEMBER_OF))
103   {
104     /*
105      * Get the members of the menu_item group
106      */
107
108     radio_menu_item->old_group = list;
109     if (list)
110     {
111       AtkObject **accessible_array;
112       guint list_length;
113       AtkRelation* relation;
114       gint i = 0;
115
116       list_length = g_slist_length (list);
117       accessible_array = (AtkObject**) g_malloc (sizeof (AtkObject *) * 
118                           list_length);
119       while (list != NULL)
120       {
121         GtkWidget* list_item = list->data;
122
123         accessible_array[i++] = gtk_widget_get_accessible (list_item);
124
125         list = list->next;
126       }
127       relation = atk_relation_new (accessible_array, list_length,
128                                    ATK_RELATION_MEMBER_OF);
129       g_free (accessible_array);
130
131       atk_relation_set_add (relation_set, relation);
132       /*
133        * Unref the relation so that it is not leaked.
134        */
135       g_object_unref (relation);
136     }
137   }
138   return relation_set;
139 }