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

---
 body/fltk-devices-surface-paged.adb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'body/fltk-devices-surface-paged.adb')

diff --git a/body/fltk-devices-surface-paged.adb b/body/fltk-devices-surface-paged.adb
index e13338f..950d3ce 100644
--- a/body/fltk-devices-surface-paged.adb
+++ b/body/fltk-devices-surface-paged.adb
@@ -54,6 +54,8 @@ package body FLTK.Devices.Surface.Paged is
     --  Functions From C  --
     ------------------------
 
+    --  Static Attributes  --
+
     procedure fl_paged_device_get_page_format
            (Index  : in     Interfaces.C.int;
             Name   :    out Interfaces.C.Strings.chars_ptr;
@@ -65,6 +67,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Allocation  --
+
     function new_fl_paged_device
         return Storage.Integer_Address;
     pragma Import (C, new_fl_paged_device, "new_fl_paged_device");
@@ -78,6 +82,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Job Control  --
+
     function fl_paged_device_start_job
            (D : in Storage.Integer_Address;
             C : in Interfaces.C.int)
@@ -113,6 +119,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Spacing and Orientation  --
+
     procedure fl_paged_device_margins
            (D          : in     Storage.Integer_Address;
             L, T, R, B :    out Interfaces.C.int);
@@ -164,6 +172,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Printing  --
+
     procedure fl_paged_device_print_widget
            (D, I   : in Storage.Integer_Address;
             DX, DY : in Interfaces.C.int);
@@ -347,6 +357,8 @@ package body FLTK.Devices.Surface.Paged is
     --  API Subprograms  --
     -----------------------
 
+    --  Job Control  --
+
     procedure Start_Job
            (This  : in out Paged_Device;
             Count : in     Natural := 0) is
@@ -402,6 +414,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Spacing and Orientation  --
+
     procedure Get_Margins
            (This                     : in     Paged_Device;
             Left, Top, Right, Bottom :    out Integer) is
@@ -493,6 +507,8 @@ package body FLTK.Devices.Surface.Paged is
 
 
 
+    --  Printing  --
+
     procedure Print_Widget
            (This               : in out Paged_Device;
             Item               : in     FLTK.Widgets.Widget'Class;
-- 
cgit