Several more Widget methods added

1 files changed, 34 insertions, 0 deletions

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index 46e0c4c..f4d0280 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -49,11 +49,40 @@ package FLTK.Widgets is
         return Boolean;
 
 
+    procedure Clear_Active
+           (This : in out Widget);
+
+
+    function Has_Changed
+           (This : in Widget)
+        return Boolean;
+
+
+    procedure Clear_Changed
+           (This : in out Widget);
+
+
     function Parent
            (This : in Widget)
         return access FLTK.Widgets.Groups.Group'Class;
 
 
+    function Contains
+           (This : in Widget;
+            Item : in Widget'Class)
+        return Boolean;
+
+
+    function Get_Alignment
+           (This : in Widget)
+        return Alignment;
+
+
+    procedure Set_Alignment
+           (This      : in out Widget;
+            New_Align : in     Alignment);
+
+
     function Get_Box
            (This : in Widget)
         return Box_Kind;
@@ -104,6 +133,11 @@ package FLTK.Widgets is
             Label : in     Label_Kind);
 
 
+    function Get_Callback
+           (This : in Widget)
+        return Widget_Callback;
+
+
     procedure Set_Callback
            (This : in out Widget;
             Func : in     Widget_Callback);