Improved binding for the FLTK.Images package subtree

1 files changed, 8 insertions, 0 deletions

diff --git a/src/fltk.ads b/src/fltk.ads
index c4cf336..7ad5c96 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -30,7 +30,9 @@ package FLTK is
     type Greyscale is new Character range 'A' .. 'X';
 
     type Color is mod 2**32;
+
     type Color_Component is mod 256;
+    type Color_Component_Array is array (Positive range <>) of aliased Color_Component;
 
     --  Examples of RGB colors
     --  The lowest byte has to be 00 for the color to be RGB
@@ -381,6 +383,12 @@ private
 
 
 
+    for Color_Component_Array'Component_Size use Interfaces.C.CHAR_BIT;
+    pragma Convention (C, Color_Component_Array);
+
+
+
+
     type Alignment is new Interfaces.Unsigned_16;
     Align_Center : constant Alignment := 0;
     Align_Top    : constant Alignment := 1;