NAME

SDL::Cursor - a SDL perl extension

SYNOPSIS

 $cursor = new SDL::Cursor 	-data => new SDL::Surface "cursor.png", 
				-mask => new SDL::Surface "mask.png",
				-x => 0, -y => 0;

DESCRIPTION

To create a new cursor, create a new instance of the Cursor
class passing it two surfaces as shown in the example.  The x and
y values indicate the position of the hot-spot for clicking.

To move the cursor to a position on the screen use the warp method passing the values of x and y. The warp function does not require an instance to have been created, and can be safely used directly.

SDL::Cursor::warp(x,y);
$cursor->warp(200,200);

Similary, to toggle the visible status of the cursor use the show method:

SDL::Cursor::show(0);	# this hides the cursor
$cursor->show(1);	# make the cursor visible

If you have created a new Cursor, to set it as the active cursor use the method 'use':

$cursor->use();

Finally, if you are using more than one instance of a SDL_Cursor *, you may find the get method useful for finding out the current cursor.

SDL::Cursor::get();
$cursor->get();

NB: This will not return the value of that instance, but rather the instance currently in use;

AUTHOR

David J. Goehrig

SEE ALSO

perl(1) SDL::Surface(3).