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-widgets-groups-windows-single-menu.ads | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

(limited to 'src/fltk-widgets-groups-windows-single-menu.ads')

diff --git a/src/fltk-widgets-groups-windows-single-menu.ads b/src/fltk-widgets-groups-windows-single-menu.ads
index 8f5ea00..1ec5c1c 100644
--- a/src/fltk-widgets-groups-windows-single-menu.ads
+++ b/src/fltk-widgets-groups-windows-single-menu.ads
@@ -8,14 +8,18 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is
 
 
 
-    function Create
-           (X, Y, W, H : in Integer;
-            Text       : in String)
-        return Menu_Window;
-
-    function Create
-           (W, H : in Integer)
-        return Menu_Window;
+    package Forge is
+
+        function Create
+               (X, Y, W, H : in Integer;
+                Text       : in String)
+            return Menu_Window;
+
+        function Create
+               (W, H : in Integer)
+            return Menu_Window;
+
+    end Forge;
 
 
 
-- 
cgit