diff options
Diffstat (limited to 'src/fltk-devices-surface-copy.ads')
| -rw-r--r-- | src/fltk-devices-surface-copy.ads | 89 |
1 files changed, 0 insertions, 89 deletions
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; - - |