Slightly better / more consistent comments

1 files changed, 30 insertions, 0 deletions

diff --git a/body/fltk-file_choosers.adb b/body/fltk-file_choosers.adb
index 9345eee..a1ef4f7 100644
--- a/body/fltk-file_choosers.adb
+++ b/body/fltk-file_choosers.adb
@@ -31,6 +31,8 @@ package body FLTK.File_Choosers is
     --  Functions From C  --
     ------------------------
 
+    --  User Data  --
+
     function fl_widget_get_user_data
            (W : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -56,6 +58,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Sorting  --
+
     procedure file_chooser_setup_sort_hook;
     pragma Import (C, file_chooser_setup_sort_hook, "file_chooser_setup_sort_hook");
     pragma Inline (file_chooser_setup_sort_hook);
@@ -63,6 +67,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Allocation  --
+
     function new_fl_file_chooser
            (N, P : in Interfaces.C.char_array;
             K    : in Interfaces.C.int;
@@ -79,6 +85,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Buttons  --
+
     function fl_file_chooser_newbutton
            (F : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -100,6 +108,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Static Labels  --
+
     function fl_file_chooser_get_add_favorites_label
         return Interfaces.C.Strings.chars_ptr;
     pragma Import (C, fl_file_chooser_get_add_favorites_label,
@@ -257,6 +267,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Callback and Extra  --
+
     function fl_file_chooser_add_extra
            (F, W : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -271,6 +283,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Settings  --
+
     function fl_file_chooser_get_color
            (F : in Storage.Integer_Address)
         return Interfaces.C.unsigned;
@@ -382,6 +396,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  File Selection  --
+
     function fl_file_chooser_count
            (F : in Storage.Integer_Address)
         return Interfaces.C.int;
@@ -450,6 +466,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Visibility  --
+
     procedure fl_file_chooser_show
            (F : in Storage.Integer_Address);
     pragma Import (C, fl_file_chooser_show, "fl_file_chooser_show");
@@ -673,6 +691,8 @@ package body FLTK.File_Choosers is
     --  Attributes  --
     ------------------
 
+    --  Buttons  --
+
     function New_Button
            (This : in out File_Chooser)
         return FLTK.Widgets.Buttons.Button_Reference is
@@ -703,6 +723,8 @@ package body FLTK.File_Choosers is
     --  Static Attributes  --
     -------------------------
 
+    --  Static Labels  --
+
     function Get_Add_Favorites_Label
         return String is
     begin
@@ -932,6 +954,8 @@ package body FLTK.File_Choosers is
     --  API Subprograms  --
     -----------------------
 
+    --  Callback and Extra  --
+
     procedure Add_Extra
            (This : in out File_Chooser;
             Item : in out Widgets.Widget'Class)
@@ -982,6 +1006,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Settings  --
+
     function Get_Background_Color
            (This : in File_Chooser)
         return Color is
@@ -1146,6 +1172,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  File Selection  --
+
     function Number_Selected
            (This : in File_Chooser)
         return Natural is
@@ -1272,6 +1300,8 @@ package body FLTK.File_Choosers is
 
 
 
+    --  Visibility  --
+
     procedure Show
            (This : in out File_Chooser) is
     begin