Skip site navigation (1)Skip section navigation (2)

FreeBSD Manual Pages

  
 
  

home | help
pods::SDL::Mouse(3)   User Contributed Perl Documentation  pods::SDL::Mouse(3)

NAME
       SDL::Mouse - SDL	Bindings for the Mouse device

CATEGORY
       Core, Mouse

CONSTANTS
       The constants for SDL::Mouse belong to SDL::Events/SDL::Event, under
       the export tag of ':state'.

METHODS
   warp_mouse
	SDL::Mouse::warp_mouse(	$x, $y );

       Set the position	of the mouse cursor (generates a mouse motion event).
       Even if the mouse is warped to where it currently is, a mouse motion
       event is	generated.

   set_cursor
	SDL::Mouse::set_cursor(	$cursor_object );

       Sets the	currently active cursor	to the specified one.  See SDL::Cursor
       for details on cursor objects.  If the cursor is	currently visible, the
       change will be immediately represented on the display.  "set_cursor()"
       can be used to force cursor redraw, if this is desired for any reason.

   get_cursor
	my $cursor_object = SDL::Mouse::get_cursor;

       Gets the	currently active mouse cursor.

   show_cursor
	my $return = SDL::Mouse::show_cursor( $state );

       Toggle whether or not the cursor	is shown on the	screen.	 Passing
       "SDL_ENABLE" displays the cursor	and passing "SDL_DISABLE" hides	it.
       The current state of the	mouse cursor can be queried by passing
       "SDL_QUERY", either "SDL_DISABLE" or "SDL_ENABLE" will be returned.

	use SDL;
	use SDL::Mouse;
	use SDL::Video;
	use SDL::Events	':state'; #For the constants

	SDL::init(SDL_INIT_VIDEO);
	SDL::Video::set_video_mode(640,	480, 16, SDL_SWSURFACE);

	printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible'	: 'not visible');

	sleep(3);

	SDL::Mouse::show_cursor(SDL_DISABLE);
	printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible'	: 'not visible');

	sleep(3);

	SDL::Mouse::show_cursor(SDL_ENABLE);
	printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible'	: 'not visible');

	sleep(3);

SEE ALSO
       SDL::Cursor

AUTHORS
       See "AUTHORS" in	SDL.

perl v5.32.1			  2021-11-05		   pods::SDL::Mouse(3)

NAME | CATEGORY | CONSTANTS | METHODS | SEE ALSO | AUTHORS

Want to link to this manual page? Use this URL:
<https://www.freebsd.org/cgi/man.cgi?query=pods::SDL::Mouse&sektion=3&manpath=FreeBSD+13.0-RELEASE+and+Ports>

home | help