From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 19:28:33 +1300
Subject: Slightly better / more consistent comments

---
 spec/fltk-widgets-inputs.ads | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'spec/fltk-widgets-inputs.ads')

diff --git a/spec/fltk-widgets-inputs.ads b/spec/fltk-widgets-inputs.ads
index 2518fbb..12fcb77 100644
--- a/spec/fltk-widgets-inputs.ads
+++ b/spec/fltk-widgets-inputs.ads
@@ -50,6 +50,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Clipboard  --
+
     procedure Copy
            (This        : in out Input;
             Destination : in     Clipboard_Kind := Cut_Paste_Board);
@@ -101,6 +103,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Readonly, Tabs, Wrap  --
+
     function Is_Readonly
            (This : in Input)
         return Boolean;
@@ -128,6 +132,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Shortcut, Input Position  --
+
     function Get_Kind
            (This : in Input)
         return Input_Kind;
@@ -180,6 +186,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Text Field  --
+
     function Index
            (This  : in Input;
             Place : in Integer)
@@ -221,6 +229,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Input Size  --
+
     function Get_Maximum_Size
            (This : in Input)
         return Natural;
@@ -236,6 +246,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Cursors, Text Settings  --
+
     function Get_Cursor_Color
            (This : in Input)
         return Color;
@@ -271,6 +283,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Dimensions  --
+
     procedure Resize
            (This : in out Input;
             W, H : in     Integer);
@@ -282,6 +296,8 @@ package FLTK.Widgets.Inputs is
 
 
 
+    --  Changing Input Type  --
+
     package Extra is
 
         procedure Set_Kind
-- 
cgit