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.ads | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/fltk-widgets-menus.ads') diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 5285414..75670b8 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -236,21 +236,21 @@ package FLTK.Widgets.Menus is return Extended_Index; procedure Set_Chosen - (This : in out Menu; - Place : in Index); + (This : in out Menu; + Item : in FLTK.Menu_Items.Menu_Item); function Set_Chosen - (This : in out Menu; - Place : in Index) + (This : in out Menu; + Item : in FLTK.Menu_Items.Menu_Item) return Boolean; procedure Set_Chosen - (This : in out Menu; - Item : in FLTK.Menu_Items.Menu_Item); + (This : in out Menu; + Place : in Index); function Set_Chosen - (This : in out Menu; - Item : in FLTK.Menu_Items.Menu_Item) + (This : in out Menu; + Place : in Index) return Boolean; -- cgit