--  with Editor;
with FLTK.Widgets.Groups.Windows.Double;
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;
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;