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-valuators-value_inputs.adb | 8 -------- 1 file changed, 8 deletions(-) (limited to 'body/fltk-widgets-valuators-value_inputs.adb') diff --git a/body/fltk-widgets-valuators-value_inputs.adb b/body/fltk-widgets-valuators-value_inputs.adb index ded1096..1909c1c 100644 --- a/body/fltk-widgets-valuators-value_inputs.adb +++ b/body/fltk-widgets-valuators-value_inputs.adb @@ -173,17 +173,9 @@ package body FLTK.Widgets.Valuators.Value_Inputs is -- Destructors -- ------------------- - -- Making a long distance telephone call - procedure fl_text_input_extra_final - (Ada_Obj : in Storage.Integer_Address); - pragma Import (C, fl_text_input_extra_final, "fl_text_input_extra_final"); - pragma Inline (fl_text_input_extra_final); - - procedure Extra_Final (This : in out Value_Input) is begin - fl_text_input_extra_final (Storage.To_Integer (This.My_Input'Address)); Extra_Final (Valuator (This)); end Extra_Final; -- cgit