From ca9cca53a19145216cb0e00462db239e1194696d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 29 Apr 2018 00:39:36 +1000 Subject: FLTK.Event done, a whole bunch more polishing --- src/fltk-widgets-menus-menu_buttons.ads | 12 +++++++++++- 1 file changed, 11 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 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; -- cgit