From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 19:28:33 +1300
Subject: Slightly better / more consistent comments

---
 spec/fltk-widgets-groups.ads | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'spec/fltk-widgets-groups.ads')

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);
 
-- 
cgit