From 703c2e726a75cbedb43d3105f9e0b2bab9e59e77 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 10 May 2017 20:07:16 +1000
Subject: Fixed Finalize inheritance bug

---
 src/fltk-images.adb | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/fltk-images.adb')

diff --git a/src/fltk-images.adb b/src/fltk-images.adb
index bbd87c9..d719e9c 100644
--- a/src/fltk-images.adb
+++ b/src/fltk-images.adb
@@ -38,12 +38,13 @@ package body FLTK.Images is
     overriding procedure Finalize
            (This : in out Image) is
     begin
-        Finalize (Wrapper (This));
-        if This.Void_Ptr /= System.Null_Address then
-            if This in Image then
-                free_fl_image (This.Void_Ptr);
-            end if;
+        if  This.Void_Ptr /= System.Null_Address and then
+            This in Image'Class
+        then
+            free_fl_image (This.Void_Ptr);
+            This.Void_Ptr := System.Null_Address;
         end if;
+        Finalize (Wrapper (This));
     end Finalize;
 
 
-- 
cgit