Slightly better / more consistent comments

1 files changed, 14 insertions, 0 deletions

diff --git a/spec/fltk-file_choosers.ads b/spec/fltk-file_choosers.ads
index 927ae04..3445d4f 100644
--- a/spec/fltk-file_choosers.ads
+++ b/spec/fltk-file_choosers.ads
@@ -47,12 +47,16 @@ package FLTK.File_Choosers is
 
 
 
+    --  Sorting  --
+
     Sort_Method : not null FLTK.Filenames.Compare_Function :=
         FLTK.Filenames.Numeric_Sort'Access;
 
 
 
 
+    --  Buttons  --
+
     function New_Button
            (This : in out File_Chooser)
         return FLTK.Widgets.Buttons.Button_Reference;
@@ -68,6 +72,8 @@ package FLTK.File_Choosers is
 
 
 
+    --  Static Labels  --
+
     function Get_Add_Favorites_Label
         return String;
 
@@ -155,6 +161,8 @@ package FLTK.File_Choosers is
 
 
 
+    --  Callback and Extra  --
+
     procedure Add_Extra
            (This : in out File_Chooser;
             Item : in out Widgets.Widget'Class);
@@ -174,6 +182,8 @@ package FLTK.File_Choosers is
 
 
 
+    --  Settings  --
+
     function Get_Background_Color
            (This : in File_Chooser)
         return Color;
@@ -249,6 +259,8 @@ package FLTK.File_Choosers is
 
 
 
+    --  File Selection  --
+
     function Number_Selected
            (This : in File_Chooser)
         return Natural;
@@ -296,6 +308,8 @@ package FLTK.File_Choosers is
 
 
 
+    --  Visibility  --
+
     procedure Show
            (This : in out File_Chooser);