From ba1719013e5bab82a2accb4aadfd8451c3ebc931 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 16 Jan 2025 12:17:46 +1300 Subject: Fixed bug in Fl_Choice binding, filled small hole in Fl_Menu_Button binding --- src/fltk-widgets-menus-choices.ads | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'src/fltk-widgets-menus-choices.ads') diff --git a/src/fltk-widgets-menus-choices.ads b/src/fltk-widgets-menus-choices.ads index 86ddd60..6d12fc9 100644 --- a/src/fltk-widgets-menus-choices.ads +++ b/src/fltk-widgets-menus-choices.ads @@ -27,21 +27,27 @@ package FLTK.Widgets.Menus.Choices is - function Get_Chosen - (This : in Choice) - return FLTK.Menu_Items.Menu_Item_Reference; - function Chosen_Index (This : in Choice) return Extended_Index; + procedure Set_Chosen + (This : in out Choice; + Item : in FLTK.Menu_Items.Menu_Item); + + function Set_Chosen + (This : in out Choice; + Item : in FLTK.Menu_Items.Menu_Item) + return Boolean; + procedure Set_Chosen (This : in out Choice; Place : in Index); - procedure Set_Chosen - (This : in out Choice; - Item : in FLTK.Menu_Items.Menu_Item); + function Set_Chosen + (This : in out Choice; + Place : in Index) + return Boolean; @@ -77,7 +83,6 @@ private with Inline; - pragma Inline (Chosen); pragma Inline (Chosen_Index); pragma Inline (Set_Chosen); -- cgit