From 3dafc66bc620994493b0da6429f580272eef3116 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 17 Mar 2018 17:42:53 +1100
Subject: Added FLTK.Widgets.Groups.Input_Choices

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

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

diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb
index 6d2ee20..b5134ae 100644
--- a/src/fltk-widgets-inputs.adb
+++ b/src/fltk-widgets-inputs.adb
@@ -56,7 +56,9 @@ package body FLTK.Widgets.Inputs is
         if  This.Void_Ptr /= System.Null_Address and then
             This in Input'Class
         then
-            free_fl_input (This.Void_Ptr);
+            if This.Needs_Dealloc then
+                free_fl_input (This.Void_Ptr);
+            end if;
             This.Void_Ptr := System.Null_Address;
         end if;
         Finalize (Widget (This));
-- 
cgit