sdl::mouse(3pm) [debian man page]

pods::SDL::Mouse(3pm)					User Contributed Perl Documentation				     pods::SDL::Mouse(3pm)

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
", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');

	sleep(3);

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

	sleep(3);

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

	sleep(3);

SEE ALSO

       SDL::Cursor

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28						     pods::SDL::Mouse(3pm)

pods::SDL::Time(3pm)					User Contributed Perl Documentation				      pods::SDL::Time(3pm)

NAME

       SDL::Time - An SDL Perl extension for managing timers

CATEGORY

       Core

SYNOPSIS

	use warnings;
	use strict;

	use threads;
	use threads::shared;

	use SDL::Time;

	package foo;

	use SDL ':all';

	SDL::init(SDL_INIT_TIMER);

	my $tick :shared = 0;
	sub ticker { $tick++; warn $tick; return 100; }

	package main;

	my $id = SDL::Time::add_timer(100, 'foo::ticker');

	sleep(2);

	SDL::Time::remove_timer($id);

METHODS

   add_timer
	my $id = SDL::Timer::add_timer( $ms_interval, $callback );

       This runs in a separate thread and a cloned Perl thread.  "threads" and "threads::shared" must be used to share any variables the timer
       uses.

       The $callback function, specified with a string of the function's name, will be called after the milliseconds of $interval have elapsed.
       The actual delay may be longer than specified depending on the underlying OS.  The callback function is passed the current timer interval
       as well as the $interval parameter and should return the next timer interval.  If the return value from the callback is 0, the timer is
       cancelled; otherwise, the timer will continue to run.

       The timer callback function may run in a different thread to your main program, so it shouldn't call any functions from within itself.  You
       may call SDL::push_event, however.

       "SDL::Time::add_timer" returns the identifier value of the generated timer or undef on error.

       Note: You must initialize ("SDL::init") the timer subsystem to use this function.

   remove_timer
	SDL::Timer::remove_timer( $id );

       The other way to cancel a timer is to use "SDL::Time::remove_timer" on the $id of a timer.  This ID is the return value of the
       "SDL::Time::add_timer" function.

       "SDL::Time::remove_timer" returns 0 on success or "-1" on error.

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28						      pods::SDL::Time(3pm)