Groups and Widgets should now keep track of themselves properly, also all named access types removed

1 files changed, 5 insertions, 6 deletions

diff --git a/fltk-widgets-buttons.ads b/fltk-widgets-buttons.ads
index 42f6e8b..a31ed79 100644
--- a/fltk-widgets-buttons.ads
+++ b/fltk-widgets-buttons.ads
@@ -4,7 +4,6 @@ package FLTK.Widgets.Buttons is
 
 
     type Button is new Widget with private;
-    type Button_Access is access all Button;
 
 
     type State is (On, Off);
@@ -12,22 +11,22 @@ package FLTK.Widgets.Buttons is
 
     function Create
            (X, Y, W, H : in Integer;
-            Label      : in String)
+            Text       : in String)
         return Button;
 
 
     function Get_State
-           (B : in Button'Class)
+           (This : in Button)
         return State;
 
 
     procedure Set_State
-           (B : in out Button'Class;
-            S : in     State);
+           (This : in out Button;
+            St   : in     State);
 
 
     procedure Set_Only
-           (B : in out Button'Class);
+           (This : in out Button);
 
 
 private