X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FApp.pm;h=542b79fb4c31043459286daa8d014889c5973db7;hb=e853497ac6c8b125554ca0f7e1c8463798717317;hp=c924579d6badace06892936b06df2bcc13abb8f4;hpb=a0f3f32a2856fb3ba37b5e1311162c20ee57d9ed;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index c924579..542b79f 100644
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -62,7 +62,7 @@ sub new {
 	 my $init = defined $options{-init} ? $options{-init} :
 	SDL_INIT_EVERYTHING();
 	
-	 SDL::Init($init);
+	 SDL::init($init);
 
 	#SDL::Init(SDL::SDL_INIT_EVERYTHING());
 	
@@ -112,8 +112,8 @@ sub new {
 		$SDL::App::USING_OPENGL = 0;
 	}
 
-	my $self = SDL::SetVideoMode('SDL::Surface',$w,$h,$d,$f)
-		or croak SDL::GetError();
+	my $self = SDL::SetVideoMode($w,$h,$d,$f)
+		or croak SDL::geterror();
 	
 	if ($ic and -e $ic) {
 	   my $icon = new SDL::Surface -name => $ic;
@@ -157,7 +157,7 @@ sub ticks {
 }
 
 sub error {
-	return SDL::GetError();
+	return SDL::geterror();
 }
 
 sub warp ($$$) {
@@ -195,7 +195,7 @@ sub sync ($) {
 	if ($SDL::App::USING_OPENGL) {
 		SDL::GLSwapBuffers()
 	} else {
-		$self->flip();
+		SDL::Flip($self);
 	}
 }