From 13d20cec64ca792780f7240ed9985fe99a92d40a Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 8 Nov 2021 10:59:25 +1300
Subject: Fixed widget constructor label copy bug

---
 src/fltk-widgets.ads | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/fltk-widgets.ads')

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index 4c649c0..5ac6f49 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -41,7 +41,7 @@ package FLTK.Widgets is
 
         function Create
                (X, Y, W, H : in Integer;
-                Text       : in String)
+                Text       : in String := "")
             return Widget;
 
     end Forge;
@@ -402,10 +402,21 @@ private
            (W : in System.Address)
         return System.Address;
     pragma Import (C, fl_widget_get_user_data, "fl_widget_get_user_data");
+    pragma Inline (fl_widget_get_user_data);
 
     procedure fl_widget_set_user_data
            (W, D : in System.Address);
     pragma Import (C, fl_widget_set_user_data, "fl_widget_set_user_data");
+    pragma Inline (fl_widget_set_user_data);
+
+
+
+
+    procedure fl_widget_set_label
+           (W : in System.Address;
+            T : in Interfaces.C.char_array);
+    pragma Import (C, fl_widget_set_label, "fl_widget_set_label");
+    pragma Inline (fl_widget_set_label);
 
 
 
-- 
cgit