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

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

diff --git a/spec/fltk-widgets-valuators-sliders.ads b/spec/fltk-widgets-valuators-sliders.ads
index 786a9f5..9f4b7db 100644
--- a/spec/fltk-widgets-valuators-sliders.ads
+++ b/spec/fltk-widgets-valuators-sliders.ads
@@ -56,6 +56,8 @@ package FLTK.Widgets.Valuators.Sliders is
 
 
 
+    --  Settings  --
+
     procedure Set_Bounds
            (This     : in out Slider;
             Min, Max : in     Long_Float);
@@ -86,6 +88,8 @@ package FLTK.Widgets.Valuators.Sliders is
 
 
 
+    --  Drawing, Events  --
+
     procedure Draw
            (This : in out Slider);
 
@@ -107,6 +111,8 @@ package FLTK.Widgets.Valuators.Sliders is
 
 
 
+    --  Slider Type  --
+
     function Get_Kind
            (This : in Slider)
         return Slider_Kind;
-- 
cgit