blob: a2fe4c598092d5550e0e1e7b884c6b19e78674f3 (
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
|
-- with Editor;
with FLTK.Widget.Group.Window.Double;
with FLTK.Widget.Box;
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;
|