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-surface-image.ads | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/spec/fltk-devices-surface-image.ads b/spec/fltk-devices-surface-image.ads
index 961a9b2..7711771 100644
--- a/spec/fltk-devices-surface-image.ads
+++ b/spec/fltk-devices-surface-image.ads
@@ -34,6 +34,8 @@ package FLTK.Devices.Surface.Image is
 
 
 
+    --  Resolution  --
+
     function Is_Highres
            (This : in Image_Surface)
         return Boolean;
@@ -41,6 +43,8 @@ package FLTK.Devices.Surface.Image is
 
 
 
+    --  Drawing  --
+
     procedure Draw_Widget
            (This               : in out Image_Surface;
             Item               : in     FLTK.Widgets.Widget'Class;
@@ -54,6 +58,8 @@ package FLTK.Devices.Surface.Image is
 
 
 
+    --  Images  --
+
     function Get_Image
            (This : in Image_Surface)
         return FLTK.Images.RGB.RGB_Image;
@@ -65,6 +71,8 @@ package FLTK.Devices.Surface.Image is
 
 
 
+    --  Surfaces  --
+
     procedure Set_Current
            (This : in out Image_Surface);
 
-- 
cgit