From c53eec6b06e8a30a8e718d3955892a245f89a2f6 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 20 Mar 2018 14:21:51 +1100 Subject: Progress updated, Buttons and Menu_Buttons finished --- src/fltk-widgets-menus-menu_buttons.adb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src/fltk-widgets-menus-menu_buttons.adb') 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 -- cgit