1 files changed, 0 insertions, 157 deletions
diff --git a/src/fltk-devices-surfaces-copy.adb b/src/fltk-devices-surfaces-copy.adb
deleted file mode 100644
index cceb945..0000000
--- a/src/fltk-devices-surfaces-copy.adb
+++ /dev/null
@@ -1,157 +0,0 @@
-
-
-with
-
-    Interfaces.C,
-    System;
-
-use type
-
-    System.Address;
-
-
-package body FLTK.Devices.Surfaces.Copy is
-
-
-    function new_fl_copy_surface
-           (W, H : in Interfaces.C.int)
-        return System.Address;
-    pragma Import (C, new_fl_copy_surface, "new_fl_copy_surface");
-    pragma Inline (new_fl_copy_surface);
-
-    procedure free_fl_copy_surface
-           (S : in System.Address);
-    pragma Import (C, free_fl_copy_surface, "free_fl_copy_surface");
-    pragma Inline (free_fl_copy_surface);
-
-
-
-
-    function fl_copy_surface_get_w
-           (S : in System.Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_copy_surface_get_w, "fl_copy_surface_get_w");
-    pragma Inline (fl_copy_surface_get_w);
-
-    function fl_copy_surface_get_h
-           (S : in System.Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_copy_surface_get_h, "fl_copy_surface_get_h");
-    pragma Inline (fl_copy_surface_get_h);
-
-
-
-
-    procedure fl_copy_surface_draw
-           (S, W   : in System.Address;
-            OX, OY : in Interfaces.C.int);
-    pragma Import (C, fl_copy_surface_draw, "fl_copy_surface_draw");
-    pragma Inline (fl_copy_surface_draw);
-
-    procedure fl_copy_surface_draw_decorated_window
-           (S, W   : in System.Address;
-            OX, OY : in Interfaces.C.int);
-    pragma Import (C, fl_copy_surface_draw_decorated_window,
-        "fl_copy_surface_draw_decorated_window");
-    pragma Inline (fl_copy_surface_draw_decorated_window);
-
-
-
-
-    procedure fl_copy_surface_set_current
-           (S : in System.Address);
-    pragma Import (C, fl_copy_surface_set_current, "fl_copy_surface_set_current");
-    pragma Inline (fl_copy_surface_set_current);
-
-
-
-
-    procedure Finalize
-           (This : in out Copy_Surface) is
-    begin
-        if  This.Void_Ptr /= System.Null_Address and then
-            This in Copy_Surface'Class
-        then
-            free_fl_copy_surface (This.Void_Ptr);
-            This.Void_Ptr := System.Null_Address;
-        end if;
-        Finalize (Surface_Device (This));
-    end Finalize;
-
-
-
-
-    package body Forge is
-
-        function Create
-               (W, H : in Natural)
-            return Copy_Surface is
-        begin
-            return This : Copy_Surface do
-                This.Void_Ptr := new_fl_copy_surface
-                   (Interfaces.C.int (W),
-                    Interfaces.C.int (H));
-            end return;
-        end Create;
-
-    end Forge;
-
-
-
-
-    function Get_W
-           (This : in Copy_Surface)
-        return Integer is
-    begin
-        return Integer (fl_copy_surface_get_w (This.Void_Ptr));
-    end Get_W;
-
-
-    function Get_H
-           (This : in Copy_Surface)
-        return Integer is
-    begin
-        return Integer (fl_copy_surface_get_h (This.Void_Ptr));
-    end Get_H;
-
-
-
-
-    procedure Draw_Widget
-           (This               : in out Copy_Surface;
-            Item               : in     FLTK.Widgets.Widget'Class;
-            Offset_X, Offset_Y : in     Integer := 0) is
-    begin
-        fl_copy_surface_draw
-           (This.Void_Ptr,
-            Wrapper (Item).Void_Ptr,
-            Interfaces.C.int (Offset_X),
-            Interfaces.C.int (Offset_Y));
-    end Draw_Widget;
-
-
-    procedure Draw_Decorated_Window
-           (This               : in out Copy_Surface;
-            Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
-            Offset_X, Offset_Y : in     Integer := 0) is
-    begin
-        fl_copy_surface_draw_decorated_window
-           (This.Void_Ptr,
-            Wrapper (Item).Void_Ptr,
-            Interfaces.C.int (Offset_X),
-            Interfaces.C.int (Offset_Y));
-    end Draw_Decorated_Window;
-
-
-
-
-    procedure Set_Current
-           (This : in out Copy_Surface) is
-    begin
-        fl_copy_surface_set_current (This.Void_Ptr);
-        Current_Ptr := This'Unchecked_Access;
-    end Set_Current;
-
-
-end FLTK.Devices.Surfaces.Copy;
-