From 2c15b311f6942ec92fa44d91831ba991d40ac545 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 14 Apr 2025 16:01:23 +1200 Subject: Removed superfluous extra_final stuff --- body/fltk-widgets-groups-browsers.adb | 9 --------- 1 file changed, 9 deletions(-) (limited to 'body/fltk-widgets-groups-browsers.adb') diff --git a/body/fltk-widgets-groups-browsers.adb b/body/fltk-widgets-groups-browsers.adb index e65dedc..13cdba7 100644 --- a/body/fltk-widgets-groups-browsers.adb +++ b/body/fltk-widgets-groups-browsers.adb @@ -650,18 +650,9 @@ package body FLTK.Widgets.Groups.Browsers is -- Destructors -- ------------------- - -- Preparing to use morse code - procedure fl_scrollbar_extra_final - (Ada_Obj : in Storage.Integer_Address); - pragma Import (C, fl_scrollbar_extra_final, "fl_scrollbar_extra_final"); - pragma Inline (fl_scrollbar_extra_final); - - procedure Extra_Final (This : in out Browser) is begin - fl_scrollbar_extra_final (Storage.To_Integer (This.Horizon'Address)); - fl_scrollbar_extra_final (Storage.To_Integer (This.Vertigo'Address)); Extra_Final (Group (This)); for Index in This.Text_Store'Range loop Interfaces.C.Strings.Free (This.Text_Store (Index)); -- cgit