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-screen.ads | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'spec/fltk-screen.ads')

diff --git a/spec/fltk-screen.ads b/spec/fltk-screen.ads
index be28134..b7d5521 100644
--- a/spec/fltk-screen.ads
+++ b/spec/fltk-screen.ads
@@ -7,6 +7,8 @@
 package FLTK.Screen is
 
 
+    --  Basic Dimensions  --
+
     function Get_X
         return Integer;
 
@@ -22,6 +24,8 @@ package FLTK.Screen is
 
 
 
+    --  Pixel Density  --
+
     function Count
         return Integer;
 
@@ -33,6 +37,8 @@ package FLTK.Screen is
 
 
 
+    --  Position Lookup  --
+
     function Containing
            (X, Y : in Integer)
         return Integer;
@@ -44,6 +50,8 @@ package FLTK.Screen is
 
 
 
+    --  Bounding Boxes  --
+
     procedure Work_Area
            (X, Y, W, H   :    out Integer;
             Pos_X, Pos_Y : in     Integer);
@@ -55,9 +63,6 @@ package FLTK.Screen is
     procedure Work_Area
            (X, Y, W, H : out Integer);
 
-
-
-
     procedure Bounding_Rect
            (X, Y, W, H   :    out Integer;
             Pos_X, Pos_Y : in     Integer);
@@ -82,11 +87,9 @@ private
     pragma Inline (Get_W);
     pragma Inline (Get_H);
 
-
     pragma Inline (Count);
     pragma Inline (DPI);
 
-
     pragma Inline (Containing);
     pragma Inline (Work_Area);
     pragma Inline (Bounding_Rect);
@@ -94,3 +97,4 @@ private
 
 end FLTK.Screen;
 
+
-- 
cgit