diff options
| -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; |