From f7bfc040a062b3f5a3549abd87463221c667f1d5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 31 Jul 2017 00:16:24 +1000 Subject: Made logo code more concise --- src/windows-about.adb | 21 +++------------------ 1 file changed, 3 insertions(+), 18 deletions(-) (limited to 'src/windows-about.adb') 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; -- cgit