summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-menus-menu_buttons.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-menus-menu_buttons.ads')
-rw-r--r--src/fltk-widgets-menus-menu_buttons.ads7
1 files changed, 6 insertions, 1 deletions
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);