diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-12-23 17:02:34 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-12-23 17:02:34 +1300 |
| commit | b3f9e96403aa5cb9d7db2330aa579356d1d58b6f (patch) | |
| tree | a2f6b68e3582b128e3a7e475757696f156084962 /src/fltk-devices-surfaces-image.ads | |
| parent | db014c7a249b319e40052f2cff6305b0d09d7ca5 (diff) | |
Tweaked the names of Surface_Device subhierarchy
Diffstat (limited to 'src/fltk-devices-surfaces-image.ads')
| -rw-r--r-- | src/fltk-devices-surfaces-image.ads | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/src/fltk-devices-surfaces-image.ads b/src/fltk-devices-surfaces-image.ads deleted file mode 100644 index f30133b..0000000 --- a/src/fltk-devices-surfaces-image.ads +++ /dev/null @@ -1,100 +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.Surfaces.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.Surfaces.Image; - |