Logo file now better integrated

1 files changed, 11 insertions, 2 deletions

diff --git a/src/windows-about.adb b/src/windows-about.adb
index a09a41b..12f9c17 100644
--- a/src/windows-about.adb
+++ b/src/windows-about.adb
@@ -57,7 +57,6 @@ package body Windows.About is
                          Button_Line, Button_Width, Button_Height, "Close"))) do
 
             This.Add (This.Picture);
-            This.Picture.Set_Image (Logo);
             This.Add (This.Heading);
             This.Heading.Set_Label_Size (FLTK.Widgets.Font_Size (Heading_Size));
             This.Add (This.Blurb);
@@ -66,7 +65,6 @@ package body Windows.About is
             This.Dismiss.Set_Callback (Hide_CB'Access);
 
             This.Set_Callback (Hide_CB'Access);
-            This.Set_Icon (Logo);
             This.Set_Modal;
         end return;
     end Create;
@@ -93,5 +91,16 @@ package body Windows.About is
     end Create;
 
 
+
+
+    procedure Set_Logo
+           (This : in out About_Window;
+            Logo : in out FLTK.Images.RGB.PNG.PNG_Image) is
+    begin
+        Window (This).Set_Logo (Logo);
+        This.Picture.Set_Image (Logo);
+    end Set_Logo;
+
+
 end Windows.About;