diff options
Diffstat (limited to 'src/fltk-menu_items.adb')
| -rw-r--r-- | src/fltk-menu_items.adb | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/fltk-menu_items.adb b/src/fltk-menu_items.adb index da17ef0..73e4c3c 100644 --- a/src/fltk-menu_items.adb +++ b/src/fltk-menu_items.adb @@ -228,13 +228,8 @@ package body FLTK.Menu_Items is procedure Finalize (This : in out Menu_Item) is begin - if This.Void_Ptr /= Null_Pointer and then - This in Menu_Item'Class - then - if This.Needs_Dealloc then - free_fl_menu_item (This.Void_Ptr); - end if; - This.Void_Ptr := Null_Pointer; + if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then + free_fl_menu_item (This.Void_Ptr); end if; end Finalize; |