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-valuators-sliders.ads | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/fltk-widgets-valuators-sliders.ads') diff --git a/src/fltk-widgets-valuators-sliders.ads b/src/fltk-widgets-valuators-sliders.ads index 3760e53..48be83d 100644 --- a/src/fltk-widgets-valuators-sliders.ads +++ b/src/fltk-widgets-valuators-sliders.ads @@ -8,10 +8,14 @@ package FLTK.Widgets.Valuators.Sliders is - function Create - (X, Y, W, H : in Integer; - Text : in String) - return Slider; + package Forge is + + function Create + (X, Y, W, H : in Integer; + Text : in String) + return Slider; + + end Forge; -- cgit