Slightly better / more consistent comments

1 files changed, 14 insertions, 0 deletions

diff --git a/spec/fltk-widgets-groups.ads b/spec/fltk-widgets-groups.ads
index 33c0cb3..9532084 100644
--- a/spec/fltk-widgets-groups.ads
+++ b/spec/fltk-widgets-groups.ads
@@ -53,6 +53,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Contents Modification  --
+
     procedure Add
            (This : in out Group;
             Item : in out Widget'Class);
@@ -81,6 +83,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Contents Query  --
+
     function Has_Child
            (This  : in Group;
             Place : in Index)
@@ -113,6 +117,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Iteration  --
+
     package Group_Iterators is
         new Ada.Iterator_Interfaces (Cursor, Has_Child);
 
@@ -123,6 +129,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Clipping  --
+
     function Get_Clip_Mode
            (This : in Group)
         return Clip_Mode;
@@ -134,6 +142,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Dimensions  --
+
     procedure Add_Resizable
            (This : in out Group;
             Item : in out Widget'Class);
@@ -156,6 +166,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Current  --
+
     function Get_Current
         return access Group'Class;
 
@@ -171,6 +183,8 @@ package FLTK.Widgets.Groups is
 
 
 
+    --  Drawing, Events  --
+
     procedure Draw
            (This : in out Group);