From 74336ca78b2b6bd42b50cce21bd1fe71f98cc56a Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 2 Feb 2024 11:18:01 +1300 Subject: First pass at draw functions --- src/fltk-widgets-charts.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/fltk-widgets-charts.ads') diff --git a/src/fltk-widgets-charts.ads b/src/fltk-widgets-charts.ads index 1369c4f..dad0f9f 100644 --- a/src/fltk-widgets-charts.ads +++ b/src/fltk-widgets-charts.ads @@ -27,21 +27,21 @@ package FLTK.Widgets.Charts is (This : in out Chart; Data_Value : in Long_Float; Data_Label : in String := ""; - Data_Color : in Color := No_Color); + Data_Color : in Color := Foreground_Color); procedure Insert (This : in out Chart; Position : in Natural; Data_Value : in Long_Float; Data_Label : in String := ""; - Data_Color : in Color := No_Color); + Data_Color : in Color := Foreground_Color); procedure Replace (This : in out Chart; Position : in Natural; Data_Value : in Long_Float; Data_Label : in String := ""; - Data_Color : in Color := No_Color); + Data_Color : in Color := Foreground_Color); procedure Clear (This : in out Chart); -- cgit