From fb37523537cdb69a31dede401a604981ce8b7b9d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 17 Jun 2017 11:28:39 +1000 Subject: Updated coding style, added progress log --- src/fltk-widgets-menus-menu_buttons.ads | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (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 174019a..47b1e1c 100644 --- a/src/fltk-widgets-menus-menu_buttons.ads +++ b/src/fltk-widgets-menus-menu_buttons.ads @@ -5,26 +5,30 @@ package FLTK.Widgets.Menus.Menu_Buttons is type Menu_Button is new Menu with private; - -- signifies which mouse buttons cause the menu to appear type Popup_Buttons is (No_Popup, Popup1, Popup2, Popup12, Popup3, Popup13, Popup23, Popup123); + + function Create (X, Y, W, H : in Integer; Text : in String) return Menu_Button; + + procedure Set_Popup_Kind (This : in out Menu_Button; Pop : in Popup_Buttons); + + procedure Draw (This : in out Menu_Button); - function Handle (This : in out Menu_Button; Event : in Event_Kind) @@ -36,7 +40,6 @@ private type Menu_Button is new Menu with null record; - overriding procedure Finalize (This : in out Menu_Button); -- cgit