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-paged.ads | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/spec/fltk-devices-surface-paged.ads b/spec/fltk-devices-surface-paged.ads
index b445c62..cb820e6 100644
--- a/spec/fltk-devices-surface-paged.ads
+++ b/spec/fltk-devices-surface-paged.ads
@@ -75,6 +75,8 @@ package FLTK.Devices.Surface.Paged is
 
 
 
+    --  Job Control  --
+
     procedure Start_Job
            (This  : in out Paged_Device;
             Count : in     Natural := 0);
@@ -96,6 +98,8 @@ package FLTK.Devices.Surface.Paged is
 
 
 
+    --  Spacing and Orientation  --
+
     procedure Get_Margins
            (This                     : in     Paged_Device;
             Left, Top, Right, Bottom :    out Integer);
@@ -134,6 +138,8 @@ package FLTK.Devices.Surface.Paged is
 
 
 
+    --  Printing  --
+
     procedure Print_Widget
            (This               : in out Paged_Device;
             Item               : in     FLTK.Widgets.Widget'Class;
-- 
cgit