Split public API and private implementation files into different directories

1 files changed, 0 insertions, 173 deletions

diff --git a/src/fltk-widgets-groups-browsers-textline-file.ads b/src/fltk-widgets-groups-browsers-textline-file.ads
deleted file mode 100644
index e679957..0000000
--- a/src/fltk-widgets-groups-browsers-textline-file.ads
+++ /dev/null
@@ -1,173 +0,0 @@
-
-
---  Programmed by Jedidiah Barber
---  Released into the public domain
-
-
-with
-
-    FLTK.Filenames;
-
-
-package FLTK.Widgets.Groups.Browsers.Textline.File is
-
-
-    --  Due to the inherited methods being made private in C++, overriding
-    --
-    --      Item_Width
-    --      Item_Height
-    --      Item_Draw
-    --      Full_List_Height
-    --      Average_Item_Height
-    --
-    --  will have no effect on the behaviour of this widget in FLTK.
-    --
-    --  This may change in versions beyond 1.3.
-
-
-    type File_Browser is new Textline_Browser with private;
-
-    type File_Browser_Reference (Data : not null access File_Browser'Class) is
-        limited null record with Implicit_Dereference => Data;
-
-    type File_Kind is (Files, Directories);
-
-    type Icon_Size is mod 256;
-
-
-
-
-    package Forge is
-
-        function Create
-               (X, Y, W, H : in Integer;
-                Text       : in String := "")
-            return File_Browser;
-
-        function Create
-               (Parent     : in out Groups.Group'Class;
-                X, Y, W, H : in     Integer;
-                Text       : in     String := "")
-            return File_Browser;
-
-    end Forge;
-
-
-
-
-    function Load
-           (This : in out File_Browser;
-            Dir  : in     String;
-            Sort : in not null FLTK.Filenames.Compare_Function :=
-                FLTK.Filenames.Numeric_Sort'Access)
-        return Natural;
-
-    procedure Load
-           (This : in out File_Browser;
-            Dir  : in     String;
-            Sort : in not null FLTK.Filenames.Compare_Function :=
-                FLTK.Filenames.Numeric_Sort'Access);
-
-
-
-
-    function Get_File_Kind
-           (This : in File_Browser)
-        return File_Kind;
-
-    procedure Set_File_Kind
-           (This  : in out File_Browser;
-            Value : in     File_Kind);
-
-    function Get_Filter
-           (This : in File_Browser)
-        return String;
-
-    procedure Set_Filter
-           (This  : in out File_Browser;
-            Value : in     String);
-
-    function Get_Icon_Size
-           (This : in File_Browser)
-        return Icon_Size;
-
-    procedure Set_Icon_Size
-           (This  : in out File_Browser;
-            Value : in     Icon_Size);
-
-    function Get_Text_Size
-           (This : in File_Browser)
-        return Font_Size;
-
-    procedure Set_Text_Size
-           (This : in out File_Browser;
-            Size : in     Font_Size);
-
-
-
-
-    function Full_List_Height
-           (This : in File_Browser)
-        return Integer;
-
-    function Average_Item_Height
-           (This : in File_Browser)
-        return Integer;
-
-
-
-
-    function Item_Width
-           (This : in File_Browser;
-            Item : in Item_Cursor)
-        return Integer;
-
-    function Item_Height
-           (This : in File_Browser;
-            Item : in Item_Cursor)
-        return Integer;
-
-    procedure Item_Draw
-           (This       : in File_Browser;
-            Item       : in Item_Cursor;
-            X, Y, W, H : in Integer);
-
-
-private
-
-
-    type File_Browser is new Textline_Browser with null record;
-
-    overriding procedure Initialize
-           (This : in out File_Browser);
-
-    overriding procedure Finalize
-           (This : in out File_Browser);
-
-    procedure Extra_Init
-           (This       : in out File_Browser;
-            X, Y, W, H : in     Integer;
-            Text       : in     String);
-
-    procedure Extra_Final
-           (This : in out File_Browser);
-
-
-    pragma Inline (Set_File_Kind);
-    pragma Inline (Set_Filter);
-    pragma Inline (Get_Icon_Size);
-    pragma Inline (Set_Icon_Size);
-    pragma Inline (Get_Text_Size);
-    pragma Inline (Set_Text_Size);
-
-    pragma Inline (Full_List_Height);
-    pragma Inline (Average_Item_Height);
-
-    pragma Inline (Item_Width);
-    pragma Inline (Item_Height);
-    pragma Inline (Item_Draw);
-
-
-end FLTK.Widgets.Groups.Browsers.Textline.File;
-
-