diff options
Diffstat (limited to 'src/fltk-widgets-inputs.adb')
| -rw-r--r-- | src/fltk-widgets-inputs.adb | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb index 5196911..9064ee8 100644 --- a/src/fltk-widgets-inputs.adb +++ b/src/fltk-widgets-inputs.adb @@ -17,10 +17,12 @@ package body FLTK.Widgets.Inputs is procedure input_set_draw_hook (W, D : in System.Address); pragma Import (C, input_set_draw_hook, "input_set_draw_hook"); + pragma Inline (input_set_draw_hook); procedure input_set_handle_hook (W, H : in System.Address); pragma Import (C, input_set_handle_hook, "input_set_handle_hook"); + pragma Inline (input_set_handle_hook); @@ -30,10 +32,12 @@ package body FLTK.Widgets.Inputs is Text : in Interfaces.C.char_array) return System.Address; pragma Import (C, new_fl_input, "new_fl_input"); + pragma Inline (new_fl_input); procedure free_fl_input (F : in System.Address); pragma Import (C, free_fl_input, "free_fl_input"); + pragma Inline (free_fl_input); @@ -42,33 +46,39 @@ package body FLTK.Widgets.Inputs is (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_copy, "fl_input_copy"); + pragma Inline (fl_input_copy); function fl_input_cut (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_cut, "fl_input_cut"); + pragma Inline (fl_input_cut); function fl_input_cut2 (I : in System.Address; B : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_cut2, "fl_input_cut2"); + pragma Inline (fl_input_cut2); function fl_input_cut3 (I : in System.Address; A, B : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_cut3, "fl_input_cut3"); + pragma Inline (fl_input_cut3); function fl_input_copy_cuts (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_copy_cuts, "fl_input_copy_cuts"); + pragma Inline (fl_input_copy_cuts); function fl_input_undo (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_undo, "fl_input_undo"); + pragma Inline (fl_input_undo); @@ -77,31 +87,37 @@ package body FLTK.Widgets.Inputs is (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_readonly, "fl_input_get_readonly"); + pragma Inline (fl_input_get_readonly); procedure fl_input_set_readonly (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_readonly, "fl_input_set_readonly"); + pragma Inline (fl_input_set_readonly); function fl_input_get_tab_nav (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_tab_nav, "fl_input_get_tab_nav"); + pragma Inline (fl_input_get_tab_nav); procedure fl_input_set_tab_nav (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_tab_nav, "fl_input_set_tab_nav"); + pragma Inline (fl_input_set_tab_nav); function fl_input_get_wrap (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_wrap, "fl_input_get_wrap"); + pragma Inline (fl_input_get_wrap); procedure fl_input_set_wrap (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_wrap, "fl_input_set_wrap"); + pragma Inline (fl_input_set_wrap); @@ -110,43 +126,51 @@ package body FLTK.Widgets.Inputs is (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_input_type, "fl_input_get_input_type"); + pragma Inline (fl_input_get_input_type); procedure fl_input_set_input_type (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_input_type, "fl_input_set_input_type"); + pragma Inline (fl_input_set_input_type); function fl_input_get_shortcut (I : in System.Address) return Interfaces.C.unsigned_long; pragma Import (C, fl_input_get_shortcut, "fl_input_get_shortcut"); + pragma Inline (fl_input_get_shortcut); procedure fl_input_set_shortcut (I : in System.Address; T : in Interfaces.C.unsigned_long); pragma Import (C, fl_input_set_shortcut, "fl_input_set_shortcut"); + pragma Inline (fl_input_set_shortcut); function fl_input_get_mark (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_mark, "fl_input_get_mark"); + pragma Inline (fl_input_get_mark); function fl_input_set_mark (I : in System.Address; T : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_set_mark, "fl_input_set_mark"); + pragma Inline (fl_input_set_mark); function fl_input_get_position (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_position, "fl_input_get_position"); + pragma Inline (fl_input_get_position); function fl_input_set_position (I : in System.Address; T : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_set_position, "fl_input_set_position"); + pragma Inline (fl_input_set_position); @@ -156,6 +180,7 @@ package body FLTK.Widgets.Inputs is P : in Interfaces.C.int) return Interfaces.C.unsigned; pragma Import (C, fl_input_index, "fl_input_index"); + pragma Inline (fl_input_index); function fl_input_insert (I : in System.Address; @@ -163,6 +188,7 @@ package body FLTK.Widgets.Inputs is L : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_insert, "fl_input_insert"); + pragma Inline (fl_input_insert); function fl_input_replace (I : in System.Address; @@ -171,12 +197,14 @@ package body FLTK.Widgets.Inputs is L : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_replace, "fl_input_replace"); + pragma Inline (fl_input_replace); procedure fl_input_set_value (I : in System.Address; T : in Interfaces.C.char_array; L : in Interfaces.C.int); pragma Import (C, fl_input_set_value, "fl_input_set_value"); + pragma Inline (fl_input_set_value); @@ -185,16 +213,19 @@ package body FLTK.Widgets.Inputs is (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_maximum_size, "fl_input_get_maximum_size"); + pragma Inline (fl_input_get_maximum_size); procedure fl_input_set_maximum_size (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_maximum_size, "fl_input_set_maximum_size"); + pragma Inline (fl_input_set_maximum_size); function fl_input_get_size (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_size, "fl_input_get_size"); + pragma Inline (fl_input_get_size); @@ -203,41 +234,49 @@ package body FLTK.Widgets.Inputs is (I : in System.Address) return Interfaces.C.unsigned; pragma Import (C, fl_input_get_cursor_color, "fl_input_get_cursor_color"); + pragma Inline (fl_input_get_cursor_color); procedure fl_input_set_cursor_color (I : in System.Address; T : in Interfaces.C.unsigned); pragma Import (C, fl_input_set_cursor_color, "fl_input_set_cursor_color"); + pragma Inline (fl_input_set_cursor_color); function fl_input_get_textcolor (I : in System.Address) return Interfaces.C.unsigned; pragma Import (C, fl_input_get_textcolor, "fl_input_get_textcolor"); + pragma Inline (fl_input_get_textcolor); procedure fl_input_set_textcolor (I : in System.Address; T : in Interfaces.C.unsigned); pragma Import (C, fl_input_set_textcolor, "fl_input_set_textcolor"); + pragma Inline (fl_input_set_textcolor); function fl_input_get_textfont (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_textfont, "fl_input_get_textfont"); + pragma Inline (fl_input_get_textfont); procedure fl_input_set_textfont (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_textfont, "fl_input_set_textfont"); + pragma Inline (fl_input_set_textfont); function fl_input_get_textsize (I : in System.Address) return Interfaces.C.int; pragma Import (C, fl_input_get_textsize, "fl_input_get_textsize"); + pragma Inline (fl_input_get_textsize); procedure fl_input_set_textsize (I : in System.Address; T : in Interfaces.C.int); pragma Import (C, fl_input_set_textsize, "fl_input_set_textsize"); + pragma Inline (fl_input_set_textsize); @@ -246,6 +285,7 @@ package body FLTK.Widgets.Inputs is (I : in System.Address; W, H : in Interfaces.C.int); pragma Import (C, fl_input_set_size, "fl_input_set_size"); + pragma Inline (fl_input_set_size); @@ -253,12 +293,14 @@ package body FLTK.Widgets.Inputs is procedure fl_input_draw (W : in System.Address); pragma Import (C, fl_input_draw, "fl_input_draw"); + pragma Inline (fl_input_draw); function fl_input_handle (W : in System.Address; E : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_input_handle, "fl_input_handle"); + pragma Inline (fl_input_handle); @@ -528,6 +570,7 @@ package body FLTK.Widgets.Inputs is (This : in Input) return String is begin + -- pointer to internal buffer only, so no Free required return Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr)); end Get_Value; @@ -672,6 +715,8 @@ package body FLTK.Widgets.Inputs is fl_input_set_input_type (This.Void_Ptr, Input_Kind_Values (To)); end Set_Input_Type; + pragma Inline (Set_Input_Type); + end Extra; |