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.ads | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/windows-about.ads') diff --git a/src/windows-about.ads b/src/windows-about.ads index 0d605f9..f27ad26 100644 --- a/src/windows-about.ads +++ b/src/windows-about.ads @@ -8,7 +8,7 @@ private with FLTK.Widgets.Buttons.Enter; package Windows.About is - type About_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; + type About_Window is new Window with private; function Create @@ -26,10 +26,15 @@ package Windows.About is return About_Window; + procedure Set_Logo + (This : in out About_Window; + Logo : in out FLTK.Images.RGB.PNG.PNG_Image); + + private - type About_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with + type About_Window is new Window with record Picture : FLTK.Widgets.Boxes.Box; Heading : FLTK.Widgets.Boxes.Box; -- cgit