Fixed Finalize inheritance bug

1 files changed, 5 insertions, 4 deletions

diff --git a/src/fltk-text_buffers.adb b/src/fltk-text_buffers.adb
index 52f12e0..086ec03 100644
--- a/src/fltk-text_buffers.adb
+++ b/src/fltk-text_buffers.adb
@@ -138,10 +138,11 @@ package body FLTK.Text_Buffers is
     procedure Finalize
            (This : in out Text_Buffer) is
     begin
-        if This.Void_Ptr /= System.Null_Address then
-            if This in Text_Buffer then
-                free_fl_text_buffer (This.Void_Ptr);
-            end if;
+        if  This.Void_Ptr /= System.Null_Address and then
+            This in Text_Buffer'Class
+        then
+            free_fl_text_buffer (This.Void_Ptr);
+            This.Void_Ptr := System.Null_Address;
         end if;
     end Finalize;