diff options
Diffstat (limited to 'src/fltk.ads')
-rw-r--r-- | src/fltk.ads | 8 |
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; |