Buttons and accessors

1 files changed, 19 insertions, 1 deletions

diff --git a/fltk-widget-button.ads b/fltk-widget-button.ads
index 8212fe3..14762bf 100644
--- a/fltk-widget-button.ads
+++ b/fltk-widget-button.ads
@@ -4,9 +4,27 @@ package FLTK.Widget.Button is
 
 
     type Button_Type is new Widget_Type with private;
+    type State is (On, Off);
 
 
-    function Create (X, Y, W, H : Integer; Label : String) return Button_Type;
+    function Create
+           (X, Y, W, H : Integer;
+            Label      : String)
+        return Button_Type;
+
+
+    function Get_State
+           (B : in Button_Type'Class)
+        return State;
+
+
+    procedure Set_State
+           (B : in Button_Type'Class;
+            S : in State);
+
+
+    procedure Set_Only
+           (B : in Button_Type'Class);
 
 
 private