From c53eec6b06e8a30a8e718d3955892a245f89a2f6 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 20 Mar 2018 14:21:51 +1100 Subject: Progress updated, Buttons and Menu_Buttons finished --- src/fltk-widgets-buttons.ads | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'src/fltk-widgets-buttons.ads') diff --git a/src/fltk-widgets-buttons.ads b/src/fltk-widgets-buttons.ads index 55d75c6..f740b32 100644 --- a/src/fltk-widgets-buttons.ads +++ b/src/fltk-widgets-buttons.ads @@ -36,6 +36,25 @@ package FLTK.Widgets.Buttons is + function Get_Down_Box + (This : in Button) + return Box_Kind; + + procedure Set_Down_Box + (This : in out Button; + To : in Box_Kind); + + function Get_Shortcut + (This : in Button) + return Shortcut_Key; + + procedure Set_Shortcut + (This : in out Button; + Key : in Shortcut_Key); + + + + procedure Draw (This : in out Button); -- cgit