Functions and procedures to Activate/Deactivate Widgets added

1 files changed, 18 insertions, 0 deletions

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index dce79b5..36598bf 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -32,6 +32,24 @@ package FLTK.Widgets is
         return Widget;
 
 
+    procedure Activate
+           (This : in out Widget);
+
+
+    procedure Deactivate
+           (This : in out Widget);
+
+
+    function Is_Active
+           (This : in Widget)
+        return Boolean;
+
+
+    function Is_Tree_Active
+           (This : in Widget)
+        return Boolean;
+
+
     function Parent
            (This : in Widget)
         return access FLTK.Widgets.Groups.Group'Class;