diff options
Diffstat (limited to 'src/fltk-widgets-menus-menu_buttons.ads')
-rw-r--r-- | src/fltk-widgets-menus-menu_buttons.ads | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads index f7bba64..dd8fa71 100644 --- a/src/fltk-widgets-menus-menu_buttons.ads +++ b/src/fltk-widgets-menus-menu_buttons.ads @@ -10,7 +10,7 @@ package FLTK.Widgets.Menus.Menu_Buttons is type Menu_Button is new Menu with private; - type Menu_Button_Cursor (Data : access Menu_Button'Class) is limited null record + type Menu_Button_Reference (Data : access Menu_Button'Class) is limited null record with Implicit_Dereference => Data; -- signifies which mouse buttons cause the menu to appear @@ -60,5 +60,15 @@ private (This : in out Menu_Button); + + + pragma Inline (Set_Popup_Kind); + pragma Inline (Popup); + + + pragma Inline (Draw); + pragma Inline (Handle); + + end FLTK.Widgets.Menus.Menu_Buttons; |