From 7aa86670f5d76284ae193ed1e1ed936b20a5c5fb Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 11 Nov 2016 14:45:30 +1100
Subject: Removed some superfluous with clauses

---
 src/windows.adb | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/windows.adb')

diff --git a/src/windows.adb b/src/windows.adb
index bf070a4..3c2020d 100644
--- a/src/windows.adb
+++ b/src/windows.adb
@@ -1,6 +1,5 @@
 
 
-with FLTK.Widgets;
 with FLTK.Widgets.Groups;
 with FLTK.Widgets.Groups.Windows;
 
@@ -8,8 +7,6 @@ with FLTK.Widgets.Groups.Windows;
 package body Windows is
 
 
-    package W  renames FLTK.Widgets;
-    package G  renames FLTK.Widgets.Groups;
     package WN renames FLTK.Widgets.Groups.Windows;
 
 
@@ -19,9 +16,9 @@ package body Windows is
     --  of constantly creating and destroying them
 
     procedure Hide_CB
-           (Item : in out W.Widget'Class)
+           (Item : in out FLTK.Widgets.Widget'Class)
     is
-        P : access G.Group'Class;
+        P : access FLTK.Widgets.Groups.Group'Class;
     begin
         if Item in WN.Window'Class then
             WN.Window (Item).Hide;
-- 
cgit