verify (%options, qw/ -data -mask -x -y /) if $SDL::DEBUG;
- die SDL::GetError() unless $$self;
+
my $self = \SDL::NewCursor($options{-data},$options{-mask},
$options{-x},$options{-y});
+ croak SDL::GetError() unless $$self;
bless $self, $class;
$self;
}
sub show ($;$) {
my ($self,$toggle) = @_;
+ $toggle = 0 unless defined $toggle;
SDL::ShowCursor($toggle);
}