diff options
Diffstat (limited to 'src/fltk.adb')
| -rw-r--r-- | src/fltk.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/fltk.adb b/src/fltk.adb index 61491d9..f302b47 100644 --- a/src/fltk.adb +++ b/src/fltk.adb @@ -17,6 +17,15 @@ use type package body FLTK is + function fl_enum_rgb_color + (R, G, B : in Interfaces.C.unsigned_char) + return Interfaces.C.unsigned; + pragma Import (C, fl_enum_rgb_color, "fl_enum_rgb_color"); + pragma Inline (fl_enum_rgb_color); + + + + function fl_abi_check (V : in Interfaces.C.int) return Interfaces.C.int; @@ -100,6 +109,19 @@ package body FLTK is + function RGB_Color + (R, G, B : in Color_Component) + return Color is + begin + return Color (fl_enum_rgb_color + (Interfaces.C.unsigned_char (R), + Interfaces.C.unsigned_char (G), + Interfaces.C.unsigned_char (B))); + end RGB_Color; + + + + function Press (Key : in Pressable_Key) return Keypress is |