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-images-pixmaps.adb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'body/fltk-images-pixmaps.adb')

diff --git a/body/fltk-images-pixmaps.adb b/body/fltk-images-pixmaps.adb
index b5d47a7..80d6c03 100644
--- a/body/fltk-images-pixmaps.adb
+++ b/body/fltk-images-pixmaps.adb
@@ -17,6 +17,8 @@ package body FLTK.Images.Pixmaps is
     --  Functions From C  --
     ------------------------
 
+    --  Allocation  --
+
     function new_fl_pixmap
            (D : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -28,6 +30,11 @@ package body FLTK.Images.Pixmaps is
     pragma Import (C, free_fl_pixmap, "free_fl_pixmap");
     pragma Inline (free_fl_pixmap);
 
+
+
+
+    --  Copying  --
+
     function fl_pixmap_copy
            (I    : in Storage.Integer_Address;
             W, H : in Interfaces.C.int)
@@ -44,6 +51,8 @@ package body FLTK.Images.Pixmaps is
 
 
 
+    --  Colors  --
+
     procedure fl_pixmap_color_average
            (I : in Storage.Integer_Address;
             C : in Interfaces.C.int;
@@ -59,6 +68,8 @@ package body FLTK.Images.Pixmaps is
 
 
 
+    --  Activity  --
+
     procedure fl_pixmap_uncache
            (I : in Storage.Integer_Address);
     pragma Import (C, fl_pixmap_uncache, "fl_pixmap_uncache");
@@ -67,6 +78,8 @@ package body FLTK.Images.Pixmaps is
 
 
 
+    --  Drawing  --
+
     procedure fl_pixmap_draw2
            (I    : in Storage.Integer_Address;
             X, Y : in Interfaces.C.int);
@@ -220,3 +233,4 @@ package body FLTK.Images.Pixmaps is
 
 end FLTK.Images.Pixmaps;
 
+
-- 
cgit