From 3f59b75f1bb14d0daa7d979617fd7318aaf89c7c Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 13 Mar 2018 17:38:01 +1100
Subject: Made all constructors non-inheritable

---
 src/fltk-text_buffers.ads | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'src/fltk-text_buffers.ads')

diff --git a/src/fltk-text_buffers.ads b/src/fltk-text_buffers.ads
index 1648915..ea66f6f 100644
--- a/src/fltk-text_buffers.ads
+++ b/src/fltk-text_buffers.ads
@@ -32,10 +32,14 @@ package FLTK.Text_Buffers is
 
 
 
-    function Create
-           (Requested_Size     : in Natural := 0;
-            Preferred_Gap_Size : in Natural := 1024)
-        return Text_Buffer;
+    package Forge is
+
+        function Create
+               (Requested_Size     : in Natural := 0;
+                Preferred_Gap_Size : in Natural := 1024)
+            return Text_Buffer;
+
+    end Forge;
 
 
 
-- 
cgit