Permalink
Browse files

setup tick to draw on the surface passed to the slide show

  • Loading branch information...
1 parent 4a02dd8 commit 5c1bbbda73996cfedcb2f1ce87bbca8dc362a106 @dod38fr committed May 14, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 lib/SDLx/SlideShow.pm
  2. +2 −2 t/slider.t
@@ -40,7 +40,7 @@ sub _new_image {
}
}
-# slider's tick method will blit on this surface
+# slider's tick method will blit on this surface (or create a new one)
has surface => (
is => 'ro',
isa => 'SDLx::Surface',
View
@@ -47,15 +47,15 @@ foreach my $s_file (glob("lib/SDLx/SlideShow/*.pm")) {
next if $test_only and ($s_class !~ /$test_only/i) ;
$s_class =~ s!.*/!!;
$s_class =~ s!\.pm$!! ;
- my $slider = SDLx::SlideShow->new(image => $app, slideshow_class => $s_class) ;
+ my $slider = SDLx::SlideShow->new(image => $app, surface => $app, slideshow_class => $s_class) ;
ok( $slider, "created $s_class slider" );
my @l_slides = @slides ;
while (@l_slides){
foreach my $i (1.. 30) {
$slider ->tick;
- $slider->surface ->blit($app) ;
+ # $slider->surface ->blit($app) ;
$app->sync;
SDL::delay(10) ;
}

0 comments on commit 5c1bbbd

Please sign in to comment.