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.ads | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

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

diff --git a/spec/fltk-widgets.ads b/spec/fltk-widgets.ads
index 06d6ebb..144e1f7 100644
--- a/spec/fltk-widgets.ads
+++ b/spec/fltk-widgets.ads
@@ -92,6 +92,8 @@ package FLTK.Widgets is
 
 
 
+    --  Activity  --
+
     procedure Activate
            (This : in out Widget);
 
@@ -119,6 +121,8 @@ package FLTK.Widgets is
 
 
 
+    --  Changed and Output  --
+
     function Has_Changed
            (This : in Widget)
         return Boolean;
@@ -150,6 +154,8 @@ package FLTK.Widgets is
 
 
 
+    --  Visibility  --
+
     function Is_Visible
            (This : in Widget)
         return Boolean;
@@ -177,6 +183,8 @@ package FLTK.Widgets is
 
 
 
+    --  Focus  --
+
     function Has_Visible_Focus
            (This : in Widget)
         return Boolean;
@@ -202,6 +210,8 @@ package FLTK.Widgets is
 
 
 
+    --  Colors  --
+
     function Get_Background_Color
            (This : in Widget)
         return Color;
@@ -225,6 +235,8 @@ package FLTK.Widgets is
 
 
 
+    --  Relatives  --
+
     function Parent
            (This : in Widget)
         return access FLTK.Widgets.Groups.Group'Class;
@@ -255,6 +267,8 @@ package FLTK.Widgets is
 
 
 
+    --  Alignment, Box, Tooltip  --
+
     function Get_Alignment
            (This : in Widget)
         return Alignment;
@@ -282,6 +296,8 @@ package FLTK.Widgets is
 
 
 
+    --  Labels  --
+
     function Get_Label
            (This : in Widget)
         return String;
@@ -334,6 +350,8 @@ package FLTK.Widgets is
 
 
 
+    --  Callbacks  --
+
     function Get_Callback
            (This : in Widget)
         return Widget_Callback;
@@ -363,6 +381,8 @@ package FLTK.Widgets is
 
 
 
+    --  Dimensions  --
+
     function Get_X
            (This : in Widget)
         return Integer;
@@ -394,6 +414,8 @@ package FLTK.Widgets is
 
 
 
+    --  Images  --
+
     function Get_Image
            (This : in Widget)
         return access FLTK.Images.Image'Class;
@@ -413,6 +435,8 @@ package FLTK.Widgets is
 
 
 
+    --  Damage, Drawing, Events  --
+
     function Is_Damaged
            (This : in Widget)
         return Boolean;
@@ -488,6 +512,8 @@ package FLTK.Widgets is
 
 
 
+    --  Miscellaneous  --
+
     --  Only relevant to MacOS
     function Uses_Accents_Menu
            (This : in Widget)
-- 
cgit