diff --git a/Build.PL b/Build.PL index a4a35b94..3bd4e706 100644 --- a/Build.PL +++ b/Build.PL @@ -46,7 +46,7 @@ my %subsystems = from => 'src/Core/objects/Rect.xs', to => 'lib/SDL/Rect.xs', }, - libraries => [qw( SDL )], + libraries => [qw( SDL )], }, Color => { file => { @@ -60,14 +60,21 @@ my %subsystems = from => 'src/Core/objects/Surface.xs', to => 'lib/SDL/Surface.xs', }, - libraries => [qw( SDL SDL_image )], + libraries => [qw( SDL )], + }, + Overlay => { + file => { + from => 'src/Core/objects/Overlay.xs', + to => 'lib/SDL/Overlay.xs', + }, + libraries => [qw( SDL )], }, PixelFormat => { file => { from => 'src/Core/objects/PixelFormat.xs', to => 'lib/SDL/PixelFormat.xs', }, - libraries => [qw( SDL SDL_image )], + libraries => [qw( SDL )], }, TTF_Font => { file => { @@ -88,7 +95,7 @@ my %subsystems = from => 'src/SFont.xs', to => 'lib/SDL/SFont.xs', }, - libraries => [qw( SDL SDL_image SDL_ttf )], + libraries => [qw( SDL SDL_ttf )], }, ); diff --git a/src/Core/objects/Overlay.xs b/src/Core/objects/Overlay.xs index e13c1bfc..fb6fe27d 100644 --- a/src/Core/objects/Overlay.xs +++ b/src/Core/objects/Overlay.xs @@ -27,7 +27,7 @@ typedef struct{ =cut SDL_Overlay * -overlay_new(CLASS, width, height, Uint32 format, display) +overlay_new(CLASS, width, height, format, display) char* CLASS int width int height diff --git a/src/SDL.xs b/src/SDL.xs index 630e3274..13d20c68 100644 --- a/src/SDL.xs +++ b/src/SDL.xs @@ -2787,17 +2787,6 @@ NetRead32 ( area ) #endif -SDL_Overlay* -CreateYUVOverlay ( width, height, format, display ) - int width - int height - Uint32 format - SDL_Surface *display - CODE: - RETVAL = SDL_CreateYUVOverlay ( width, height, format, display ); - OUTPUT: - RETVAL - int LockYUVOverlay ( overlay ) SDL_Overlay *overlay @@ -2821,12 +2810,6 @@ DisplayYUVOverlay ( overlay, dstrect ) OUTPUT: RETVAL -void -FreeYUVOverlay ( overlay ) - SDL_Overlay *overlay - CODE: - SDL_FreeYUVOverlay ( overlay ); - Uint32 OverlayFormat ( overlay, ... ) SDL_Overlay *overlay diff --git a/t/core_overlay.t b/t/core_overlay.t new file mode 100644 index 00000000..2b0660b3 --- /dev/null +++ b/t/core_overlay.t @@ -0,0 +1,18 @@ +#!perl +use strict; +use warnings; +use Test::More tests => 2; +use SDL; + +use_ok('SDL::Overlay'); + +SDL::Init(SDL_INIT_VIDEO); + +my $display = SDL::SetVideoMode(640,480,32,0); + +my $overlay = SDL::Overlay->new( 0, 0, 0, $display); + +isa_ok( $overlay, 'SDL::Overlay'); + + +