with FLTK;
with Editors;
use Editors;
with FLTK.Text_Buffers;
use FLTK.Text_Buffers;
--  with FLTK.Widgets.Menus.Menu_Bars;


function AdaPad return Integer is


    Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad");
    Buffer : Text_Buffer := Create;


begin


    Pad.Set_Buffer (Buffer);
    Pad.Show;
    return FLTK.Run;


end AdaPad;