Logo file now better integrated

1 files changed, 10 insertions, 2 deletions

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);