Slightly better / more consistent comments

1 files changed, 20 insertions, 0 deletions

diff --git a/spec/fltk-widgets-menus.ads b/spec/fltk-widgets-menus.ads
index bce29dd..d24ebbe 100644
--- a/spec/fltk-widgets-menus.ads
+++ b/spec/fltk-widgets-menus.ads
@@ -68,6 +68,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Menu Items  --
+
     procedure Add
            (This : in out Menu;
             Text : in     String);
@@ -163,6 +165,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Item Query  --
+
     function Has_Item
            (This  : in Menu;
             Place : in Index)
@@ -224,6 +228,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Iteration  --
+
     package Menu_Iterators is
         new Ada.Iterator_Interfaces (Cursor, Has_Item);
 
@@ -234,6 +240,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Selection  --
+
     function Chosen
            (This : in Menu)
         return FLTK.Menu_Items.Menu_Item_Reference;
@@ -267,6 +275,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Label, Shortcut, Flags  --
+
     procedure Set_Only
            (This : in out Menu;
             Item : in out FLTK.Menu_Items.Menu_Item);
@@ -299,6 +309,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Text Settings  --
+
     function Get_Text_Color
            (This : in Menu)
         return Color;
@@ -326,6 +338,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Miscellaneous  --
+
     function Get_Down_Box
            (This : in Menu)
         return Box_Kind;
@@ -345,6 +359,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Menu Item Methods  --
+
     function Popup
            (This    : in Menu;
             X, Y    : in Integer;
@@ -380,6 +396,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Dimensions  --
+
     procedure Resize
            (This : in out Menu;
             W, H : in     Integer);
@@ -387,6 +405,8 @@ package FLTK.Widgets.Menus is
 
 
 
+    --  Drawing  --
+
     procedure Draw_Item
            (This       : in out Menu;
             Item       : in     Index;