3 # a SDL perl extension for SFont support
5 # Copyright (C) David J. Goehrig 2000,2002
14 use vars qw(@ISA $CurrentFont );
17 @ISA = qw(SDL::Surface);
22 my $class = ref($proto) || $proto;
23 my $self = \SDL::SFont::NewFont(shift);
30 SDL::FreeSurface($$self);
36 if ( $self->isa('SDL::Font')) {
37 SDL::SFont::UseFont($$self);
50 SDL::Font - a SDL perl extension
54 $font = new Font "Font.png";
59 L<SDL::Font> provides an interface to loading and using SFont style
60 fonts with L<SDL::Surface> objects.
68 L<perl> L<SDL::Surface>