1 files changed, 3 insertions, 18 deletions
diff --git a/src/windows-about.adb b/src/windows-about.adb
index 6a3dda6..9d3f761 100644
--- a/src/windows-about.adb
+++ b/src/windows-about.adb
@@ -1,12 +1,5 @@
 
 
-with
-
-    FLTK.Widgets.Groups.Windows.Double,
-    FLTK.Widgets.Boxes,
-    FLTK.Widgets.Buttons.Enter;
-
-
 package body Windows.About is
 
 
@@ -66,6 +59,9 @@ package body Windows.About is
             This.Add (This.Dismiss);
             This.Dismiss.Set_Callback (Hide_CB'Access);
 
+            This.Set_Icon (Logo);
+            This.Picture.Set_Image (Logo);
+
             This.Set_Callback (Hide_CB'Access);
             This.Set_Modal;
         end return;
@@ -93,16 +89,5 @@ 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;