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.ads | 20 ++++++++++++++++++++ 1 file changed, 20 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 f97f69a..dca7ac4 100644 --- a/src/fltk-widgets-groups-input_choices.ads +++ b/src/fltk-widgets-groups-input_choices.ads @@ -6,6 +6,7 @@ with + FLTK.Menu_Items, FLTK.Widgets.Inputs.Text, FLTK.Widgets.Menus.Menu_Buttons; @@ -44,6 +45,20 @@ package FLTK.Widgets.Groups.Input_Choices is + function Has_Item + (This : in Input_Choice; + Place : in FLTK.Widgets.Menus.Index) + return Boolean; + + function Item + (This : in Input_Choice; + Place : in FLTK.Widgets.Menus.Index) + return FLTK.Menu_Items.Menu_Item_Reference; + + procedure Use_Same_Items + (This : in out Input_Choice; + Donor : in FLTK.Widgets.Menus.Menu'Class); + procedure Clear (This : in out Input_Choice); @@ -139,6 +154,11 @@ private pragma Inline (Text_Field); pragma Inline (Button_Menu); + pragma Inline (Has_Item); + pragma Inline (Item); + pragma Inline (Use_Same_Items); + pragma Inline (Clear); + pragma Inline (Has_Changed); pragma Inline (Clear_Changed); pragma Inline (Get_Down_Box); -- cgit