summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-buttons-toggle.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-buttons-toggle.adb')
-rw-r--r--src/fltk-widgets-buttons-toggle.adb13
1 files changed, 8 insertions, 5 deletions
diff --git a/src/fltk-widgets-buttons-toggle.adb b/src/fltk-widgets-buttons-toggle.adb
index 287a5d4..a228130 100644
--- a/src/fltk-widgets-buttons-toggle.adb
+++ b/src/fltk-widgets-buttons-toggle.adb
@@ -35,6 +35,9 @@ package body FLTK.Widgets.Buttons.Toggle is
procedure Draw_Hook
(U : in System.Address)
is
+ package Toggle_Button_Convert is new
+ System.Address_To_Access_Conversions (Toggle_Button'Class);
+
Ada_Toggle_Button : access Toggle_Button'Class :=
Toggle_Button_Convert.To_Pointer (U);
begin
@@ -56,12 +59,12 @@ package body FLTK.Widgets.Buttons.Toggle is
procedure Finalize
(This : in out Toggle_Button) is
begin
- Finalize (Button (This));
- if This.Void_Ptr /= System.Null_Address then
- if This in Toggle_Button then
- free_fl_toggle_button (This.Void_Ptr);
- end if;
+ if This in Toggle_Button and then
+ This.Void_Ptr /= System.Null_Address
+ then
+ free_fl_toggle_button (This.Void_Ptr);
end if;
+ Finalize (Button (This));
end Finalize;