diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-08 20:18:08 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-08 20:18:08 +1300 |
| commit | 16de49a1a4d086c8839139b2130c0b42c90c914a (patch) | |
| tree | 603f4b2e12d9f876f232c0f1ab2c853089352b05 /src | |
| parent | 13d20cec64ca792780f7240ed9985fe99a92d40a (diff) | |
Fixed Color range and provided more example constants
Diffstat (limited to 'src')
| -rw-r--r-- | src/fltk.ads | 15 |
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; |