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

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

diff --git a/spec/fltk-devices-surface-paged-postscript.ads b/spec/fltk-devices-surface-paged-postscript.ads
index a7ea51c..22e2eca 100644
--- a/spec/fltk-devices-surface-paged-postscript.ads
+++ b/spec/fltk-devices-surface-paged-postscript.ads
@@ -66,6 +66,8 @@ package FLTK.Devices.Surface.Paged.Postscript is
 
 
 
+    --  Static Attributes  --
+
     function Get_File_Chooser_Title
         return String;
 
@@ -75,6 +77,8 @@ package FLTK.Devices.Surface.Paged.Postscript is
 
 
 
+    --  Driver  --
+
     --  Not currently implemented,
     --  will return a Postscript_Graphics_Driver when done.
     function Get_Postscript_Driver
@@ -84,6 +88,8 @@ package FLTK.Devices.Surface.Paged.Postscript is
 
 
 
+    --  Job Control  --
+
     --  Docs say don't use this version.
     procedure Start_Job
            (This  : in out Postscript_File_Device;
@@ -121,6 +127,8 @@ package FLTK.Devices.Surface.Paged.Postscript is
 
 
 
+    --  Spacing and Orientation  --
+
     procedure Get_Margins
            (This                     : in     Postscript_File_Device;
             Left, Top, Right, Bottom :    out Integer);
-- 
cgit