diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 00:03:19 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 00:03:19 +1000 |
commit | ede7482f170d498d0a2129da6e81ff4764e366e2 (patch) | |
tree | 793de3ccbc1e2045e52ce6bb7402e08dfe1ec14f /src/windows-about.ads | |
parent | bfa8e44514a6d0e597123aa701dbe29a461c1ed6 (diff) |
Logo file now better integrated
Diffstat (limited to 'src/windows-about.ads')
-rw-r--r-- | src/windows-about.ads | 9 |
1 files changed, 7 insertions, 2 deletions
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; |