From a466cb205885576087f40df28dd0680d66aebbc9 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 22 May 2017 13:19:42 +1000
Subject: Functions and procedures to Activate/Deactivate Widgets added

---
 src/fltk-widgets.ads | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/fltk-widgets.ads')

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;
-- 
cgit