Index: tabpopup.c
===================================================================
RCS file: /cvs/gnome/metacity/src/tabpopup.c,v
retrieving revision 1.23
diff -u -p -r1.23 tabpopup.c
--- tabpopup.c	21 Apr 2003 23:37:42 -0000	1.23
+++ tabpopup.c	9 Sep 2003 13:27:02 -0000
@@ -118,6 +118,7 @@ meta_ui_tab_popup_new (const MetaTabEntr
   GList *tmp;
   GtkWidget *frame;
   int max_label_width;
+  AtkObject *obj;
 
   popup = g_new (MetaTabPopup, 1);
 
@@ -205,6 +206,9 @@ meta_ui_tab_popup_new (const MetaTabEntr
                      table);
   
   popup->label = gtk_label_new ("");
+  obj = gtk_widget_get_accessible (popup->label);
+  atk_object_set_role (obj, ATK_ROLE_STATUSBAR);
+  
   gtk_misc_set_padding (GTK_MISC (popup->label), 3, 3);
 
   gtk_box_pack_end (GTK_BOX (vbox), popup->label, FALSE, FALSE, 0);
