type A_Allegro_Mouse is access all Allegro_Mouse;
type Allegro_Mouse_State is record x, y : Integer := 0; z, w : Integer := 0; more_axes : Axes_Array(0..3) := (others => 0); buttons : Unsigned_32 := 0; pressure : Float := 0.0; display : A_Allegro_Display; end record;
type A_Mouse_State is access all Allegro_Mouse_State;
procedure Al_Get_Mouse_State
( | ret_state | : out Allegro_Mouse_State ); |
function Al_Get_Mouse_State_Axis
( | state | : Allegro_Mouse_State; |
axis | : Integer ) return Integer; |
function Al_Mouse_Button_Down
( | state | : Allegro_Mouse_State; |
button | : Integer ) return Boolean; |
function Al_Set_Mouse_XY
( | display | : A_Allegro_Display; |
x, y | : Integer ) return Boolean; |
function Al_Grab_Mouse
( | display | : A_Allegro_Display ) return Boolean; |
function Al_Get_Mouse_Event_Source return A_Allegro_Event_Source;