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-jump.adb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src/windows-jump.adb') diff --git a/src/windows-jump.adb b/src/windows-jump.adb index 5d263ba..7503ec7 100644 --- a/src/windows-jump.adb +++ b/src/windows-jump.adb @@ -1,12 +1,5 @@ -with - - FLTK.Widgets.Groups.Windows.Double, - FLTK.Widgets.Buttons.Enter, - FLTK.Widgets.Inputs.Integer; - - package body Windows.Jump is @@ -71,6 +64,8 @@ package body Windows.Jump is This.Add (This.Go_Jump); This.Go_Jump.Set_Callback (Jump_M'Access); + This.Set_Icon (Logo); + This.Set_Callback (Hide_CB'Access); This.Set_Modal; end return; -- cgit