with FLTK;
with Editors;
use Editors;
with FLTK.Widgets.Groups.Windows.Double;
use FLTK.Widgets.Groups.Windows.Double;
with Ada.Text_IO; use Ada.Text_IO;


function AdaPad return Integer is


    --Pad : Double_Window := Create (0, 0, 640, 400, "AdaPad");
    Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad");


begin


    Put_Line ("About to show");
    Pad.Show;
    Put_Line ("About to run");
    return FLTK.Run;


end AdaPad;