diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-04-29 00:39:36 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-04-29 00:39:36 +1000 |
commit | ca9cca53a19145216cb0e00462db239e1194696d (patch) | |
tree | f76a7688667c12bfe8ccfb80343fe7a48aa71624 /src/fltk-widgets-menus-menu_buttons.ads | |
parent | ae3aaf71338960e85d27c88d7004497409c6a6d9 (diff) |
FLTK.Event done, a whole bunch more polishing
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; |