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-rgb-jpeg.ads | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/src/fltk-images-rgb-jpeg.ads b/src/fltk-images-rgb-jpeg.ads
index c7fafd8..742ae4e 100644
--- a/src/fltk-images-rgb-jpeg.ads
+++ b/src/fltk-images-rgb-jpeg.ads
@@ -3,6 +3,10 @@
 package FLTK.Images.RGB.JPEG is
 
 
+    -------------
+    --  Types  --
+    -------------
+
     type JPEG_Image is new RGB_Image with private;
 
     type JPEG_Image_Reference (Data : not null access JPEG_Image'Class) is
@@ -11,12 +15,21 @@ package FLTK.Images.RGB.JPEG is
 
 
 
+    --------------------
+    --  Construction  --
+    --------------------
+
     package Forge is
 
         function Create
                (Filename : in String)
             return JPEG_Image;
 
+        function Create
+               (Name : in String := "";
+                Data : in Color_Component_Array)
+            return JPEG_Image;
+
     end Forge;
 
 
-- 
cgit