use SDL::SFont;
use SDL::Color;
use SDL::Rect;
-
+use Data::Dumper;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
if ($_[1] == 0 ) {
SDL::FillRect(${$_[0]},0,${$_[2]});
} else {
- SDL::FillRect(${$_[0]},${$_[1]},${$_[2]});
+ SDL::FillRect(${$_[0]},$_[1],${$_[2]});
}
}
croak "SDL::Surface::blit requires SDL::Surface objects"
unless $_[2]->isa('SDL::Surface');
}
- SDL::BlitSurface(map { (defined($_) && $_ != 0)? ${$_} : $_ } @_) if defined(@_);
+ SDL::BlitSurface( $_[0], $_[1], ${$_[2]}, $_[3]);
}
sub set_colors {