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-menus-menu_buttons.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/src/fltk-widgets-menus-menu_buttons.adb b/src/fltk-widgets-menus-menu_buttons.adb
index 1a8e17b..8c39887 100644
--- a/src/fltk-widgets-menus-menu_buttons.adb
+++ b/src/fltk-widgets-menus-menu_buttons.adb
@@ -64,7 +64,9 @@ package body FLTK.Widgets.Menus.Menu_Buttons is
         if  This.Void_Ptr /= System.Null_Address and then
             This in Menu_Button'Class
         then
-            free_fl_menu_button (This.Void_Ptr);
+            if This.Needs_Dealloc then
+                free_fl_menu_button (This.Void_Ptr);
+            end if;
             This.Void_Ptr := System.Null_Address;
         end if;
         Finalize (Menu (This));
-- 
cgit