Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there

1 files changed, 10 insertions, 0 deletions

diff --git a/src/fltk-widgets-boxes.ads b/src/fltk-widgets-boxes.ads
index f710011..b0a03dc 100644
--- a/src/fltk-widgets-boxes.ads
+++ b/src/fltk-widgets-boxes.ads
@@ -22,6 +22,12 @@ package FLTK.Widgets.Boxes is
                 Text       : in String := "")
             return Box;
 
+        function Create
+               (Kind       : in Box_Kind;
+                X, Y, W, H : in Integer;
+                Text       : in String := "")
+            return Box;
+
     end Forge;
 
 
@@ -41,6 +47,9 @@ private
 
     type Box is new Widget with null record;
 
+    overriding procedure Initialize
+           (This : in out Box);
+
     overriding procedure Finalize
            (This : in out Box);
 
@@ -61,3 +70,4 @@ private
 
 end FLTK.Widgets.Boxes;
 
+