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

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

diff --git a/spec/fltk-devices-surface-paged-printers.ads b/spec/fltk-devices-surface-paged-printers.ads
index c0bc34e..b9c0169 100644
--- a/spec/fltk-devices-surface-paged-printers.ads
+++ b/spec/fltk-devices-surface-paged-printers.ads
@@ -42,6 +42,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Static Attributes  --
+
     function Get_Dialog_Title
         return String;
 
@@ -159,6 +161,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Driver  --
+
     --  Not currently implemented
     function Get_Original_Driver
            (This : in out Printer)
@@ -167,6 +171,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Job Control  --
+
     procedure Start_Job
            (This  : in out Printer;
             Count : in     Natural := 0);
@@ -188,6 +194,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Spacing and Orientation  --
+
     procedure Get_Margins
            (This                     : in     Printer;
             Left, Top, Right, Bottom :    out Integer);
@@ -226,6 +234,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Printing  --
+
     procedure Print_Widget
            (This               : in out Printer;
             Item               : in     FLTK.Widgets.Widget'Class;
@@ -240,6 +250,8 @@ package FLTK.Devices.Surface.Paged.Printers is
 
 
 
+    --  Printer  --
+
     procedure Set_Current
            (This : in out Printer);
 
-- 
cgit