Slightly better / more consistent comments

1 files changed, 8 insertions, 0 deletions

diff --git a/spec/fltk-widgets-valuators.ads b/spec/fltk-widgets-valuators.ads
index 1e60f4b..e8180d6 100644
--- a/spec/fltk-widgets-valuators.ads
+++ b/spec/fltk-widgets-valuators.ads
@@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators is
 
 
 
+    --  Formatting  --
+
     --  You may override this to change the formatting of the Valuator
     function Format
            (This : in Valuator)
@@ -46,6 +48,8 @@ package FLTK.Widgets.Valuators is
 
 
 
+    --  Calculation  --
+
     function Clamp
            (This  : in Valuator;
             Input : in Long_Float)
@@ -65,6 +69,8 @@ package FLTK.Widgets.Valuators is
 
 
 
+    --  Settings, Value  --
+
     function Get_Minimum
            (This : in Valuator)
         return Long_Float;
@@ -121,6 +127,8 @@ package FLTK.Widgets.Valuators is
 
 
 
+    --  Drawing  --
+
     procedure Value_Damage
            (This : in out Valuator);