Slightly better / more consistent comments

1 files changed, 67 insertions, 6 deletions

diff --git a/body/fltk-text_buffers.adb b/body/fltk-text_buffers.adb
index 1afa2a7..f113e22 100644
--- a/body/fltk-text_buffers.adb
+++ b/body/fltk-text_buffers.adb
@@ -24,6 +24,12 @@ use type
 package body FLTK.Text_Buffers is
 
 
+    ------------------------
+    --  Functions From C  --
+    ------------------------
+
+    --  Errors  --
+
     function strerror
            (Errnum : in Interfaces.C.int)
         return Interfaces.C.Strings.chars_ptr;
@@ -32,6 +38,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Allocation  --
+
     function new_fl_text_buffer
            (RS, PGS : in Interfaces.C.int)
         return Storage.Integer_Address;
@@ -46,6 +54,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Callbacks  --
+
     procedure fl_text_buffer_add_modify_callback
            (TB, CB, UD : in Storage.Integer_Address);
     pragma Import (C, fl_text_buffer_add_modify_callback,
@@ -73,6 +83,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Files  --
+
     function fl_text_buffer_loadfile
            (TB : in Storage.Integer_Address;
             N  : in Interfaces.C.char_array;
@@ -117,6 +129,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Modification  --
+
     procedure fl_text_buffer_insert
            (TB : in Storage.Integer_Address;
             P  : in Interfaces.C.int;
@@ -193,6 +207,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Measurement  --
+
     function fl_text_buffer_count_displayed_characters
            (TB   : in Storage.Integer_Address;
             S, F : in Interfaces.C.int)
@@ -229,6 +245,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Selection  --
+
     function fl_text_buffer_selection_position
            (TB   : in     Storage.Integer_Address;
             S, E :    out Interfaces.C.int)
@@ -318,6 +336,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Highlighting  --
+
     procedure fl_text_buffer_highlight
            (TB   : in Storage.Integer_Address;
             F, T : in Interfaces.C.int);
@@ -338,6 +358,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Search  --
+
     function fl_text_buffer_findchar_forward
            (TB : in     Storage.Integer_Address;
             SP : in     Interfaces.C.int;
@@ -379,6 +401,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Navigation  --
+
     function fl_text_buffer_word_start
            (TB : in Storage.Integer_Address;
             P  : in Interfaces.C.int)
@@ -439,6 +463,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Miscellaneous  --
+
     procedure fl_text_buffer_canundo
            (TB : in Storage.Integer_Address;
             F  : in Interfaces.C.char);
@@ -461,6 +487,10 @@ package body FLTK.Text_Buffers is
 
 
 
+    ----------------------
+    --  Callback Hooks  --
+    ----------------------
+
     procedure Modify_Callback_Hook
            (Pos                         : in Interfaces.C.int;
             Inserted, Deleted, Restyled : in Interfaces.C.int;
@@ -520,6 +550,10 @@ package body FLTK.Text_Buffers is
 
 
 
+    -------------------
+    --  Destructors  --
+    -------------------
+
     procedure Finalize
            (This : in out Text_Buffer) is
     begin
@@ -532,6 +566,10 @@ package body FLTK.Text_Buffers is
 
 
 
+    --------------------
+    --  Constructors  --
+    --------------------
+
     package body Forge is
 
         function Create
@@ -559,6 +597,12 @@ package body FLTK.Text_Buffers is
 
 
 
+    -----------------------
+    --  API Subprograms  --
+    -----------------------
+
+    --  Callbacks  --
+
     procedure Add_Modify_Callback
            (This : in out Text_Buffer;
             Func : in     Modify_Callback) is
@@ -631,6 +675,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Files  --
+
     procedure Load_File
            (This   : in out Text_Buffer;
             Name   : in     String;
@@ -718,6 +764,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Modification  --
+
     procedure Insert_Text
            (This  : in out Text_Buffer;
             Place : in     Position;
@@ -860,6 +908,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Measurement  --
+
     function Count_Displayed_Characters
            (This          : in Text_Buffer;
             Start, Finish : in Position)
@@ -910,6 +960,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Selection  --
+
     function Get_Selection
            (This          : in     Text_Buffer;
             Start, Finish :    out Position)
@@ -1068,6 +1120,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Highlighting  --
+
     procedure Get_Highlight
            (This          : in     Text_Buffer;
             Start, Finish :    out Position) is
@@ -1119,6 +1173,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Search  --
+
     function Findchar_Forward
            (This     : in     Text_Buffer;
             Start_At : in     Position;
@@ -1217,6 +1273,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Navigation  --
+
     function Word_Start
            (This  : in Text_Buffer;
             Place : in Position)
@@ -1282,9 +1340,9 @@ package body FLTK.Text_Buffers is
         return Position is
     begin
         return Natural (fl_text_buffer_skip_lines
-               (This.Void_Ptr,
-                Interfaces.C.int (Start),
-                Interfaces.C.int (Lines)));
+           (This.Void_Ptr,
+            Interfaces.C.int (Start),
+            Interfaces.C.int (Lines)));
     end Skip_Lines;
 
 
@@ -1295,9 +1353,9 @@ package body FLTK.Text_Buffers is
         return Position is
     begin
         return Natural (fl_text_buffer_rewind_lines
-               (This.Void_Ptr,
-                Interfaces.C.int (Start),
-                Interfaces.C.int (Lines)));
+           (This.Void_Ptr,
+            Interfaces.C.int (Start),
+            Interfaces.C.int (Lines)));
     end Rewind_Lines;
 
 
@@ -1316,6 +1374,8 @@ package body FLTK.Text_Buffers is
 
 
 
+    --  Miscellaneous  --
+
     procedure Can_Undo
            (This : in out Text_Buffer;
             Flag : in     Boolean) is
@@ -1350,3 +1410,4 @@ package body FLTK.Text_Buffers is
 
 end FLTK.Text_Buffers;
 
+