Added FLTK.Images.Shared and completed FLTK.Devices.Surfaces.Image

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