From 8b9a09364553d2495b133f948c1ddf428d0b9dae Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 16 Jan 2025 16:04:40 +1300 Subject: Filled hole in Fl_Input_Choice binding --- src/fltk-widgets-groups-input_choices.adb | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'src/fltk-widgets-groups-input_choices.adb') diff --git a/src/fltk-widgets-groups-input_choices.adb b/src/fltk-widgets-groups-input_choices.adb index 118b9ea..3c4f1c8 100644 --- a/src/fltk-widgets-groups-input_choices.adb +++ b/src/fltk-widgets-groups-input_choices.adb @@ -314,6 +314,32 @@ package body FLTK.Widgets.Groups.Input_Choices is -- API Subprograms -- ----------------------- + function Has_Item + (This : in Input_Choice; + Place : in FLTK.Widgets.Menus.Index) + return Boolean is + begin + return This.My_Menu_Button.Has_Item (Place); + end Has_Item; + + + function Item + (This : in Input_Choice; + Place : in FLTK.Widgets.Menus.Index) + return FLTK.Menu_Items.Menu_Item_Reference is + begin + return This.My_Menu_Button.Item (Place); + end Item; + + + procedure Use_Same_Items + (This : in out Input_Choice; + Donor : in FLTK.Widgets.Menus.Menu'Class) is + begin + This.My_Menu_Button.Use_Same_Items (Donor); + end Use_Same_Items; + + procedure Clear (This : in out Input_Choice) is begin -- cgit