From f419b275ee91792e08f211a588d891c4aa6bedac Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 15 Jul 2016 22:20:30 +1000
Subject: Groups and Widgets should now keep track of themselves properly, also
 all named access types removed

---
 fltk-widgets-groups-windows-double.ads | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'fltk-widgets-groups-windows-double.ads')

diff --git a/fltk-widgets-groups-windows-double.ads b/fltk-widgets-groups-windows-double.ads
index 5e93da1..20b5362 100644
--- a/fltk-widgets-groups-windows-double.ads
+++ b/fltk-widgets-groups-windows-double.ads
@@ -4,12 +4,11 @@ package FLTK.Widgets.Groups.Windows.Double is
 
 
     type Double_Window is new Window with private;
-    type Double_Window_Access is access all Double_Window;
 
 
     function Create
            (X, Y, W, H : in Integer;
-            Label      : in String)
+            Text       : in String)
         return Double_Window;
 
 
@@ -19,7 +18,7 @@ package FLTK.Widgets.Groups.Windows.Double is
 
 
     procedure Show
-           (W : in Double_Window);
+           (This : in Double_Window);
 
 
 private
-- 
cgit