diff options
Diffstat (limited to 'src/fltk-devices-surfaces-image.adb')
-rw-r--r-- | src/fltk-devices-surfaces-image.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/fltk-devices-surfaces-image.adb b/src/fltk-devices-surfaces-image.adb index 0621e39..1955bf3 100644 --- a/src/fltk-devices-surfaces-image.adb +++ b/src/fltk-devices-surfaces-image.adb @@ -44,6 +44,11 @@ package body FLTK.Devices.Surfaces.Image is return System.Address; pragma Import (C, fl_image_surface_image, "fl_image_surface_image"); + function fl_image_surface_highres_image + (S : in System.Address) + return System.Address; + pragma Import (C, fl_image_surface_highres_image, "fl_image_surface_highres_image"); + @@ -138,6 +143,16 @@ package body FLTK.Devices.Surfaces.Image is end Get_Image; + function Get_Highres_Image + (This : in Image_Surface) + return FLTK.Images.Shared.Shared_Image is + begin + return Img : FLTK.Images.Shared.Shared_Image do + Wrapper (Img).Void_Ptr := fl_image_surface_highres_image (This.Void_Ptr); + end return; + end Get_Highres_Image; + + procedure Set_Current |