From ede7482f170d498d0a2129da6e81ff4764e366e2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Jul 2017 00:03:19 +1000 Subject: Logo file now better integrated --- src/windows-about.adb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'src/windows-about.adb') 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; -- cgit