From 6fa5de9c6015c2d93aac1f3e379844fc36ff865f 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

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

(limited to 'fltk-dialogs.adb')

diff --git a/fltk-dialogs.adb b/fltk-dialogs.adb
index fed4070..0c9adcf 100644
--- a/fltk-dialogs.adb
+++ b/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