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-devices-graphics.ads | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'spec/fltk-devices-graphics.ads')

diff --git a/spec/fltk-devices-graphics.ads b/spec/fltk-devices-graphics.ads
index f9d1a7c..2a1761f 100644
--- a/spec/fltk-devices-graphics.ads
+++ b/spec/fltk-devices-graphics.ads
@@ -20,6 +20,8 @@ package FLTK.Devices.Graphics is
 
 
 
+    --  Color  --
+
     function Get_Color
            (This : in Graphics_Driver)
         return Color;
@@ -27,6 +29,8 @@ package FLTK.Devices.Graphics is
 
 
 
+    --  Text  --
+
     function Get_Text_Descent
            (This : in Graphics_Driver)
         return Integer;
@@ -61,6 +65,8 @@ package FLTK.Devices.Graphics is
 
 
 
+    --  Images  --
+
     procedure Draw_Scaled_Image
            (This       : in Graphics_Driver;
             Img        : in FLTK.Images.Image'Class;
@@ -73,11 +79,8 @@ private
     type Graphics_Driver is new Device with null record;
 
 
-
-
     pragma Inline (Get_Color);
 
-
     pragma Inline (Get_Text_Descent);
     pragma Inline (Get_Line_Height);
     pragma Inline (Get_Width);
@@ -85,9 +88,9 @@ private
     pragma Inline (Get_Font_Size);
     pragma Inline (Set_Font);
 
-
     pragma Inline (Draw_Scaled_Image);
 
 
 end FLTK.Devices.Graphics;
 
+
-- 
cgit