src/main.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


with

    FLTK.Images.RGB.PNG,
    Adapad,
    Ada.Command_Line,
    Ada.Directories;


function Main
    return Integer
is
    Origin : String := Ada.Directories.Containing_Directory
        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));

    Logo : FLTK.Images.RGB.PNG.PNG_Image :=
        FLTK.Images.RGB.PNG.Create (Origin & "/../share/adapad/logo.png");
begin
    Adapad.Set_Logo (Logo);
    Adapad.Show;
    return FLTK.Run;
end Main;