package FLTK.Widgets.Boxes is
type Box is new Widget with private;
function Create
(X, Y, W, H : in Integer;
Text : in String)
return Box;
procedure Draw
(This : in out Box);
private
type Box is new Widget with null record;
overriding procedure Finalize
(This : in out Box);
end FLTK.Widgets.Boxes;