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;