----------------------------------------------------------------------- -- GtkAda - Ada95 binding for Gtk+/Gnome -- -- -- -- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet -- -- Copyright (C) 2000-2007 AdaCore -- -- -- -- This library is free software; you can redistribute it and/or -- -- modify it under the terms of the GNU 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 -- -- General Public License for more details. -- -- -- -- You should have received a copy of the GNU 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. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- ----------------------------------------------------------------------- -- -- This widget provides a special kind of menu item that represents a -- radio button. Such a button can be checked or unchecked by the user, but -- only one button in a group can be selected at any given time, as opposed to -- a toggle menu item. -- -- 2.8.17 -- Menus and Toolbars with Glib.Properties; with Gtk.Check_Menu_Item; with Gtk.Widget; use Gtk.Widget; package Gtk.Radio_Menu_Item is type Gtk_Radio_Menu_Item_Record is new Gtk.Check_Menu_Item.Gtk_Check_Menu_Item_Record with private; type Gtk_Radio_Menu_Item is access all Gtk_Radio_Menu_Item_Record'Class; procedure Gtk_New (Radio_Menu_Item : out Gtk_Radio_Menu_Item; Group : Widget_SList.GSlist; Label : UTF8_String := ""); procedure Initialize (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record'Class; Group : Widget_SList.GSlist; Label : UTF8_String := ""); -- Creates or initializes a menu item procedure Gtk_New_With_Mnemonic (Radio_Menu_Item : out Gtk_Radio_Menu_Item; Group : Widget_SList.GSlist; Label : UTF8_String); procedure Initialize_With_Mnemonic (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record'Class; Group : Widget_SList.GSlist; Label : UTF8_String); -- Creates or initializes a menu item. -- The first underscore sign in Label will be used as a key shortcut to -- this item when the menu is displayed. For instance, if you use "_Open", -- then pressing alt-o when the menu is open will select the menu item procedure Gtk_New_From_Widget (Radio_Menu_Item : out Gtk_Radio_Menu_Item; Group : access Gtk_Radio_Menu_Item_Record'Class); procedure Initialize_From_Widget (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record'Class; Group : access Gtk_Radio_Menu_Item_Record'Class); -- Creates or initializes a menu item. It initially belongs to the same -- group as Group procedure Gtk_New_With_Label_From_Widget (Radio_Menu_Item : out Gtk_Radio_Menu_Item; Group : access Gtk_Radio_Menu_Item_Record'Class; Label : String); procedure Initialize_With_Label_From_Widget (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record'Class; Group : access Gtk_Radio_Menu_Item_Record'Class; Label : String); -- Creates or initializes a menu item. It initially belongs to the same -- group as Group. procedure Gtk_New_With_Mnemonic_From_Widget (Radio_Menu_Item : out Gtk_Radio_Menu_Item; Group : access Gtk_Radio_Menu_Item_Record'Class; Label : String); procedure Initialize_With_Mnemonic_From_Widget (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record'Class; Group : access Gtk_Radio_Menu_Item_Record'Class; Label : String); -- Same as Gtk_New_With_Mnemonic, except the group is given by a widget function Get_Type return Gtk.Gtk_Type; -- Return the internal value associated with a Gtk_Radio_Menu_Item. procedure Set_Group (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record; Group : Widget_SList.GSlist); function Get_Group (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record) return Widget_SList.GSlist; -- Set or Get to which the menu item belongs. Only one menu item in this -- group can be selected at any given time function Selected_Button (In_Group : Widget_SList.GSlist) return Natural; -- Return the button number of the selected button in the group. -- Note: This function is not part of Gtk+ itself, but is provided as a -- convenient function ----------------- -- Obsolescent -- ----------------- -- All subprograms below are now obsolescent in gtk+. They might be removed -- from future versions of gtk+ (and therefore GtkAda). -- To find out whether your code uses any of these, we recommend compiling -- with the -gnatwj switch -- function Group (Radio_Menu_Item : access Gtk_Radio_Menu_Item_Record) return Widget_SList.GSlist renames Get_Group; -- pragma Obsolescent; -- This function is deprecated. Get_Group should be used instead. -- ------------- -- Signals -- ------------- -- -- The following new signals are defined for this widget: -- -- - "group-changed" -- procedure Handler (Item : access Gtk_Radio_Menu_Item_Record'Class); -- Emitted when the group of Item has been changed. -- -- Signal_Group_Changed : constant Glib.Signal_Name := "group-changed"; ---------------- -- Properties -- ---------------- -- -- The following properties are defined for this widget. See -- Glib.Properties for more information on properties. -- -- Name: Group_Property -- Type: Object -- Descr: The radio menu item whose group this widget belongs to. -- -- Group_Property : constant Glib.Properties.Property_Object; private type Gtk_Radio_Menu_Item_Record is new Gtk.Check_Menu_Item.Gtk_Check_Menu_Item_Record with null record; Group_Property : constant Glib.Properties.Property_Object := Glib.Properties.Build ("group"); pragma Import (C, Get_Type, "gtk_radio_menu_item_get_type"); end Gtk.Radio_Menu_Item;