1 files changed, 12 insertions, 5 deletions
diff --git a/src/fltk-images.ads b/src/fltk-images.ads
index a3138e9..86ddbdb 100644
--- a/src/fltk-images.ads
+++ b/src/fltk-images.ads
@@ -12,18 +12,25 @@ package FLTK.Images is
 
 
 
-    function Create
-           (Width, Height, Depth : in Natural)
-        return Image;
+    package Forge is
+
+        function Create
+               (Width, Height, Depth : in Natural)
+            return Image;
+
+    end Forge;
+
+
+
 
     function Copy
            (This          : in Image;
             Width, Height : in Natural)
-        return Image;
+        return Image'Class;
 
     function Copy
            (This : in Image)
-        return Image;
+        return Image'Class;