summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2021-11-08 20:18:08 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2021-11-08 20:18:08 +1300
commit16de49a1a4d086c8839139b2130c0b42c90c914a (patch)
tree603f4b2e12d9f876f232c0f1ab2c853089352b05
parent13d20cec64ca792780f7240ed9985fe99a92d40a (diff)
Fixed Color range and provided more example constantsHEADmaster
-rw-r--r--src/fltk.ads15
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;