diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-13 20:43:03 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-13 20:43:03 +1200 |
| commit | 7c454d924cf2e34adaf84012d5e3249d81d200e8 (patch) | |
| tree | b8c3507973f2090648b6c2a034a88d8e9e3e19f2 /body/fltk-widgets-groups.adb | |
| parent | d80d210d6b1418ba3e773186337c5da7ea169c4e (diff) | |
Extra_Final now checks appropriately whether Needs_Dealloc
Diffstat (limited to 'body/fltk-widgets-groups.adb')
| -rw-r--r-- | body/fltk-widgets-groups.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/body/fltk-widgets-groups.adb b/body/fltk-widgets-groups.adb index 4c30dfb..d6b51d4 100644 --- a/body/fltk-widgets-groups.adb +++ b/body/fltk-widgets-groups.adb @@ -217,7 +217,9 @@ package body FLTK.Widgets.Groups is procedure Extra_Final (This : in out Group) is begin - This.Clear; + if This.Needs_Dealloc then + This.Clear; + end if; Extra_Final (Widget (This)); end Extra_Final; |