view release on metacpan or  search on metacpan

lib/Games/Checkers/SDL.pm  view on Meta::CPAN

	SDL::Video::blit_surface($display_copy, 0, $display, 0);
}

sub toggle_fullscreen ($) {
	my $self = shift;

	$self->{fullscreen} ^= 1;
	SDL::Video::wm_toggle_fullscreen($self->{display});
}

sub update_display ($) {
	my $self = shift;

	SDL::Video::update_rect($self->{display}, 0, 0, 0, 0);

	return 1;
}

sub process_pending_events ($;$) {
	my $self = shift;
	my $want_unpress = shift;