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

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

diff --git a/spec/fltk-widgets-buttons.ads b/spec/fltk-widgets-buttons.ads
index c5fb917..bff7c81 100644
--- a/spec/fltk-widgets-buttons.ads
+++ b/spec/fltk-widgets-buttons.ads
@@ -40,6 +40,8 @@ package FLTK.Widgets.Buttons is
 
 
 
+    --  State  --
+
     function Is_On
            (This : in Button)
         return Boolean;
@@ -58,6 +60,8 @@ package FLTK.Widgets.Buttons is
 
 
 
+    --  Settings  --
+
     function Get_Down_Box
            (This : in Button)
         return Box_Kind;
@@ -77,6 +81,8 @@ package FLTK.Widgets.Buttons is
 
 
 
+    --  Drawing, Events  --
+
     procedure Draw
            (This : in out Button);
 
@@ -88,6 +94,8 @@ package FLTK.Widgets.Buttons is
 
 
 
+    --  Miscellaneous  --
+
     procedure Simulate_Key_Action
            (This : in out Button);
 
-- 
cgit