my $init = defined $options{-init} ? $options{-init} :
SDL_INIT_EVERYTHING();
- SDL::Init($init);
+ SDL::init($init);
#SDL::Init(SDL::SDL_INIT_EVERYTHING());
}
my $self = SDL::SetVideoMode($w,$h,$d,$f)
- or croak SDL::GetError();
+ or croak SDL::geterror();
if ($ic and -e $ic) {
my $icon = new SDL::Surface -name => $ic;
}
sub error {
- return SDL::GetError();
+ return SDL::geterror();
}
sub warp ($$$) {