blob: bd38898addc4499f025563f49cebeed053ed963d (
plain)
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
150
151
152
153
154
155
156
157
158
159
160
161
162
|
with
FLTK.Widgets.Inputs,
FLTK.Widgets.Menus.Menu_Buttons;
package FLTK.Widgets.Groups.Input_Choices is
type Input_Choice is new Group with private;
type Input_Choice_Reference (Data : not null access Input_Choice'Class) is
limited null record with Implicit_Dereference => Data;
package Forge is
function Create
(X, Y, W, H : in Integer;
Text : in String := "")
return Input_Choice;
end Forge;
function Input
(This : in out Input_Choice)
return FLTK.Widgets.Inputs.Input_Reference;
function Menu_Button
(This : in out Input_Choice)
return FLTK.Widgets.Menus.Menu_Buttons.Menu_Button_Reference;
procedure Clear
(This : in out Input_Choice);
function Has_Changed
(This : in Input_Choice)
return Boolean;
procedure Clear_Changed
(This : in out Input_Choice);
procedure Set_Changed
(This : in out Input_Choice;
To : in Boolean);
function Get_Down_Box
(This : in Input_Choice)
return Box_Kind;
procedure Set_Down_Box
(This : in out Input_Choice;
To : in Box_Kind);
function Get_Text_Color
(This : in Input_Choice)
return Color;
procedure Set_Text_Color
(This : in out Input_Choice;
To : in Color);
function Get_Text_Font
(This : in Input_Choice)
return Font_Kind;
procedure Set_Text_Font
(This : in out Input_Choice;
To : in Font_Kind);
function Get_Text_Size
(This : in Input_Choice)
return Font_Size;
procedure Set_Text_Size
(This : in out Input_Choice;
To : in Font_Size);
function Get_Input
(This : in Input_Choice)
return String;
procedure Set_Input
(This : in out Input_Choice;
To : in String);
procedure Set_Item
(This : in out Input_Choice;
Num : in Integer);
procedure Draw
(This : in out Input_Choice);
function Handle
(This : in out Input_Choice;
Event : in Event_Kind)
return Event_Outcome;
private
package INP renames FLTK.Widgets.Inputs;
package MB renames FLTK.Widgets.Menus.Menu_Buttons;
type Input_Access is access INP.Input;
type Menu_Button_Access is access MB.Menu_Button;
type Input_Choice is new Group with record
My_Input : Input_Access;
My_Menu_Button : Menu_Button_Access;
end record;
overriding procedure Finalize
(This : in out Input_Choice);
pragma Inline (Input);
pragma Inline (Menu_Button);
pragma Inline (Has_Changed);
pragma Inline (Clear_Changed);
pragma Inline (Get_Down_Box);
pragma Inline (Set_Down_Box);
pragma Inline (Get_Text_Color);
pragma Inline (Set_Text_Color);
pragma Inline (Get_Text_Font);
pragma Inline (Set_Text_Font);
pragma Inline (Get_Text_Size);
pragma Inline (Set_Text_Size);
pragma Inline (Get_Input);
pragma Inline (Set_Input);
pragma Inline (Set_Item);
pragma Inline (Draw);
pragma Inline (Handle);
end FLTK.Widgets.Groups.Input_Choices;
|