diff options
Diffstat (limited to 'src/fltk_binding/fltk-widgets-inputs.adb')
-rw-r--r-- | src/fltk_binding/fltk-widgets-inputs.adb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-widgets-inputs.adb b/src/fltk_binding/fltk-widgets-inputs.adb index 17ab621..9af8e87 100644 --- a/src/fltk_binding/fltk-widgets-inputs.adb +++ b/src/fltk_binding/fltk-widgets-inputs.adb @@ -1,6 +1,7 @@ with Interfaces.C; +with Interfaces.C.Strings; with System; use type System.Address; @@ -18,6 +19,11 @@ package body FLTK.Widgets.Inputs is (F : in System.Address); pragma Import (C, free_fl_input, "free_fl_input"); + function fl_input_get_value + (F : in System.Address) + return Interfaces.C.Strings.chars_ptr; + pragma Import (C, fl_input_get_value, "fl_input_get_value"); + @@ -54,5 +60,15 @@ package body FLTK.Widgets.Inputs is end Create; + + + function Get_Value + (This : in Input) + return String is + begin + return Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr)); + end Get_Value; + + end FLTK.Widgets.Inputs; |