/usr/lib/perl5/SWF/Text.pm is in libswf-perl 1:0.4.4-1.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | # ====================================================================
# Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
# ====================================================================
# $Author$
# $Id$
package SWF::Text;
use SWF ();
$SWF::Text::VERSION = $SWF::VERSION;
1;
__END__
=head1 NAME
SWF::Text - SWF Text class
=head1 SYNOPSIS
use SWF::Text;
$text = new SWF::Text();
=head1 DESCRIPTION
Draw simple static texts.
=head1 NOTES:
None.
=head1 METHODS
=over
=item new SWF::Text()
Creates a Text object.
=item $text->addString($string)
=item $text->addUTF8String($UTF8string)
=item $text->addWideString($widestring,$widestring_len)
Writes the given $string into this Text object at the current pen position,
using the current font, height, spacing, and color:
$t->addString("Thai");
$t->addUTF8String("\x{0E44}\x{0E17}\x{0E22}");
$t->addWideString("\x{44}\x{0E}\x{17}\x{0E}\x{22}\x{0E}",3);
=item $text->setColor(red, green, blue [, alpha])
Set the color of the text. An 8 bit value for each parameter. You can use
he hex or decimal notation. Even mixed.
$text->setColor(0xcc,0,0x33);
$text->setColor(204,0,51,255);
=item $text->setFont($font)
Sets an SWF::Font object -$font- to be used in the Text.
=item $text->setHeight($height)
Sets this Text object's current height to given height.
=item $text->moveTo($x, $y)
Move the Text's location to ($x, $y).
=item $text->setSpacing($spacing)
Sets this Text object's current letterspacing to given spacing.
=item $text->getWidth($string)
=item $text->getStringWidth($string)
=item $text->getUTF8StringWidth($UTF8string)
=item $text->getWideStringWidth($widestring)
Returns width of given string in pixels.
=item $text->getAscent()
Returns the ascent of the current font at its current size, or 0 if not available.
=item $text->getDescent()
Returns the descent of the current font at its current size, or 0 if not available.
=item $text->getLeading()
Returns the leading of the current font at its current size, or 0 if not available.
=back
=head1 AUTHOR
developers of ming
ming.sourceforge.net
=head1 SEE ALSO
SWF, SWF::Font, SWF::TextField, ISO 10646 (Unicode)
=cut
|