diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-27 20:01:04 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-27 20:01:04 +1300 |
| commit | 74de211c198e5396f224c5a5f4e4fcd49bab2ce4 (patch) | |
| tree | 3f6c49dea86e5c0faa94b31224635efb43b26b4f | |
| parent | c99849a1aa5df79119d7541e11eedc93202e6907 (diff) | |
Ensured Help_View widgets Clear themselves properly during Finalize
| -rw-r--r-- | src/fltk-widgets-groups-help_views.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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; |