diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 14:45:30 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-11 14:45:30 +1100 |
commit | 7aa86670f5d76284ae193ed1e1ed936b20a5c5fb (patch) | |
tree | 55e212b64ae466ebabf2e7c9daf403194adb6091 /src/windows.adb | |
parent | bf5b67dee0d61996c3937dd8b255d5fcf2198973 (diff) |
Removed some superfluous with clauses
Diffstat (limited to 'src/windows.adb')
-rw-r--r-- | src/windows.adb | 7 |
1 files changed, 2 insertions, 5 deletions
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; |