diff options
Diffstat (limited to 'body/fltk.adb')
| -rw-r--r-- | body/fltk.adb | 54 |
1 files changed, 40 insertions, 14 deletions
diff --git a/body/fltk.adb b/body/fltk.adb index 0e391e3..4dfdf8f 100644 --- a/body/fltk.adb +++ b/body/fltk.adb @@ -17,6 +17,12 @@ use type package body FLTK is + ------------------------ + -- Functions From C -- + ------------------------ + + -- Enumerations.H -- + function fl_enum_rgb_color (R, G, B : in Interfaces.C.unsigned_char) return Interfaces.C.unsigned; @@ -32,6 +38,8 @@ package body FLTK is + -- Versioning -- + function fl_abi_check (V : in Interfaces.C.int) return Interfaces.C.int; @@ -56,6 +64,8 @@ package body FLTK is + -- Drawing -- + function fl_get_damage return Interfaces.C.int; pragma Import (C, fl_get_damage, "fl_get_damage"); @@ -69,6 +79,8 @@ package body FLTK is + -- Event Loop -- + function fl_check return Interfaces.C.int; pragma Import (C, fl_check, "fl_check"); @@ -98,6 +110,12 @@ package body FLTK is + ----------------------- + -- API Subprograms -- + ----------------------- + + -- Implementation Details -- + function Is_Valid (Object : in Wrapper) return Boolean is @@ -106,14 +124,9 @@ package body FLTK is end Is_Valid; - procedure Initialize - (This : in out Wrapper) is - begin - This.Void_Ptr := Null_Pointer; - end Initialize; - + -- Color -- function RGB_Color (R, G, B : in Color_Component) @@ -138,6 +151,8 @@ package body FLTK is + -- Alignment -- + function "+" (Left, Right : in Alignment) return Alignment is @@ -156,6 +171,8 @@ package body FLTK is + -- Keyboard and Mouse Input -- + function Press (Key : in Pressable_Key) return Keypress is @@ -321,10 +338,10 @@ package body FLTK is return Interfaces.C.int is begin case Button is - when Left_Button => return 1 * (256 ** 3); - when Middle_Button => return 2 * (256 ** 3); - when Right_Button => return 4 * (256 ** 3); - when others => return 0; + when Left_Button => return 1 * (256 ** 3); + when Middle_Button => return 2 * (256 ** 3); + when Right_Button => return 4 * (256 ** 3); + when others => return 0; end case; end To_C; @@ -334,16 +351,18 @@ package body FLTK is return Mouse_Button is begin case (Button / (256 ** 3)) is - when 1 => return Left_Button; - when 2 => return Middle_Button; - when 4 => return Right_Button; - when others => return No_Button; + when 1 => return Left_Button; + when 2 => return Middle_Button; + when 4 => return Right_Button; + when others => return No_Button; end case; end To_Ada; + -- Menu Flags -- + function "+" (Left, Right : in Menu_Flag) return Menu_Flag is @@ -354,6 +373,8 @@ package body FLTK is + -- Versioning -- + function ABI_Check (ABI_Ver : in Version_Number) return Boolean is @@ -385,6 +406,8 @@ package body FLTK is + -- Drawing -- + function Is_Damaged return Boolean is begin @@ -401,6 +424,8 @@ package body FLTK is + -- Event Loop -- + function Check return Boolean is begin @@ -439,3 +464,4 @@ package body FLTK is end FLTK; + |