1 files changed, 0 insertions, 152 deletions
diff --git a/src/fltk-devices-surfaces-paged.ads b/src/fltk-devices-surfaces-paged.ads
deleted file mode 100644
index 15d0276..0000000
--- a/src/fltk-devices-surfaces-paged.ads
+++ /dev/null
@@ -1,152 +0,0 @@
-
-
-with
-
-    FLTK.Widgets.Groups.Windows;
-
-
-package FLTK.Devices.Surfaces.Paged is
-
-
-    type Paged_Surface is new Surface_Device with private;
-
-    type Paged_Surface_Reference (Data : not null access Paged_Surface'Class) is
-        limited null record with Implicit_Dereference => Data;
-
-    type Page_Format is
-       (A0, A1, A2, A3, A4, A5, A6, A7, A8, A9,
-        B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,
-        C5E, DLE, Executive, Folio, Ledger,
-        Legal, Letter, Tabloid, Envelope);
-
-    type Page_Layout is
-       (Potrait, Landscape, Reversed, Orientation);
-
-
-
-
-    Page_Error : exception;
-
-
-
-
-    package Forge is
-
-        function Create
-            return Paged_Surface;
-
-    end Forge;
-
-
-
-
-    procedure Start_Job
-           (This  : in out Paged_Surface;
-            Count : in     Natural);
-
-    procedure Start_Job
-           (This     : in out Paged_Surface;
-            Count    : in     Natural;
-            From, To : in     Positive);
-
-    procedure End_Job
-           (This : in out Paged_Surface);
-
-    procedure Start_Page
-           (This : in out Paged_Surface);
-
-    procedure End_Page
-           (This : in out Paged_Surface);
-
-
-
-
-    procedure Get_Margins
-           (This                     : in     Paged_Surface;
-            Left, Top, Right, Bottom :    out Integer);
-
-    procedure Get_Printable_Rect
-           (This : in     Paged_Surface;
-            W, H :    out Integer);
-
-    procedure Get_Origin
-           (This : in     Paged_Surface;
-            X, Y :    out Integer);
-
-    procedure Set_Origin
-           (This : in out Paged_Surface;
-            X, Y : in     Integer);
-
-    procedure Rotate
-           (This    : in out Paged_Surface;
-            Degrees : in     Float);
-
-    procedure Scale
-           (This   : in out Paged_Surface;
-            Factor : in     Float);
-
-    procedure Scale
-           (This               : in out Paged_Surface;
-            Factor_X, Factor_Y : in     Float);
-
-    procedure Translate
-           (This             : in out Paged_Surface;
-            Delta_X, Delta_Y : in     Integer);
-
-    procedure Untranslate
-           (This : in out Paged_Surface);
-
-
-
-
-    procedure Print_Widget
-           (This               : in out Paged_Surface;
-            Item               : in     FLTK.Widgets.Widget'Class;
-            Offset_X, Offset_Y : in     Integer := 0);
-
-    procedure Print_Window
-           (This               : in out Paged_Surface;
-            Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
-            Offset_X, Offset_Y : in     Integer := 0);
-
-    procedure Print_Window_Part
-           (This               : in out Paged_Surface;
-            Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
-            X, Y, W, H         : in     Integer;
-            Offset_X, Offset_Y : in     Integer := 0);
-
-
-private
-
-
-    type Paged_Surface is new Surface_Device with null record;
-
-    overriding procedure Finalize
-           (This : in out Paged_Surface);
-
-
-
-
-    pragma Inline (Start_Job);
-    pragma Inline (End_Job);
-    pragma Inline (Start_Page);
-    pragma Inline (End_Page);
-
-
-    pragma Inline (Get_Margins);
-    pragma Inline (Get_Printable_Rect);
-    pragma Inline (Get_Origin);
-    pragma Inline (Set_Origin);
-    pragma Inline (Rotate);
-    pragma Inline (Scale);
-    pragma Inline (Translate);
-    pragma Inline (Untranslate);
-
-
-    pragma Inline (Print_Widget);
-    pragma Inline (Print_Window);
-    pragma Inline (Print_Window_Part);
-
-
-end FLTK.Devices.Surfaces.Paged;
-