diff options
Diffstat (limited to 'src/windows-about.adb')
-rw-r--r-- | src/windows-about.adb | 21 |
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; |