## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

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

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

3.     --                                                                   --

4.     --   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --

5.     --                Copyright (C) 2000-2013, AdaCore                   --

6.     --                                                                   --

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

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

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

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

11.     --                                                                   --

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

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

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

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

16.     --                                                                   --

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

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

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

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

21.     --                                                                   --

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

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

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

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

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

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

28.     -----------------------------------------------------------------------

30.     --  <description>

31.     --

32.     --

33.     --  </description>

34.     --  <group>Obsolescent widgets</group>

35.     --  <testgtk>create_list.adb</testgtk>

37.     pragma Warnings (Off, "*is already use-visible*");

38.     with GlibTo API docTo specTo body;          use GlibTo API docTo specTo body;

39.     with Glib.TypesTo API docTo specTo body;    use Glib.TypesTo API docTo specTo body;

40.     with Gtk.BuildableTo API docTo specTo body; use Gtk.BuildableTo API docTo specTo body;

41.     with Gtk.ContainerTo API docTo specTo body; use Gtk.ContainerTo API docTo specTo body;

42.     with Gtk.EnumsTo API docTo specTo body;     use Gtk.EnumsTo API docTo specTo body;

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

45.     package Gtk.ListTo API docTo specTo body is

47.        pragma Obsolescent;

49.        type Gtk_List_Record is new Gtk_Container_RecordTo API docTo specTo body with null record;

50.        type Gtk_List is access all Gtk_List_RecordTo API docTo spec'Class;

52.        ------------------

53.        -- Constructors --

54.        ------------------

56.        procedure Gtk_NewTo API docTo body (List : out Gtk_ListTo API docTo spec);

57.        procedure InitializeTo API docTo body (List : access Gtk_List_RecordTo API docTo spec'Class);

59.        function Get_TypeTo API docTo body return Glib.GTypeTo API docTo spec;

60.        pragma Import (C, Get_TypeTo API docTo spec, "gtk_list_get_type");

62.        -------------

63.        -- Methods --

64.        -------------

66.        procedure Append_ItemsTo API docTo body

67.           (List  : access Gtk_List_RecordTo API docTo spec;

68.            ItemsTo API docTo body : Gtk.Widget.Widget_List.GlistTo API docTo specTo body);

70.        function Child_PositionTo API docTo body

71.           (List  : access Gtk_List_RecordTo API docTo spec;

72.            Child : access Gtk.Widget.Gtk_Widget_RecordTo API docTo specTo body'Class) return GintTo API docTo spec;

74.        procedure Clear_ItemsTo API docTo body

75.           (List    : access Gtk_List_RecordTo API docTo spec;

76.            Start   : GintTo API docTo spec;

77.            The_End : GintTo API docTo spec);

78.        --  Remove some items from the list. If The_End is negative, it means the

79.        --  end of the list. The first item in the list has an index of 0

81.        procedure End_Drag_SelectionTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

83.        procedure End_SelectionTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

85.        procedure Extend_SelectionTo API docTo body

86.           (List                 : access Gtk_List_RecordTo API docTo spec;

87.            Scroll_TypeTo API docTo body          : Gtk.Enums.Gtk_Scroll_TypeTo API docTo spec;

88.            Position             : GfloatTo API docTo spec;

89.            Auto_Start_Selection : Boolean);

91.        procedure Insert_ItemsTo API docTo body

92.           (List     : access Gtk_List_RecordTo API docTo spec;

93.            ItemsTo API docTo body    : Gtk.Widget.Widget_List.GlistTo API docTo specTo body;

94.            Position : GintTo API docTo spec);

96.        procedure Prepend_ItemsTo API docTo body

97.           (List  : access Gtk_List_RecordTo API docTo spec;

98.            ItemsTo API docTo body : Gtk.Widget.Widget_List.GlistTo API docTo specTo body);

100.        procedure Remove_ItemsTo API docTo body

101.           (List  : access Gtk_List_RecordTo API docTo spec;

102.            ItemsTo API docTo body : Gtk.Widget.Widget_List.GlistTo API docTo specTo body);

104.        procedure Remove_Items_No_UnrefTo API docTo body

105.           (List  : access Gtk_List_RecordTo API docTo spec;

106.            ItemsTo API docTo body : Gtk.Widget.Widget_List.GlistTo API docTo specTo body);

108.        procedure Scroll_HorizontalTo API docTo body

109.           (List        : access Gtk_List_RecordTo API docTo spec;

110.            Scroll_TypeTo API docTo body : Gtk.Enums.Gtk_Scroll_TypeTo API docTo spec;

111.            Position    : GfloatTo API docTo spec);

113.        procedure Scroll_VerticalTo API docTo body

114.           (List        : access Gtk_List_RecordTo API docTo spec;

115.            Scroll_TypeTo API docTo body : Gtk.Enums.Gtk_Scroll_TypeTo API docTo spec;

116.            Position    : GfloatTo API docTo spec);

118.        procedure Select_AllTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

120.        procedure Select_ChildTo API docTo body

121.           (List  : access Gtk_List_RecordTo API docTo spec;

122.            Child : access Gtk.Widget.Gtk_Widget_RecordTo API docTo specTo body'Class);

124.        procedure Select_ItemTo API docTo body (List : access Gtk_List_RecordTo API docTo spec; Item : GintTo API docTo spec);

126.        procedure Set_Selection_ModeTo API docTo body

127.           (List : access Gtk_List_RecordTo API docTo spec;

128.            ModeTo API docTo body : Gtk.Enums.Gtk_Selection_ModeTo API docTo spec);

130.        procedure Start_SelectionTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

132.        procedure Toggle_Add_ModeTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

134.        procedure Toggle_Focus_RowTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

136.        procedure Toggle_RowTo API docTo body

137.           (List : access Gtk_List_RecordTo API docTo spec;

138.            Item : access Gtk.Widget.Gtk_Widget_RecordTo API docTo specTo body'Class);

140.        procedure Undo_SelectionTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

142.        procedure Unselect_AllTo API docTo body (List : access Gtk_List_RecordTo API docTo spec);

144.        procedure Unselect_ChildTo API docTo body

145.           (List  : access Gtk_List_RecordTo API docTo spec;

146.            Child : access Gtk.Widget.Gtk_Widget_RecordTo API docTo specTo body'Class);

148.        procedure Unselect_ItemTo API docTo body (List : access Gtk_List_RecordTo API docTo spec; Item : GintTo API docTo spec);

150.        ----------------------

151.        -- GtkAda additions --

152.        ----------------------

154.        function Get_SelectionTo API docTo body (Widget : access Gtk.List.Gtk_List_RecordTo API docTo spec)

155.        return Widget_List.GlistTo API docTo specTo body;

157.        ----------------

158.        -- Interfaces --

159.        ----------------

160.        --  This class implements several interfaces. See Glib.Types

161.        --

162.        --  - "Buildable"

164.        package Implements_Buildable is new Glib.Types.ImplementsTo API docTo specTo body

165.          (Gtk.Buildable.Gtk_BuildableTo API docTo spec, Gtk_List_RecordTo API docTo spec, Gtk_ListTo API docTo spec);

166.        function "+"

167.          (Widget : access Gtk_List_RecordTo API docTo spec'Class)

168.        return Gtk.Buildable.Gtk_BuildableTo API docTo spec

169.        renames Implements_Buildable.To_InterfaceTo API docTo specTo body;

170.        function "-"

171.          (Interf : Gtk.Buildable.Gtk_BuildableTo API docTo spec)

172.        return Gtk_ListTo API docTo spec

173.        renames Implements_Buildable.To_ObjectTo API docTo specTo body;

175.        ----------------

176.        -- Properties --

177.        ----------------

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

179.        --  Glib.Properties for more information on properties)

180.        --

181.        --  Name: Selection_Mode_Property

182.        --  Type: Gtk.Enums.Gtk_Selection_Mode

183.        --  Flags: read-write

185.        Selection_Mode_Property : constant Gtk.Enums.Property_Gtk_Selection_ModeTo API docTo spec;

187.        -------------

188.        -- Signals --

189.        -------------

190.        --  The following new signals are defined for this widget:

191.        --

192.        --  "select-child"

193.        --     procedure Handler

194.        --       (Self   : access Gtk_List_Record'Class;

195.        --        Object : Gtk.Widget.Gtk_Widget);

196.        --

197.        --  "selection-changed"

198.        --     procedure Handler (Self : access Gtk_List_Record'Class);

199.        --

200.        --  "unselect-child"

201.        --     procedure Handler

202.        --       (Self   : access Gtk_List_Record'Class;

203.        --        Object : Gtk.Widget.Gtk_Widget);

205.        Signal_Select_Child : constant Glib.Signal_NameTo API docTo spec := "select-child";

206.        Signal_Selection_Changed : constant Glib.Signal_NameTo API docTo spec := "selection-changed";

207.        Signal_Unselect_Child : constant Glib.Signal_NameTo API docTo spec := "unselect-child";

209.     private

210.        Selection_Mode_PropertyTo API docTo spec : constant Gtk.Enums.Property_Gtk_Selection_ModeTo API docTo spec :=

211.          Gtk.Enums.BuildTo API docTo specTo body ("selection-mode");

212.     end Gtk.ListTo API docTo specTo body;