From f18ea4474bb4905a00e0b39e7205c177ee994196 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 20 Feb 2024 18:04:23 +1300
Subject: Improved binding for the FLTK.Images package subtree

---
 src/fltk-images-pixmaps.ads | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

(limited to 'src/fltk-images-pixmaps.ads')

diff --git a/src/fltk-images-pixmaps.ads b/src/fltk-images-pixmaps.ads
index b72c382..a935e72 100644
--- a/src/fltk-images-pixmaps.ads
+++ b/src/fltk-images-pixmaps.ads
@@ -3,6 +3,10 @@
 package FLTK.Images.Pixmaps is
 
 
+    -------------
+    --  Types  --
+    -------------
+
     type Pixmap is new Image with private;
 
     type Pixmap_Reference (Data : not null access Pixmap'Class) is limited null record
@@ -11,6 +15,10 @@ package FLTK.Images.Pixmaps is
 
 
 
+    --------------------
+    --  Construction  --
+    --------------------
+
     function Copy
            (This          : in Pixmap;
             Width, Height : in Natural)
@@ -23,6 +31,10 @@ package FLTK.Images.Pixmaps is
 
 
 
+    --------------
+    --  Colors  --
+    --------------
+
     procedure Color_Average
            (This   : in out Pixmap;
             Col    : in     Color;
@@ -34,6 +46,20 @@ package FLTK.Images.Pixmaps is
 
 
 
+    ----------------
+    --  Activity  --
+    ----------------
+
+    procedure Uncache
+           (This : in out Pixmap);
+
+
+
+
+    ---------------
+    --  Drawing  --
+    ---------------
+
     procedure Draw
            (This : in Pixmap;
             X, Y : in Integer);
@@ -53,12 +79,13 @@ private
            (This : in out Pixmap);
 
 
-
-
     pragma Inline (Color_Average);
     pragma Inline (Desaturate);
 
 
+    pragma Inline (Uncache);
+
+
     pragma Inline (Copy);
     pragma Inline (Draw);
 
-- 
cgit