diff options
Diffstat (limited to 'src/fltk_binding/fltk-dialogs.adb')
| -rw-r--r-- | src/fltk_binding/fltk-dialogs.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fltk_binding/fltk-dialogs.adb b/src/fltk_binding/fltk-dialogs.adb index fed4070..0c9adcf 100644 --- a/src/fltk_binding/fltk-dialogs.adb +++ b/src/fltk_binding/fltk-dialogs.adb @@ -82,7 +82,8 @@ package body FLTK.Dialogs is function Text_Input - (Message, Default : in String) + (Message : in String; + Default : in String := "") return String is Result : Interfaces.C.Strings.chars_ptr := dialog_fl_input |