From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Thu, 8 Oct 2009 15:12:50 +0000 (-0400)
Subject: Some fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=921b4c7b90321ca7d1899157dae4c0f643ce0ac7;p=sdlgit%2FSDL_perl.git

Some fixes
---

diff --git a/lib/SDL/Tutorial/Pong.pm b/lib/SDL/Tutorial/Pong.pm
index f090d5e..4038631 100644
--- 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__