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-replace.adb | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'src/windows-replace.adb') diff --git a/src/windows-replace.adb b/src/windows-replace.adb index 758dfff..dd3703d 100644 --- a/src/windows-replace.adb +++ b/src/windows-replace.adb @@ -1,13 +1,5 @@ -with - - FLTK.Widgets.Groups.Windows.Double, - FLTK.Widgets.Inputs, - FLTK.Widgets.Buttons.Enter, - FLTK.Widgets.Buttons.Light.Check; - - package body Windows.Replace is @@ -97,6 +89,8 @@ package body Windows.Replace is This.Add (This.Start); This.Start.Set_Callback (Replace_M'Access); + This.Set_Icon (Logo); + This.Set_Callback (Hide_CB'Access); This.Set_Modal; end return; -- cgit