More polishing, fixing of minor overlooked things, etc

1 files changed, 22 insertions, 4 deletions

diff --git a/src/fltk-images-shared.ads b/src/fltk-images-shared.ads
index 9214c8d..a6810f8 100644
--- a/src/fltk-images-shared.ads
+++ b/src/fltk-images-shared.ads
@@ -10,7 +10,8 @@ package FLTK.Images.Shared is
 
     type Shared_Image is new Image with private;
 
-    type Scaling_Kind is (Nearest, Bilinear);
+    type Shared_Image_Reference (Data : not null access Shared_Image'Class) is
+        limited null record with Implicit_Dereference => Data;
 
 
 
@@ -66,9 +67,6 @@ package FLTK.Images.Shared is
     procedure Reload
            (This : in out Shared_Image);
 
-    procedure Uncache
-           (This : in out Shared_Image);
-
 
 
 
@@ -103,5 +101,25 @@ private
            (This : in out Shared_Image);
 
 
+
+
+    pragma Inline (Copy);
+
+
+    pragma Inline (Color_Average);
+    pragma Inline (Desaturate);
+
+
+    pragma Inline (Name);
+    pragma Inline (Reload);
+
+
+    pragma Inline (Set_Scaling_Algorithm);
+    pragma Inline (Scale);
+
+
+    pragma Inline (Draw);
+
+
 end FLTK.Images.Shared;