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


with FLTK;
with Editors;
use Editors;
with FLTK.Text_Buffers;
use FLTK.Text_Buffers;


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;