diff options
Diffstat (limited to 'src/fltk-devices-surface-image.ads')
| -rw-r--r-- | src/fltk-devices-surface-image.ads | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/src/fltk-devices-surface-image.ads b/src/fltk-devices-surface-image.ads deleted file mode 100644 index 961a9b2..0000000 --- a/src/fltk-devices-surface-image.ads +++ /dev/null @@ -1,96 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -with - - FLTK.Images.RGB, - FLTK.Images.Shared, - FLTK.Widgets.Groups.Windows; - - -package FLTK.Devices.Surface.Image is - - - type Image_Surface is new Surface_Device with private; - - type Image_Surface_Reference (Data : not null access Image_Surface'Class) is - limited null record with Implicit_Dereference => Data; - - - - - package Forge is - - function Create - (W, H : in Integer; - Highres : in Boolean := False) - return Image_Surface; - - end Forge; - - - - - function Is_Highres - (This : in Image_Surface) - return Boolean; - - - - - procedure Draw_Widget - (This : in out Image_Surface; - Item : in FLTK.Widgets.Widget'Class; - Offset_X, Offset_Y : in Integer := 0); - - procedure Draw_Decorated_Window - (This : in out Image_Surface; - Item : in FLTK.Widgets.Groups.Windows.Window'Class; - Offset_X, Offset_Y : in Integer := 0); - - - - - function Get_Image - (This : in Image_Surface) - return FLTK.Images.RGB.RGB_Image; - - function Get_Highres_Image - (This : in Image_Surface) - return FLTK.Images.Shared.Shared_Image; - - - - - procedure Set_Current - (This : in out Image_Surface); - - -private - - - type Image_Surface is new Surface_Device with record - High : Boolean := False; - end record; - - overriding procedure Finalize - (This : in out Image_Surface); - - - pragma Inline (Is_Highres); - - pragma Inline (Draw_Widget); - pragma Inline (Draw_Decorated_Window); - - pragma Inline (Get_Image); - pragma Inline (Get_Highres_Image); - - pragma Inline (Set_Current); - - -end FLTK.Devices.Surface.Image; - - |