blob: 164f9c3c423f5886596f511ce4522bd4c7cde87f (
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
|
-- with Editor;
with FLTK.Widgets.Groups.Windows.Double;
with FLTK.Widgets.Groups.Windows.Single.Menu;
with FLTK.Widgets.Boxes;
with FLTK.Widgets.Buttons.Enter;
with FLTK.Widgets.Buttons.Light.Check;
with FLTK.Widgets.Buttons.Light.Radio;
with FLTK.Widgets.Buttons.Light.Round.Radio;
with FLTK.Widgets.Buttons.Radio;
with FLTK.Widgets.Buttons.Repeat;
with FLTK.Widgets.Buttons.Toggle;
with FLTK.Widgets.Inputs;
with FLTK.Widgets.Groups.Text_Displays.Text_Editors;
with FLTK.Enums; use FLTK.Enums;
function AdaPad return Integer is
package Dbl renames FLTK.Widgets.Groups.Windows.Double;
package Bx renames FLTK.Widgets.Boxes;
W : Dbl.Double_Window := Dbl.Create (340, 180);
B : Bx.Box := Bx.Create (20, 40, 300, 100, "Test");
begin
B.Set_Box (Engraved_Box);
B.Set_Label_Font (Times_Bold_Italic);
B.Set_Label_Size (36);
B.Set_Label_Type (Shadow_Label);
W.Add (B);
W.Show;
return FLTK.Run;
end AdaPad;
|
