type Cursor_Type is private;
type A_Mouse_Callback is access procedure( flags : Integer );
MOUSE_CURSOR_NONE : constant Cursor_Type;
MOUSE_CURSOR_ALLEGRO : constant Cursor_Type;
MOUSE_CURSOR_ARROW : constant Cursor_Type;
MOUSE_CURSOR_BUSY : constant Cursor_Type;
MOUSE_CURSOR_QUESTION : constant Cursor_Type;
MOUSE_CURSOR_EDIT : constant Cursor_Type;
MOUSE_BUTTON_LEFT : constant Unsigned_32;
MOUSE_BUTTON_RIGHT : constant Unsigned_32;
MOUSE_BUTTON_MIDDLE : constant Unsigned_32;
procedure Get_Mouse_Mickeys
( | mickeyx, mickeyy | : A_Integer ); |
function Get_Mouse_Sprite return A_Bitmap;
function Install_Mouse return Integer;
function Mouse_X_Focus return Integer;
function Mouse_Y_Focus return Integer;
function Mouse_X return Integer;
function Mouse_Y return Integer;
function Mouse_Z return Integer;
function Mouse_B return Integer;
function Mouse_Pos return Integer;
function Mouse_Freeze_Flag return Integer;
procedure Select_Mouse_Cursor
( | cursor | : Cursor_Type ); |
procedure Set_Mouse_Callback
( | cb | : A_Mouse_Callback ); |
procedure Set_Mouse_Cursor_Bitmap
( | cursor | : Cursor_Type; |
bmp | : A_Bitmap ); |
procedure Set_Mouse_Sprite
( | sprite | : A_Bitmap ); |
procedure Show_Mouse
( | bmp | : A_Bitmap ); |