blob: 271b77de3330e228d86e8d2f2177b22f9459d5c0 (
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
|
-- with Editor;
with FLTK.Widget.Group.Window.Double;
with FLTK.Widget.Box;
with FLTK.Widget.Group.Text_Display;
with FLTK.Enums; use FLTK.Enums;
function AdaPad return Integer is
package Dbl renames FLTK.Widget.Group.Window.Double;
package Box renames FLTK.Widget.Box;
W : Dbl.Double_Type := Dbl.Create (340, 180);
B : Box.Box_Type := Box.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;
|