1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
with Interfaces.C;
with System;
use type System.Address;
package body FLTK.Widgets.Groups is
function new_fl_group
(X, Y, W, H : in Interfaces.C.int;
L : in Interfaces.C.char_array)
return System.Address;
pragma Import (C, new_fl_group, "new_fl_group");
procedure free_fl_group
(G : in System.Address);
pragma Import (C, free_fl_group, "free_fl_group");
procedure fl_group_end
(G : in System.Address);
pragma Import (C, fl_group_end, "fl_group_end");
procedure fl_group_add
(G, W : in System.Address);
pragma Import (C, fl_group_add, "fl_group_add");
procedure fl_group_clear
(G : in System.Address);
pragma Import (C, fl_group_clear, "fl_group_clear");
function fl_group_find
(G, W : in System.Address)
return Interfaces.C.int;
pragma Import (C, fl_group_find, "fl_group_find");
procedure fl_group_insert
(G, W : in System.Address;
P : in Interfaces.C.int);
pragma Import (C, fl_group_insert, "fl_group_insert");
procedure fl_group_remove
(G, W : in System.Address);
pragma Import (C, fl_group_remove, "fl_group_remove");
procedure fl_group_remove2
(G : in System.Address;
P : in Interfaces.C.int);
pragma Import (C, fl_group_remove2, "fl_group_remove2");
procedure Finalize (This : in out Group) is
begin
if (This.Void_Ptr /= System.Null_Address) then
free_fl_group (This.Void_Ptr);
end if;
end Finalize;
function Create
(X, Y, W, H : in Integer;
Label : in String)
return Group is
VP : System.Address;
begin
VP := new_fl_group
(Interfaces.C.int (X),
Interfaces.C.int (Y),
Interfaces.C.int (W),
Interfaces.C.int (H),
Interfaces.C.To_C (Label));
fl_group_end (VP);
return (Ada.Finalization.Limited_Controlled with Void_Ptr => VP);
end Create;
procedure Add
(This : Group'Class;
Item : Widget'Class) is
begin
fl_group_add (This.Void_Ptr, Item.Void_Ptr);
end Add;
procedure Clear
(This : Group'Class) is
begin
fl_group_clear (This.Void_Ptr);
end Clear;
function Find
(This : Group'Class;
Item : Widget'Class)
return Index is
begin
return Index (fl_group_find (This.Void_Ptr, Item.Void_Ptr));
end Find;
procedure Insert
(This : Group'Class;
Item : Widget'Class;
Place : Index) is
begin
fl_group_insert
(This.Void_Ptr,
Item.Void_Ptr,
Interfaces.C.int (Place));
end Insert;
procedure Remove
(This : Group'Class;
Item : Widget'Class) is
begin
fl_group_remove (This.Void_Ptr, Item.Void_Ptr);
end Remove;
procedure Remove
(This : Group'Class;
Place : Index) is
begin
fl_group_remove2 (This.Void_Ptr, Interfaces.C.int (Place));
end Remove;
end FLTK.Widgets.Groups;
|
