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

1 files changed, 10 insertions, 6 deletions

diff --git a/src/fltk-widgets-groups-help_views.ads b/src/fltk-widgets-groups-help_views.ads
index 8bea2a6..03bb6c5 100644
--- a/src/fltk-widgets-groups-help_views.ads
+++ b/src/fltk-widgets-groups-help_views.ads
@@ -28,10 +28,8 @@ package FLTK.Widgets.Groups.Help_Views is
         return String;
 
 
-
-
     --  You have no idea how tempting it is to give this
-    --  a more tongue in cheek name
+    --  a more tongue in cheek name.
     Load_Help_Error : exception;
 
 
@@ -95,7 +93,7 @@ package FLTK.Widgets.Groups.Help_Views is
            (This : in Help_View)
         return String;
 
-    --  Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename
+    --  Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename.
     procedure Load
            (This : in out Help_View;
             Name : in     String);
@@ -135,6 +133,10 @@ package FLTK.Widgets.Groups.Help_Views is
            (This : in out Help_View;
             W, H : in     Integer);
 
+    procedure Resize
+           (This       : in out Help_View;
+            X, Y, W, H : in     Integer);
+
     function Get_Text_Color
            (This : in Help_View)
         return Color;
@@ -179,14 +181,16 @@ private
         Hilda : Interfaces.C.Strings.chars_ptr;
     end record;
 
+    overriding procedure Initialize
+           (This : in out Help_View);
+
     overriding procedure Finalize
            (This : in out Help_View);
 
     procedure Extra_Init
            (This       : in out Help_View;
             X, Y, W, H : in     Integer;
-            Text       : in     String)
-    with Inline;
+            Text       : in     String);
 
     procedure Extra_Final
            (This : in out Help_View);