diff options
Diffstat (limited to 'src/fltk-widgets-inputs.ads')
| -rw-r--r-- | src/fltk-widgets-inputs.ads | 17 |
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; |