/lib/SDLx/SFont.pm

 1package SDLx::SFont;
 2use strict;
 3use warnings;
 4use SDL::Image;
 5use vars qw(@ISA @EXPORT @EXPORT_OK);
 6require Exporter;
 7require DynaLoader;
 8use SDL::Constants ':SDL::TTF';
 9our @ISA = qw(Exporter DynaLoader SDL::Surface);
10
11use base 'Exporter';
12our @EXPORT = ('SDL_TEXTWIDTH');
13
14our $VERSION = 2.548;
15
16sub SDL_TEXTWIDTH {
17	return SDLx::SFont::TextWidth( join( '', @_ ) );
18}
19
20sub print_text { #print is a horrible name for this
21	my ( $surf, $x, $y, @text ) = @_;
22	SDLx::SFont::print_string( $surf, $x, $y, join( '', @text ) );
23}
24
25bootstrap SDLx::SFont;
26
271;
28