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.ads3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads
index 86e29bb..fe1092a 100644
--- a/src/fltk-widgets-menus-menu_buttons.ads
+++ b/src/fltk-widgets-menus-menu_buttons.ads
@@ -5,6 +5,9 @@ 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
+ with Implicit_Dereference => Data;
+
-- signifies which mouse buttons cause the menu to appear
type Popup_Buttons is (No_Popup, Popup1, Popup2, Popup12, Popup3, Popup13, Popup23, Popup123);