From 04b80586bb52e02c0d081215d14ef7356b1f5af8 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 23 Mar 2018 02:28:25 +1100
Subject: Completed Input widgets, Dialog routines

---
 src/fltk-widgets-boxes.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/fltk-widgets-boxes.adb')

diff --git a/src/fltk-widgets-boxes.adb b/src/fltk-widgets-boxes.adb
index 27aed8f..e60f0f7 100644
--- a/src/fltk-widgets-boxes.adb
+++ b/src/fltk-widgets-boxes.adb
@@ -56,7 +56,9 @@ package body FLTK.Widgets.Boxes is
         if  This.Void_Ptr /= System.Null_Address and then
             This in Box'Class
         then
-            free_fl_box (This.Void_Ptr);
+            if This.Needs_Dealloc then
+                free_fl_box (This.Void_Ptr);
+            end if;
             This.Void_Ptr := System.Null_Address;
         end if;
         Finalize (Widget (This));
-- 
cgit