Reworked widget init/create subprograms

1 files changed, 5 insertions, 17 deletions

diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads
index 85f8d54..38991b1 100644
--- a/src/fltk-widgets-groups.ads
+++ b/src/fltk-widgets-groups.ads
@@ -167,16 +167,12 @@ private
     overriding procedure Finalize
            (This : in out Group);
 
-    package Group_Convert is new System.Address_To_Access_Conversions (Group);
-
-
-
-
-    procedure fl_group_end
-           (G : in Storage.Integer_Address);
-    pragma Import (C, fl_group_end, "fl_group_end");
-
+    procedure Extra_Init
+           (This       : in out Group;
+            X, Y, W, H : in     Integer;
+            Text       : in     String);
 
+    package Group_Convert is new System.Address_To_Access_Conversions (Group);
 
 
     type Cursor is record
@@ -207,36 +203,28 @@ private
         return Cursor;
 
 
-
-
     pragma Inline (Add);
     pragma Inline (Insert);
     pragma Inline (Remove);
     pragma Inline (Clear);
 
-
     pragma Inline (Has_Child);
     pragma Inline (Child);
     pragma Inline (Find);
     pragma Inline (Number_Of_Children);
 
-
     pragma Inline (Iterate);
 
-
     --  pragma Inline (Get_Clip_Mode);
     --  pragma Inline (Set_Clip_Mode);
 
-
     pragma Inline (Get_Resizable);
     pragma Inline (Set_Resizable);
     pragma Inline (Reset_Initial_Sizes);
 
-
     pragma Inline (Get_Current);
     pragma Inline (Set_Current);
 
-
     pragma Inline (Draw);
     pragma Inline (Handle);