Slightly better / more consistent comments

1 files changed, 26 insertions, 4 deletions

diff --git a/spec/fltk-widgets-groups-text_displays-text_editors.ads b/spec/fltk-widgets-groups-text_displays-text_editors.ads
index e6355c7..641395b 100644
--- a/spec/fltk-widgets-groups-text_displays-text_editors.ads
+++ b/spec/fltk-widgets-groups-text_displays-text_editors.ads
@@ -64,6 +64,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Default Key Function  --
+
     procedure KF_Default
            (This : in out Text_Editor'Class;
             Key  : in     Key_Combo);
@@ -71,6 +73,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Operation Key Functions  --
+
     procedure KF_Undo
            (This : in out Text_Editor'Class);
 
@@ -92,6 +96,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    -- Special Key Functions  --
+
     procedure KF_Backspace
            (This : in out Text_Editor'Class);
 
@@ -110,6 +116,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Movement Key Functions  --
+
     procedure KF_Home
            (This : in out Text_Editor'Class);
 
@@ -137,6 +145,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Shift Key Functions  --
+
     procedure KF_Shift_Home
            (This : in out Text_Editor'Class);
 
@@ -164,6 +174,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Control Key Functions  --
+
     procedure KF_Ctrl_Home
            (This : in out Text_Editor'Class);
 
@@ -191,6 +203,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Control Shift Key Functions  --
+
     procedure KF_Ctrl_Shift_Home
            (This : in out Text_Editor'Class);
 
@@ -218,6 +232,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Meta Key Functions  --
+
     procedure KF_Meta_Home
            (This : in out Text_Editor'Class);
 
@@ -245,6 +261,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Meta Shift Key Functions  --
+
     procedure KF_Meta_Shift_Home
            (This : in out Text_Editor'Class);
 
@@ -272,6 +290,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Default / Global Key Bindings  --
+
     Default_Key_Bindings : constant Key_Binding_Array :=
        ((Mod_None + Escape_Key,       KF_Ignore'Access),
         (Mod_None + Enter_Key,        KF_Enter'Access),
@@ -349,6 +369,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Key Binding Modification  --
+
     procedure Add_Key_Binding
            (This : in out Text_Editor;
             Key  : in     Key_Combo;
@@ -397,6 +419,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Settings  --
+
     function Get_Insert_Mode
            (This : in Text_Editor)
         return Insert_Mode;
@@ -405,9 +429,6 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
            (This : in out Text_Editor;
             To   : in     Insert_Mode);
 
-
-
-
     function Get_Tab_Mode
            (This : in Text_Editor)
         return Tab_Navigation;
@@ -419,6 +440,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is
 
 
 
+    --  Events  --
+
     function Handle
            (This  : in out Text_Editor;
             Event : in     Event_Kind)
@@ -541,7 +564,6 @@ private
 
     pragma Inline (Get_Insert_Mode);
     pragma Inline (Set_Insert_Mode);
-
     pragma Inline (Get_Tab_Mode);
     pragma Inline (Set_Tab_Mode);