From 9a7351c664d7f05232cb3f934658c79fffc752fd Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 13 Nov 2016 18:44:21 +1100
Subject: Added jump to feature

---
 src/fltk_binding/fltk-dialogs.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/fltk_binding/fltk-dialogs.adb')

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
-- 
cgit