Slightly better / more consistent comments

1 files changed, 11 insertions, 5 deletions

diff --git a/spec/fltk-help_dialogs.ads b/spec/fltk-help_dialogs.ads
index 655e357..fa0b94b 100644
--- a/spec/fltk-help_dialogs.ads
+++ b/spec/fltk-help_dialogs.ads
@@ -24,15 +24,13 @@ package FLTK.Help_Dialogs is
                (X, Y, W, H : in Integer)
             return Help_Dialog;
 
-    private
-
-        pragma Inline (Create);
-
     end Forge;
 
 
 
 
+    --  Visibility  --
+
     procedure Show
            (This : in out Help_Dialog);
 
@@ -49,6 +47,8 @@ package FLTK.Help_Dialogs is
 
 
 
+    --  Topline  --
+
     procedure Set_Topline_Number
            (This : in out Help_Dialog;
             Line : in     Positive);
@@ -60,7 +60,9 @@ package FLTK.Help_Dialogs is
 
 
 
-    --  Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename
+    --  Content  --
+
+    --  Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename.
     --  See Load procedure in FLTK.Widgets.Groups.Help_Views
     procedure Load
            (This : in out Help_Dialog;
@@ -77,6 +79,8 @@ package FLTK.Help_Dialogs is
 
 
 
+    --  Settings  --
+
     function Get_Text_Size
            (This : in Help_Dialog)
         return Font_Size;
@@ -88,6 +92,8 @@ package FLTK.Help_Dialogs is
 
 
 
+    --  Dimensions  --
+
     function Get_X
            (This : in Help_Dialog)
         return Integer;