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