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
|
-- Programmed by Jedidiah Barber
-- Released into the public domain
-- Another button test program functionality reproduced in Ada
with
FLTK.Tooltips,
FLTK.Widgets.Buttons.Enter,
FLTK.Widgets.Buttons.Light.Check,
FLTK.Widgets.Buttons.Light.Round,
FLTK.Widgets.Buttons.Repeat,
FLTK.Widgets.Groups.Windows;
function Buttons
return Integer
is
package Btn renames FLTK.Widgets.Buttons;
package Ent renames FLTK.Widgets.Buttons.Enter;
package Lit renames FLTK.Widgets.Buttons.Light;
package Chk renames FLTK.Widgets.Buttons.Light.Check;
package Ond renames FLTK.Widgets.Buttons.Light.Round;
package Rpt renames FLTK.Widgets.Buttons.Repeat;
package Win renames FLTK.Widgets.Groups.Windows;
The_Win : Win.Window := Win.Forge.Create (320, 130);
Base : Btn.Button := Btn.Forge.Create (The_Win, 10, 10, 130, 30, "Fl_Button");
Enter : Ent.Enter_Button := Ent.Forge.Create (The_Win, 150, 10, 160, 30, "Fl_Return_Button");
Repeat : Rpt.Repeat_Button := Rpt.Forge.Create (The_Win, 10, 50, 130, 30, "Fl_Repeat_Button");
Light : Lit.Light_Button := Lit.Forge.Create (The_Win, 10, 90, 130, 30, "Fl_Light_Button");
Round : Ond.Round_Button := Ond.Forge.Create (The_Win, 150, 50, 160, 30, "Fl_Round_Button");
Check : Chk.Check_Button := Chk.Forge.Create (The_Win, 150, 90, 160, 30, "Fl_Check_Button");
begin
Base.Set_Tooltip ("This is a Tooltip.");
The_Win.Show_With_Args;
return FLTK.Run;
end Buttons;
|
