The Great Package Naming Style Change(tm)

1 files changed, 0 insertions, 80 deletions

diff --git a/src/fltk_binding/fltk-widget.ads b/src/fltk_binding/fltk-widget.ads
deleted file mode 100644
index ef4650e..0000000
--- a/src/fltk_binding/fltk-widget.ads
+++ /dev/null
@@ -1,80 +0,0 @@
-
-
-with FLTK.Enums; use FLTK.Enums;
-with Ada.Finalization;
-private with System;
-
-
-package FLTK.Widget is
-
-
-    type Widget_Type is abstract new Ada.Finalization.Limited_Controlled with private;
-
-
-    type Font_Size is new Natural;
-    Normal_Size : constant Font_Size := 14;
-
-
-    type Color is new Natural;
-
-
-    function Create
-           (X, Y, W, H : in Integer;
-            Label      : in String)
-        return Widget_Type is abstract;
-
-
-    function Get_Box
-           (W : in Widget_Type'Class)
-        return Box_Kind;
-
-
-    procedure Set_Box
-           (W : in Widget_Type'Class;
-            B : in Box_Kind);
-
-
-    function Get_Label_Font
-           (W : in Widget_Type'Class)
-        return Font_Kind;
-
-
-    procedure Set_Label_Font
-           (W : in Widget_Type'Class;
-            F : in Font_Kind);
-
-
-    function Get_Label_Size
-           (W : in Widget_Type'Class)
-        return Font_Size;
-
-
-    procedure Set_Label_Size
-           (W : in Widget_Type'Class;
-            S : in Font_Size);
-
-
-    function Get_Label_Type
-           (W : in Widget_Type'Class)
-        return Label_Kind;
-
-
-    procedure Set_Label_Type
-           (W : in Widget_Type'Class;
-            L : in Label_Kind);
-
-
-private
-
-
-    type Widget_Type is abstract new Ada.Finalization.Limited_Controlled with
-        record
-            Void_Ptr : System.Address;
-        end record;
-
-
-    overriding procedure Initialize (This : in out Widget_Type);
-
-
-end FLTK.Widget;
-