From 7aa86670f5d76284ae193ed1e1ed936b20a5c5fb Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 11 Nov 2016 14:45:30 +1100 Subject: Removed some superfluous with clauses --- src/windows-find.adb | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/windows-find.adb') diff --git a/src/windows-find.adb b/src/windows-find.adb index f061ba3..4f76338 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -1,9 +1,7 @@ -with FLTK.Widgets; with FLTK.Widgets.Groups.Windows.Double; with FLTK.Widgets.Inputs; -with FLTK.Widgets.Buttons; with FLTK.Widgets.Buttons.Enter; with FLTK.Widgets.Buttons.Light.Check; @@ -11,7 +9,6 @@ with FLTK.Widgets.Buttons.Light.Check; package body Windows.Find is - package W renames FLTK.Widgets; package WD renames FLTK.Widgets.Groups.Windows.Double; package IP renames FLTK.Widgets.Inputs; package BU renames FLTK.Widgets.Buttons; @@ -22,7 +19,7 @@ package body Windows.Find is procedure Find_M - (Item : in out W.Widget'Class) + (Item : in out FLTK.Widgets.Widget'Class) is use type BU.State; type Find_Window_Access is access all Find_Window; -- cgit