Moved code for each window into its own package

1 files changed, 28 insertions, 0 deletions

diff --git a/src/windows.ads b/src/windows.ads
new file mode 100644
index 0000000..3144bba
--- /dev/null
+++ b/src/windows.ads
@@ -0,0 +1,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;
+