From 16de49a1a4d086c8839139b2130c0b42c90c914a Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 8 Nov 2021 20:18:08 +1300 Subject: Fixed Color range and provided more example constants --- src/fltk.ads | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/fltk.ads b/src/fltk.ads index d71b399..38da4c2 100644 --- a/src/fltk.ads +++ b/src/fltk.ads @@ -26,9 +26,15 @@ package FLTK is - type Color is new Natural; + type Color is mod 2**32; type Color_Component is mod 256; - No_Color : constant Color; + + No_Color : constant Color := 16#00000000#; + + Red_Color : constant Color := 16#ff000000#; + Green_Color : constant Color := 16#00ff0000#; + Blue_Color : constant Color := 16#0000ff00#; + White_Color : constant Color := 16#ffffff00#; @@ -314,11 +320,6 @@ private - No_Color : constant Color := 0; - - - - type Alignment is new Interfaces.Unsigned_16; Align_Center : constant Alignment := 0; Align_Top : constant Alignment := 1; -- cgit