More polishing, fixing of minor overlooked things, etc

1 files changed, 33 insertions, 0 deletions

diff --git a/src/fltk-images.ads b/src/fltk-images.ads
index 86ddbdb..053ed19 100644
--- a/src/fltk-images.ads
+++ b/src/fltk-images.ads
@@ -5,6 +5,11 @@ package FLTK.Images is
 
     type Image is new Wrapper with private;
 
+    type Image_Reference (Data : not null access Image'Class) is limited null record
+        with Implicit_Dereference => Data;
+
+    type Scaling_Kind is (Nearest, Bilinear);
+
     type Blend is new Float range 0.0 .. 1.0;
 
     No_Image_Error, File_Access_Error, Format_Error : exception;
@@ -23,6 +28,12 @@ package FLTK.Images is
 
 
 
+    function Get_Copy_Algorithm
+        return Scaling_Kind;
+
+    procedure Set_Copy_Algorithm
+           (To : in Scaling_Kind);
+
     function Copy
            (This          : in Image;
             Width, Height : in Natural)
@@ -96,6 +107,28 @@ private
 
 
 
+    pragma Inline (Copy);
+
+
+    pragma Inline (Color_Average);
+    pragma Inline (Desaturate);
+
+
+    pragma Inline (Inactive);
+    pragma Inline (Is_Empty);
+
+
+    pragma Inline (Get_W);
+    pragma Inline (Get_H);
+    pragma Inline (Get_D);
+
+
+    pragma Inline (Draw);
+    pragma Inline (Draw_Empty);
+
+
+
+
     function fl_image_fail
            (I : in System.Address)
         return Interfaces.C.int;