src/fltk-errors.ads


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
29
30
31
32
33
34
35
36
37
38
39


--  Programmed by Jedidiah Barber
--  Released into the public domain


package FLTK.Errors is


    type Error_Function is not null access procedure
           (Message : in String);


    procedure Default_Warning
           (Message : in String);

    procedure Default_Error
           (Message : in String);

    procedure Default_Fatal
           (Message : in String);


    Current_Warning : Error_Function := Default_Warning'Access;
    Current_Error   : Error_Function := Default_Error'Access;
    Current_Fatal   : Error_Function := Default_Fatal'Access;


private


    pragma Inline (Default_Warning);
    pragma Inline (Default_Error);
    pragma Inline (Default_Fatal);


end FLTK.Errors;