From 3f59b75f1bb14d0daa7d979617fd7318aaf89c7c Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 13 Mar 2018 17:38:01 +1100 Subject: Made all constructors non-inheritable --- src/fltk-widgets-inputs-integer.ads | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-inputs-integer.ads') diff --git a/src/fltk-widgets-inputs-integer.ads b/src/fltk-widgets-inputs-integer.ads index c32615b..bde356c 100644 --- a/src/fltk-widgets-inputs-integer.ads +++ b/src/fltk-widgets-inputs-integer.ads @@ -8,10 +8,14 @@ package FLTK.Widgets.Inputs.Integer is - function Create - (X, Y, W, H : in Standard.Integer; - Text : in String) - return Integer_Input; + package Forge is + + function Create + (X, Y, W, H : in Standard.Integer; + Text : in String) + return Integer_Input; + + end Forge; -- cgit