blob: b9fc616b5a1af6148dc5fe777462fa48f5745fa2 (
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.Button;
with FLTK.Widget.Box;
with FLTK.Widget.Input;
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 (300, 300, 300, 300, "AdaPad");
B : Box.Box_Type := Box.Create (100, 100, 100, 100, "Test");
begin
B.Set_Box (Engraved_Box);
B.Set_Label_Font (Times_Bold_Italic);
W.Add (B);
W.Show;
return FLTK.Run;
end AdaPad;
|