Some fixes

diff --git a/lib/SDL/Tutorial/Pong.pm b/lib/SDL/Tutorial/Pong.pm
index f090d5e..4038631 100644 (file)
--- a/lib/SDL/Tutorial/Pong.pm
+++ b/lib/SDL/Tutorial/Pong.pm
@@ -7,7 +7,7 @@ package Ball;
 sub new {
     my $class = shift;
     my $self = {
-#        'rect'      => SDL::Game::Rect->new(20, 20, 10, 10),
+        'rect'      => SDL::Game::Rect->new(20, 20, 10, 10),
         'speed'     => 4,
         'direction' => 5,
         'color' => SDL::Color->new(-r => 0x00, -g => 0xcc, -b => 0x00),
@@ -21,6 +21,7 @@ sub update {
 
 package main;
 use SDL;
+use SDL::Game::Rect;
 use SDL::App;
 
 
@@ -34,28 +35,51 @@ my $app = SDL::App->new(
 my $event = SDL::Event->new;
 my $ball = Ball->new;
 
-my $player = SDL::Rect->new( -top => 200, -left => 30, -w => 20, -h => 90);
+my $bg_color = SDL::Color->new( -r => 0x00, -g => 0x00, -b => 0x00 );
+my $back = SDL::Rect->new( 0, 0, $app->width, $app->height);
+my $player = SDL::Rect->new( 100, 30, 20, 90);
 my $fg_color = SDL::Color->new( -r => 0xcc, -g => 0xcc, -b => 0xcc );
 
 event_loop() while 1;
 
+
 sub event_loop {
-    while ($event->poll) {
+       my $held_down_key = undef;
+    while ($event->poll || defined $held_down_key) {
         my $type = $event->type;
         exit if $type == SDL_QUIT;
 
-        if ($type == SDL_KEYDOWN && $event->key_name eq 'down') {
-            $player->y($player->y + 2);
+        if ($type == SDL_KEYDOWN || defined $held_down_key) {
+                               if($event->key_name eq 'down' || $held_down_key eq 'down')
+                               {
+                                               $player->y($player->y + 2) ;    
+                                               $held_down_key = 'down'                                                 
+                               }
+                               if($event->key_name eq 'up' || $held_down_key eq 'up')
+                               {
+                                               $player->y($player->y - 2) ;
+                                               $held_down_key = 'up'                                                   
+                               }
+                               
         }
+               if ($type == SDL_KEYUP)
+               {
+                       $held_down_key = undef;
+               }
+                draw_screen();
     }
-    draw_screen();
+   
+
 }
 
 sub draw_screen {
-    $app->fill($player, $fg_color);
+
+   $app->fill($back, $bg_color);
+   $app->fill($player, $fg_color);
 
 # if I uncomment this line, the window buttons go away!!! WTF???
-    $app->update($player);
+  
+  $app->sync();
 }
 
 __END__