--  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;