1 files changed, 19 insertions, 0 deletions
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);