src/adapad.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


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;