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(+)
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