Made all constructors non-inheritable

1 files changed, 19 insertions, 15 deletions

diff --git a/src/fltk-text_buffers.adb b/src/fltk-text_buffers.adb
index a91f7e1..394ff02 100644
--- a/src/fltk-text_buffers.adb
+++ b/src/fltk-text_buffers.adb
@@ -232,21 +232,25 @@ package body FLTK.Text_Buffers is
 
 
 
-    function Create
-           (Requested_Size     : in Natural := 0;
-            Preferred_Gap_Size : in Natural := 1024)
-        return Text_Buffer is
-    begin
-        return This : Text_Buffer do
-            This.Void_Ptr := new_fl_text_buffer
-                   (Interfaces.C.int (Requested_Size),
-                    Interfaces.C.int (Preferred_Gap_Size));
-
-            This.Modify_CBs := Modify_Vectors.Empty_Vector;
-            This.Predelete_CBs := Predelete_Vectors.Empty_Vector;
-            This.CB_Active := True;
-        end return;
-    end Create;
+    package body Forge is
+
+        function Create
+               (Requested_Size     : in Natural := 0;
+                Preferred_Gap_Size : in Natural := 1024)
+            return Text_Buffer is
+        begin
+            return This : Text_Buffer do
+                This.Void_Ptr := new_fl_text_buffer
+                       (Interfaces.C.int (Requested_Size),
+                        Interfaces.C.int (Preferred_Gap_Size));
+
+                This.Modify_CBs := Modify_Vectors.Empty_Vector;
+                This.Predelete_CBs := Predelete_Vectors.Empty_Vector;
+                This.CB_Active := True;
+            end return;
+        end Create;
+
+    end Forge;