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-images-bitmaps.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fltk-images-bitmaps.ads')

diff --git a/src/fltk-images-bitmaps.ads b/src/fltk-images-bitmaps.ads
index 8f2e4bf..53229e2 100644
--- a/src/fltk-images-bitmaps.ads
+++ b/src/fltk-images-bitmaps.ads
@@ -11,11 +11,11 @@ package FLTK.Images.Bitmaps is
     function Copy
            (This          : in Bitmap;
             Width, Height : in Natural)
-        return Bitmap;
+        return Bitmap'Class;
 
     function Copy
            (This : in Bitmap)
-        return Bitmap;
+        return Bitmap'Class;
 
 
 
-- 
cgit