1 files changed, 0 insertions, 168 deletions
diff --git a/src/fltk-widgets-charts.ads b/src/fltk-widgets-charts.ads
deleted file mode 100644
index dad0f9f..0000000
--- a/src/fltk-widgets-charts.ads
+++ /dev/null
@@ -1,168 +0,0 @@
-
-
-package FLTK.Widgets.Charts is
-
-
-    type Chart is new Widget with private;
-
-    type Chart_Reference (Data : not null access Chart'Class) is limited null record
-        with Implicit_Dereference => Data;
-
-
-
-
-    package Forge is
-
-        function Create
-               (X, Y, W, H : in Integer;
-                Text       : in String := "")
-            return Chart;
-
-    end Forge;
-
-
-
-
-    procedure Add
-           (This       : in out Chart;
-            Data_Value : in     Long_Float;
-            Data_Label : in     String := "";
-            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 := Foreground_Color);
-
-    procedure Replace
-           (This       : in out Chart;
-            Position   : in     Natural;
-            Data_Value : in     Long_Float;
-            Data_Label : in     String := "";
-            Data_Color : in     Color := Foreground_Color);
-
-    procedure Clear
-           (This : in out Chart);
-
-
-
-
-    function Will_Autosize
-           (This : in Chart)
-        return Boolean;
-
-    procedure Set_Autosize
-           (This : in out Chart;
-            To   : in     Boolean);
-
-    procedure Get_Bounds
-           (This         : in     Chart;
-            Lower, Upper :    out Long_Float);
-
-    procedure Set_Bounds
-           (This         : in out Chart;
-            Lower, Upper : in     Long_Float);
-
-    function Get_Maximum_Size
-           (This : in Chart)
-        return Natural;
-
-    procedure Set_Maximum_Size
-           (This : in out Chart;
-            To   : in     Natural);
-
-    function Get_Size
-           (This : in Chart)
-        return Natural;
-
-
-
-
-    function Get_Text_Color
-           (This : in Chart)
-        return Color;
-
-    procedure Set_Text_Color
-           (This : in out Chart;
-            To   : in     Color);
-
-    function Get_Text_Font
-           (This : in Chart)
-        return Font_Kind;
-
-    procedure Set_Text_Font
-           (This : in out Chart;
-            To   : in     Font_Kind);
-
-    function Get_Text_Size
-           (This : in Chart)
-        return Font_Size;
-
-    procedure Set_Text_Size
-           (This : in out Chart;
-            To   : in     Font_Size);
-
-
-
-
-    procedure Resize
-           (This : in out Chart;
-            W, H : in     Integer);
-
-
-
-
-    procedure Draw
-           (This : in out Chart);
-
-    function Handle
-           (This  : in out Chart;
-            Event : in     Event_Kind)
-        return Event_Outcome;
-
-
-private
-
-
-    type Chart is new Widget with null record;
-
-    overriding procedure Finalize
-           (This : in out Chart);
-
-
-
-
-    pragma Inline (Add);
-    pragma Inline (Insert);
-    pragma Inline (Replace);
-    pragma Inline (Clear);
-
-
-    pragma Inline (Will_Autosize);
-    pragma Inline (Set_Autosize);
-    pragma Inline (Get_Bounds);
-    pragma Inline (Set_Bounds);
-    pragma Inline (Get_Maximum_Size);
-    pragma Inline (Set_Maximum_Size);
-    pragma Inline (Get_Size);
-
-
-    pragma Inline (Get_Text_Color);
-    pragma Inline (Set_Text_Color);
-    pragma Inline (Get_Text_Font);
-    pragma Inline (Set_Text_Font);
-    pragma Inline (Get_Text_Size);
-    pragma Inline (Set_Text_Size);
-
-
-    pragma Inline (Resize);
-
-
-    pragma Inline (Draw);
-    pragma Inline (Handle);
-
-
-end FLTK.Widgets.Charts;
-