Reworked widget init/create subprograms

1 files changed, 5 insertions, 12 deletions

diff --git a/src/fltk-widgets-inputs.ads b/src/fltk-widgets-inputs.ads
index a4c31b6..296ca94 100644
--- a/src/fltk-widgets-inputs.ads
+++ b/src/fltk-widgets-inputs.ads
@@ -237,7 +237,11 @@ private
     overriding procedure Finalize
            (This : in out Input);
 
-
+    procedure Extra_Init
+           (This       : in out Input;
+            X, Y, W, H : in     Integer;
+            Text       : in     String)
+    with Inline;
 
 
     pragma Inline (Copy);
@@ -245,7 +249,6 @@ private
     pragma Inline (Copy_Cuts);
     pragma Inline (Undo);
 
-
     pragma Inline (Has_Changed);
     pragma Inline (Clear_Changed);
     pragma Inline (Is_Readonly);
@@ -255,7 +258,6 @@ private
     pragma Inline (Is_Wrap);
     pragma Inline (Set_Wrap);
 
-
     pragma Inline (Get_Input_Type);
     pragma Inline (Get_Shortcut_Key);
     pragma Inline (Set_Shortcut_Key);
@@ -264,19 +266,16 @@ private
     pragma Inline (Get_Position);
     pragma Inline (Set_Position);
 
-
     pragma Inline (Index);
     pragma Inline (Insert);
     pragma Inline (Replace);
     pragma Inline (Get_Value);
     pragma Inline (Set_Value);
 
-
     pragma Inline (Get_Maximum_Size);
     pragma Inline (Set_Maximum_Size);
     pragma Inline (Size);
 
-
     pragma Inline (Get_Cursor_Color);
     pragma Inline (Set_Cursor_Color);
     pragma Inline (Get_Text_Color);
@@ -286,16 +285,12 @@ private
     pragma Inline (Get_Text_Size);
     pragma Inline (Set_Text_Size);
 
-
     pragma Inline (Resize);
 
-
     pragma Inline (Draw);
     pragma Inline (Handle);
 
 
-
-
     Input_Kind_Values : array (Input_Kind) of Interfaces.C.int :=
        (Normal_Kind    => 0,
         Float_Kind     => 1,
@@ -306,8 +301,6 @@ private
         Wrap_Kind      => 16);
 
 
-
-
     function fl_input_get_value
            (F : in Storage.Integer_Address)
         return Interfaces.C.Strings.chars_ptr;