## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

1.     -----------------------------------------------------------------------

2.     --               GtkAda - Ada95 binding for Gtk+/Gnome               --

3.     --                                                                   --

4.     --                Copyright (C) 2006 AdaCore                         --

5.     --                                                                   --

6.     -- This library is free software; you can redistribute it and/or     --

7.     -- modify it under the terms of the GNU General Public               --

8.     -- License as published by the Free Software Foundation; either      --

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

10.     --                                                                   --

11.     -- This library is distributed in the hope that it will be useful,   --

12.     -- but WITHOUT ANY WARRANTY; without even the implied warranty of    --

13.     -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --

14.     -- General Public License for more details.                          --

15.     --                                                                   --

16.     -- You should have received a copy of the GNU General Public         --

17.     -- License along with this library; if not, write to the             --

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

19.     -- Boston, MA 02111-1307, USA.                                       --

20.     --                                                                   --

21.     -- As a special exception, if other files instantiate generics from  --

22.     -- this unit, or you link this unit with other files to produce an   --

23.     -- executable, this  unit  does not  by itself cause  the resulting  --

24.     -- executable to be covered by the GNU General Public License. This  --

25.     -- exception does not however invalidate any other reasons why the   --

26.     -- executable file  might be covered by the  GNU Public License.     --

27.     -----------------------------------------------------------------------

29.     --  <description>

30.     --  This package defines a special kind of toggle button that can be inserted

31.     --  in a toolbar. Such buttons are usually created in groups, and only one of

32.     --  them can be active at any time

33.     --  </description>

34.     --  <c_version>2.8.17</c_version>

35.     --  <group>Menus and Toolbars</group>

37.     with Glib.PropertiesTo API docTo specTo body;

38.     with Gtk.Toggle_Tool_ButtonTo API docTo specTo body;

39.     with Gtk.WidgetTo API docTo specTo body;             use Gtk.WidgetTo API docTo specTo body;

41.     package Gtk.Radio_Tool_ButtonTo API docTo specTo body is

43.        type Gtk_Radio_Tool_Button_Record is

44.          new Gtk.Toggle_Tool_Button.Gtk_Toggle_Tool_Button_RecordTo API docTo spec with null record;

45.        type Gtk_Radio_Tool_Button is access all Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

47.        procedure Gtk_NewTo API docTo body

48.          (Radio  : out Gtk_Radio_Tool_ButtonTo API docTo spec;

49.           GroupTo API docTo body  : Widget_SList.GSlistTo API docTo specTo body := Widget_SList.Null_ListTo API docTo specTo body);

50.        procedure InitializeTo API docTo body

51.          (Radio  : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

52.           GroupTo API docTo body  : Widget_SList.GSlistTo API docTo specTo body := Widget_SList.Null_ListTo API docTo specTo body);

53.        --  Create or initialize a new radio button, belonging to Group.

54.        --  A new group is created if Group is unspecified

56.        procedure Gtk_New_From_StockTo API docTo body

57.          (Radio    : out Gtk_Radio_Tool_ButtonTo API docTo spec;

58.           GroupTo API docTo body    : Widget_SList.GSlistTo API docTo specTo body := Widget_SList.Null_ListTo API docTo specTo body;

59.           Stock_Id : String);

60.        procedure Initialize_From_StockTo API docTo body

61.          (Radio    : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

62.           GroupTo API docTo body    : Widget_SList.GSlistTo API docTo specTo body := Widget_SList.Null_ListTo API docTo specTo body;

63.           Stock_Id : String);

64.        --  Create or initialize a new radio button, that will contain a text and

65.        --  icon specified by Stock_Id

67.        procedure Gtk_New_From_WidgetTo API docTo body

68.          (Radio  : out Gtk_Radio_Tool_ButtonTo API docTo spec;

69.           Group  : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class);

70.        procedure Initialize_From_WidgetTo API docTo body

71.          (Radio  : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

72.           Group  : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class);

73.        --  Create or initialize a new button belonging to the same group as Group.

75.        procedure Gtk_New_With_Stock_From_WidgetTo API docTo body

76.          (Radio    : out Gtk_Radio_Tool_ButtonTo API docTo spec;

77.           Group    : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

78.           Stock_Id : String);

79.        procedure Initialize_With_Stock_From_WidgetTo API docTo body

80.          (Radio    : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

81.           Group    : access Gtk_Radio_Tool_Button_RecordTo API docTo spec'Class;

82.           Stock_Id : String);

83.        --  Create or initialize a new radio button, that will contain a text and

84.        --  icon specified by Stock_Id.

85.        --  The button belongs to the same group as Group.

87.        procedure Set_GroupTo API docTo body

88.          (Button : access Gtk_Radio_Tool_Button_RecordTo API docTo spec;

89.           GroupTo API docTo body  : Widget_SList.GSlistTo API docTo specTo body);

90.        --  Change the group to which the button belongs

92.        function Get_GroupTo API docTo body

93.          (Button : access Gtk_Radio_Tool_Button_RecordTo API docTo spec) return Widget_SList.GSlistTo API docTo specTo body;

94.        --  Return the group to which the button belongs

96.        function Get_TypeTo API docTo body return GTypeTo API docTo spec;

97.        --  Return the internal type used for this class of widgets

99.        ----------------

100.        -- Properties --

101.        ----------------

103.        --  <properties>

104.        --  The following properties are defined for this widget. See

105.        --  Glib.Properties for more information on properties.

106.        --

107.        --  Name: Group_Property

108.        --  Type: Object

109.        --  See : Set_Group / Get_Group

110.        --

111.        --  </properties>

113.        Group_Property : constant Glib.Properties.Property_ObjectTo API docTo spec;

115.     private

116.        Group_PropertyTo API docTo spec : constant Glib.Properties.Property_ObjectTo API docTo spec :=

117.          Glib.Properties.BuildTo API docTo specTo body ("group");

118.        pragma Import (C, Get_TypeTo API docTo spec, "gtk_radio_tool_button_get_type");

120.     end Gtk.Radio_Tool_ButtonTo API docTo specTo body;