From f5f77c762534ed15adc557009d1a645e5fd998a5 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 16 Nov 2024 10:30:34 +1300 Subject: Reworked widget init/create subprograms --- src/fltk-widgets-groups.ads | 22 +++++----------------- 1 file changed, 5 insertions(+), 17 deletions(-) (limited to 'src/fltk-widgets-groups.ads') 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); -- cgit