#- ----------- graphics related stuff --------------------------------------
# Perhaps this should be exported by SDL::SFont
sub SDL_TEXTWIDTH {
SDL::SFont::SDL_TEXTWIDTH(@_);
}
sub add_default_rect($) {
my ($surface) = @_;
$rects{$surface} = SDL::Rect->new(-width => $surface->width, -height => $surface->height);