type A_Allegro_Keyboard is access all Allegro_Keyboard;
type Allegro_Keyboard_State is record display : A_Allegro_Display; internal : Int_Array(0..(ALLEGRO_KEY_MAX+31)/32-1); -- Allegro internal end record;
ALLEGRO_KEY_BACKSLASH : constant Integer := 70;
ALLEGRO_KEY_COMMA : constant Integer := 72;
procedure Al_Get_Keyboard_State
( | ret_state | : in out Allegro_Keyboard_State ); |
function Al_Key_Down
( | state | : Allegro_Keyboard_State; |
keycode | : Integer ) return Boolean; |
function Al_Get_Keyboard_Event_Source return A_Allegro_Event_Source;