From 74de211c198e5396f224c5a5f4e4fcd49bab2ce4 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 27 Oct 2024 20:01:04 +1300
Subject: Ensured Help_View widgets Clear themselves properly during Finalize

---
 src/fltk-widgets-groups-help_views.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/fltk-widgets-groups-help_views.adb b/src/fltk-widgets-groups-help_views.adb
index b1ac905..0250b15 100644
--- a/src/fltk-widgets-groups-help_views.adb
+++ b/src/fltk-widgets-groups-help_views.adb
@@ -273,6 +273,7 @@ package body FLTK.Widgets.Groups.Help_Views is
         if  This.Void_Ptr /= Null_Pointer and then
             This in Help_View'Class
         then
+            This.Clear;
             free_fl_help_view (This.Void_Ptr);
             Interfaces.C.Strings.Free (This.Hilda);
             This.Void_Ptr := Null_Pointer;
-- 
cgit