1 files changed, 33 insertions, 14 deletions

diff --git a/src/fltk-widgets-groups-tabbed.ads b/src/fltk-widgets-groups-tabbed.ads
index 0973e9f..825b36d 100644
--- a/src/fltk-widgets-groups-tabbed.ads
+++ b/src/fltk-widgets-groups-tabbed.ads
@@ -3,7 +3,10 @@
 package FLTK.Widgets.Groups.Tabbed is
 
 
-    type Tabs is new Group with private;
+    type Tabbed_Group is new Group with private;
+
+    type Tabbed_Group_Reference (Data : not null access Tabbed_Group'Class) is
+        limited null record with Implicit_Dereference => Data;
 
 
 
@@ -13,7 +16,7 @@ package FLTK.Widgets.Groups.Tabbed is
         function Create
                (X, Y, W, H : in Integer;
                 Text       : in String)
-            return Tabs;
+            return Tabbed_Group;
 
     end Forge;
 
@@ -21,7 +24,7 @@ package FLTK.Widgets.Groups.Tabbed is
 
 
     procedure Get_Client_Area
-           (This       : in     Tabs;
+           (This       : in     Tabbed_Group;
             Tab_Height : in     Natural;
             X, Y, W, H :    out Integer);
 
@@ -29,23 +32,23 @@ package FLTK.Widgets.Groups.Tabbed is
 
 
     function Get_Push
-           (This : in Tabs)
+           (This : in Tabbed_Group)
         return access Widget'Class;
 
     procedure Set_Push
-           (This : in out Tabs;
-            Item : access Widget'Class);
+           (This : in out Tabbed_Group;
+            Item : in out Widget'Class);
 
     function Get_Visible
-           (This : in Tabs)
+           (This : in Tabbed_Group)
         return access Widget'Class;
 
     procedure Set_Visible
-           (This : in out Tabs;
-            Item : access Widget'Class);
+           (This : in out Tabbed_Group;
+            Item : in out Widget'Class);
 
     function Get_Which
-           (This             : in Tabs;
+           (This             : in Tabbed_Group;
             Event_X, Event_Y : in Integer)
         return access Widget'Class;
 
@@ -53,10 +56,10 @@ package FLTK.Widgets.Groups.Tabbed is
 
 
     procedure Draw
-           (This : in out Tabs);
+           (This : in out Tabbed_Group);
 
     function Handle
-           (This  : in out Tabs;
+           (This  : in out Tabbed_Group;
             Event : in     Event_Kind)
         return Event_Outcome;
 
@@ -64,10 +67,26 @@ package FLTK.Widgets.Groups.Tabbed is
 private
 
 
-    type Tabs is new Group with null record;
+    type Tabbed_Group is new Group with null record;
 
     overriding procedure Finalize
-           (This : in out Tabs);
+           (This : in out Tabbed_Group);
+
+
+
+
+    pragma Inline (Get_Client_Area);
+
+
+    pragma Inline (Get_Push);
+    pragma Inline (Set_Push);
+    pragma Inline (Get_Visible);
+    pragma Inline (Set_Visible);
+    pragma Inline (Get_Which);
+
+
+    pragma Inline (Draw);
+    pragma Inline (Handle);
 
 
 end FLTK.Widgets.Groups.Tabbed;