Fixed Color range and provided more example constants

1 files 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;