From 619b3da9fbb37c57aedfc039cc813f6acf5569be Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 17 Nov 2024 17:15:53 +1300 Subject: Refactored Finalize subprograms and made note of potential future Widget issues there in fltk.ads --- src/fltk-widgets-groups-input_choices.ads | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/fltk-widgets-groups-input_choices.ads') diff --git a/src/fltk-widgets-groups-input_choices.ads b/src/fltk-widgets-groups-input_choices.ads index 1cc2f2f..0ffc8d9 100644 --- a/src/fltk-widgets-groups-input_choices.ads +++ b/src/fltk-widgets-groups-input_choices.ads @@ -133,6 +133,9 @@ private X, Y, W, H : in Integer; Text : in String); + procedure Extra_Final + (This : in out Input_Choice); + pragma Inline (Input); pragma Inline (Menu_Button); -- cgit