From b4438b2fbe895694be98e6e8426103deefc51448 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 21 Jan 2025 21:04:54 +1300
Subject: Split public API and private implementation files into different
 directories

---
 src/fltk-devices-surface-copy.ads | 89 ---------------------------------------
 1 file changed, 89 deletions(-)
 delete mode 100644 src/fltk-devices-surface-copy.ads

(limited to 'src/fltk-devices-surface-copy.ads')

diff --git a/src/fltk-devices-surface-copy.ads b/src/fltk-devices-surface-copy.ads
deleted file mode 100644
index 41d331b..0000000
--- a/src/fltk-devices-surface-copy.ads
+++ /dev/null
@@ -1,89 +0,0 @@
-
-
---  Programmed by Jedidiah Barber
---  Released into the public domain
-
-
-with
-
-    FLTK.Widgets.Groups.Windows;
-
-
-package FLTK.Devices.Surface.Copy is
-
-
-    type Copy_Surface is new Surface_Device with private;
-
-    type Copy_Surface_Reference (Data : not null access Copy_Surface'Class) is
-        limited null record with Implicit_Dereference => Data;
-
-
-
-
-    --  The initial Graphics_Driver this is supposed to have upon construction
-    --  is not currently implemented properly. Please wait warmly until the
-    --  binding for the Graphics sub-hierarchy is done.
-
-
-
-
-    package Forge is
-
-        function Create
-               (W, H : in Natural)
-            return Copy_Surface;
-
-    end Forge;
-
-
-
-
-    function Get_W
-           (This : in Copy_Surface)
-        return Integer;
-
-    function Get_H
-           (This : in Copy_Surface)
-        return Integer;
-
-
-
-
-    procedure Draw_Widget
-           (This               : in out Copy_Surface;
-            Item               : in     FLTK.Widgets.Widget'Class;
-            Offset_X, Offset_Y : in     Integer := 0);
-
-    procedure Draw_Decorated_Window
-           (This               : in out Copy_Surface;
-            Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
-            Offset_X, Offset_Y : in     Integer := 0);
-
-
-
-
-    procedure Set_Current
-           (This : in out Copy_Surface);
-
-
-private
-
-
-    type Copy_Surface is new Surface_Device with null record;
-
-    overriding procedure Finalize
-           (This : in out Copy_Surface);
-
-
-    pragma Inline (Get_W);
-    pragma Inline (Get_H);
-
-    pragma Inline (Draw_Widget);
-    pragma Inline (Draw_Decorated_Window);
-
-    pragma Inline (Set_Current);
-
-
-end FLTK.Devices.Surface.Copy;
-
-
-- 
cgit