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


with FLTK.Images.RGB.PNG;
private with FLTK.Widgets;


package Windows is


    Logo : FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Create ("logo.png");


private


    type Hide_Callback is new FLTK.Widgets.Widget_Callback with null record;


    overriding procedure Call
           (This : in     Hide_Callback;
            Item : in out FLTK.Widgets.Widget'Class);


    Hide_CB : aliased Hide_Callback;


end Windows;