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-widgets-groups-windows-single-menu.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb
index 08e74e2..4f62763 100644
--- a/src/fltk-widgets-groups-windows-single-menu.adb
+++ b/src/fltk-widgets-groups-windows-single-menu.adb
@@ -90,11 +90,12 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is
     procedure Finalize
            (This : in out Menu_Window) is
     begin
-        if  This in Menu_Window and then
-            This.Void_Ptr /= System.Null_Address
+        if  This.Void_Ptr /= System.Null_Address and then
+            This in Menu_Window'Class
         then
             This.Clear;
             free_fl_menu_window (This.Void_Ptr);
+            This.Void_Ptr := System.Null_Address;
         end if;
         Finalize (Single_Window (This));
     end Finalize;
-- 
cgit