[sdlgit/SDL_perl.git] / lib / SDL / SFont.pm

# SDL::OpenGL.pm
#
#	SFont bitmat font support
#
#	Copyright (C) 2004 David J. Goehrig

package SDL::SFont;

require Exporter;
require DynaLoader;
use vars qw(
	@EXPORT
	@ISA
);
@ISA=qw(Exporter DynaLoader);

use SDL;

BEGIN {

};

sub SDL_TEXTWIDTH {
	return SDL::SFont::TextWidth(join('',@_));
}


bootstrap SDL::SFont;

1;

__END__;

=pod


=head1 NAME

SDL::SFont - a perl extension

=head1 DESCRIPTION


=head1 AUTHOR

David J. Goehrig

=head1 SEE ALSO

L<perl> L<SDL::App>

=cut
Commit	Line	Data
8fde61e3	1	# SDL::OpenGL.pm
	2	#
	3	# SFont bitmat font support
	4	#
	5	# Copyright (C) 2004 David J. Goehrig
	6
	7	package SDL::SFont;
	8
	9	require Exporter;
	10	require DynaLoader;
	11	use vars qw(
	12	@EXPORT
	13	@ISA
	14	);
	15	@ISA=qw(Exporter DynaLoader);
	16
	17	use SDL;
	18
	19	BEGIN {
	20
	21	};
	22
	23	sub SDL_TEXTWIDTH {
	24	return SDL::SFont::TextWidth(join('',@_));
	25	}
	26
	27
	28	bootstrap SDL::SFont;
	29
	30	1;
	31
	32	__END__;
	33
	34	=pod
	35
	36
	37
	38	=head1 NAME
	39
	40	SDL::SFont - a perl extension
	41
	42	=head1 DESCRIPTION
	43
	44
	45
	46	=head1 AUTHOR
	47
	48	David J. Goehrig
	49
	50	=head1 SEE ALSO
	51
	52	L<perl> L<SDL::App>
	53
	54	=cut