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; private with FLTK.Widgets; package Windows is Logo : FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Create ("logo.png"); private procedure Hide_CB (Item : in out FLTK.Widgets.Widget'Class); end Windows;