Made all constructors non-inheritable

1 files changed, 23 insertions, 19 deletions

diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb
index 6bc9a1d..13cc5dd 100644
--- a/src/fltk-images-bitmaps-xbm.adb
+++ b/src/fltk-images-bitmaps-xbm.adb
@@ -40,25 +40,29 @@ package body FLTK.Images.Bitmaps.XBM is
 
 
 
-    function Create
-           (Filename : in String)
-        return XBM_Image is
-    begin
-        return This : XBM_Image do
-            This.Void_Ptr := new_fl_xbm_image
-                   (Interfaces.C.To_C (Filename));
-            case fl_image_fail (This.Void_Ptr) is
-                when 1 =>
-                    raise No_Image_Error;
-                when 2 =>
-                    raise File_Access_Error;
-                when 3 =>
-                    raise Format_Error;
-                when others =>
-                    null;
-            end case;
-        end return;
-    end Create;
+    package body Forge is
+
+        function Create
+               (Filename : in String)
+            return XBM_Image is
+        begin
+            return This : XBM_Image do
+                This.Void_Ptr := new_fl_xbm_image
+                       (Interfaces.C.To_C (Filename));
+                case fl_image_fail (This.Void_Ptr) is
+                    when 1 =>
+                        raise No_Image_Error;
+                    when 2 =>
+                        raise File_Access_Error;
+                    when 3 =>
+                        raise Format_Error;
+                    when others =>
+                        null;
+                end case;
+            end return;
+        end Create;
+
+    end Forge;
 
 
 end FLTK.Images.Bitmaps.XBM;