diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-27 01:24:13 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-27 01:24:13 +1100 |
commit | 7c3e3b91b4aa65e314dde577ebaccb83771f4279 (patch) | |
tree | c07c63ff26cd4efbc5ad70a75c8d1b9503c57593 /src/fltk-devices-surfaces-copy.ads | |
parent | b81d4e31bc54ad83527eef800db6706ce967d5e1 (diff) |
Added FLTK.Devices.Surfaces.Copy
Diffstat (limited to 'src/fltk-devices-surfaces-copy.ads')
-rw-r--r-- | src/fltk-devices-surfaces-copy.ads | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/src/fltk-devices-surfaces-copy.ads b/src/fltk-devices-surfaces-copy.ads new file mode 100644 index 0000000..deafe8d --- /dev/null +++ b/src/fltk-devices-surfaces-copy.ads @@ -0,0 +1,65 @@ + + +with + + FLTK.Widgets.Groups.Windows; + + +package FLTK.Devices.Surfaces.Copy is + + + type Copy_Surface is new Surface_Device with private; + + + + + 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); + + +end FLTK.Devices.Surfaces.Copy; + |