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.ads | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

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