Fixed widget constructor label copy bug

1 files changed, 12 insertions, 1 deletions

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);