From ba1719013e5bab82a2accb4aadfd8451c3ebc931 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
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-menu_buttons.ads | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/fltk-widgets-menus-menu_buttons.ads')

diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads
index 4ba09a3..6d866a0 100644
--- a/src/fltk-widgets-menus-menu_buttons.ads
+++ b/src/fltk-widgets-menus-menu_buttons.ads
@@ -35,9 +35,13 @@ package FLTK.Widgets.Menus.Menu_Buttons is
 
 
 
+    function Get_Popup_Kind
+           (This : in Menu_Button)
+        return Popup_Buttons;
+
     procedure Set_Popup_Kind
            (This : in out Menu_Button;
-            Pop  : in     Popup_Buttons);
+            Kind : in     Popup_Buttons);
 
     function Popup
            (This : in out Menu_Button)
@@ -77,6 +81,7 @@ private
     with Inline;
 
 
+    pragma Inline (Get_Popup_Kind);
     pragma Inline (Set_Popup_Kind);
     pragma Inline (Popup);
 
-- 
cgit