1 files changed, 15 insertions, 0 deletions
diff --git a/src/fltk-widgets-menus-menu_buttons.adb b/src/fltk-widgets-menus-menu_buttons.adb
index 8c39887..9b6d1cb 100644
--- a/src/fltk-widgets-menus-menu_buttons.adb
+++ b/src/fltk-widgets-menus-menu_buttons.adb
@@ -42,6 +42,11 @@ package body FLTK.Widgets.Menus.Menu_Buttons is
             T : in Interfaces.C.unsigned);
     pragma Import (C, fl_menu_button_type, "fl_menu_button_type");
 
+    function fl_menu_button_popup
+           (M : in System.Address)
+        return System.Address;
+    pragma Import (C, fl_menu_button_popup, "fl_menu_button_popup");
+
 
 
 
@@ -110,6 +115,16 @@ package body FLTK.Widgets.Menus.Menu_Buttons is
     end Set_Popup_Kind;
 
 
+    function Popup
+           (This : in out Menu_Button)
+        return FLTK.Menu_Items.Menu_Item is
+    begin
+        return Item : FLTK.Menu_Items.Menu_Item do
+            Wrapper (Item).Void_Ptr := fl_menu_button_popup (This.Void_Ptr);
+        end return;
+    end Popup;
+
+
 
 
     procedure Draw