Filled hole in Fl_Input_Choice binding

2 files changed, 46 insertions, 0 deletions

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
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);