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

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

NAME

       SDL::CDTrack -- SDL Bindings for structure SDL_CDTrack

CATEGORY

       Core, CDROM, Structure

SYNOPSIS

	use SDL;
	use SDL::CDROM;
	use SDL::CD ':status';
	use SDL::CDTrack;

	SDL::init( SDL_INIT_CDROM );

	my $drives = SDL::CDROM::num_drives();

	if( $drives > 0 )
	{
	    my $CD = SDL::CD->new(0); #first drive's CD

	    if($CD)
	    {
		if( $CD->status != CD_TRAYEMPTY )
		{
		    my $track = SDL::CD->track(0);
		}
	    }
	}

CONSTANTS

       The constants are exported by default. You can avoid this by doing:

	use SDL::CDTrack ();

       and access them directly:

	SDL::CDTrack::SDL_AUDIO_TRACK;

       or by choosing the export tags below:

       Export tag: ':type'

	SDL_AUDIO_TRACK
	SDL_DATA_TRACK

METHOD

   id
	$track->id() # 0-99

       Track number

   type
	$track->type() # SDL_AUDIO_TRACK or SDL_DATA_TRACK

       Type of track

   length
	$track->length()

       Length, in frames, of this track

   offset
	$track->offset()

       Frame offset to the beginning of this track

SEE ALSO

       SDL::CDROM, SDL::CD

AUTHORS

       See "AUTHORS" in SDL.

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

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)