diff options
Diffstat (limited to 'src/fltk-widgets-groups-input_choices.adb')
| -rw-r--r-- | src/fltk-widgets-groups-input_choices.adb | 26 |
1 files changed, 26 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 |