Fixed widget constructor label copy bug

1 files changed, 2 insertions, 1 deletions

diff --git a/src/fltk-widgets-charts.adb b/src/fltk-widgets-charts.adb
index 078a64d..63bd604 100644
--- a/src/fltk-widgets-charts.adb
+++ b/src/fltk-widgets-charts.adb
@@ -203,7 +203,7 @@ package body FLTK.Widgets.Charts is
 
         function Create
                (X, Y, W, H : in Integer;
-                Text       : in String)
+                Text       : in String := "")
             return Chart is
         begin
             return This : Chart do
@@ -218,6 +218,7 @@ package body FLTK.Widgets.Charts is
                         Widget_Convert.To_Address (This'Unchecked_Access));
                 chart_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
                 chart_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+                fl_widget_set_label (This.Void_Ptr, Interfaces.C.To_C (Text));
             end return;
         end Create;