summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-menus-menu_buttons.adb
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2024-11-17 17:15:53 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2024-11-17 17:15:53 +1300
commit619b3da9fbb37c57aedfc039cc813f6acf5569be (patch)
tree5577d1594900cd5e23afbc792d31ba9a40818d55 /src/fltk-widgets-menus-menu_buttons.adb
parentf5f77c762534ed15adc557009d1a645e5fd998a5 (diff)
Refactored Finalize subprograms and made note of potential future Widget issues there in fltk.ads
Diffstat (limited to 'src/fltk-widgets-menus-menu_buttons.adb')
-rw-r--r--src/fltk-widgets-menus-menu_buttons.adb18
1 files changed, 10 insertions, 8 deletions
diff --git a/src/fltk-widgets-menus-menu_buttons.adb b/src/fltk-widgets-menus-menu_buttons.adb
index 2d6f305..51c35f8 100644
--- a/src/fltk-widgets-menus-menu_buttons.adb
+++ b/src/fltk-widgets-menus-menu_buttons.adb
@@ -76,18 +76,20 @@ package body FLTK.Widgets.Menus.Menu_Buttons is
+ procedure Extra_Final
+ (This : in out Menu_Button) is
+ begin
+ Extra_Final (Menu (This));
+ end Extra_Final;
+
+
procedure Finalize
(This : in out Menu_Button) is
begin
- if This.Void_Ptr /= Null_Pointer and then
- This in Menu_Button'Class
- then
- if This.Needs_Dealloc then
- free_fl_menu_button (This.Void_Ptr);
- end if;
- This.Void_Ptr := Null_Pointer;
+ Extra_Final (This);
+ if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then
+ free_fl_menu_button (This.Void_Ptr);
end if;
- Finalize (Menu (This));
end Finalize;