src/main.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21


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


function Main return Integer
is
    Containing_Dir : 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 (Containing_Dir & "/../share/adapad/logo.png");
begin
    Adapad.Set_Logo (Logo);
    Adapad.Show;
    return FLTK.Run;
end Main;