From ede7482f170d498d0a2129da6e81ff4764e366e2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 28 Jul 2017 00:03:19 +1000
Subject: Logo file now better integrated

---
 src/windows.ads | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/windows.ads')

diff --git a/src/windows.ads b/src/windows.ads
index b187b7b..64a8823 100644
--- a/src/windows.ads
+++ b/src/windows.ads
@@ -1,18 +1,26 @@
 
 
+with FLTK.Widgets.Groups.Windows.Double;
 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");
+    type Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private;
+
+
+    procedure Set_Logo
+           (This : in out Window;
+            Logo : in out FLTK.Images.RGB.PNG.PNG_Image);
 
 
 private
 
 
+    type Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with null record;
+
+
     procedure Hide_CB
            (Item : in out FLTK.Widgets.Widget'Class);
 
-- 
cgit