use Tk::Font;
$font = $widget->Font(foundry => 'adobe', family => 'times', point => 120 );
$font = $widget->Font('*-courier-medium-r-normal-*-*');
This module can be use to interrogate the X server what fonts are avaliable.
Foundry\|( [ $val
] )
Family\|( [ $val
] )
Weight\|( [ $val
] )
Slant\|( [ $val
] )
Swidth\|( [ $val
] )
Adstyle\|( [ $val
] )
Pixel\|( [ $val
] )
Point\|( [ $val
] )
Xres\|( [ $val
] )
Yres\|( [ $val
] )
Space\|( [ $val
] )
Avgwidth\|( [ $val
] )
Registry\|( [ $val
] )
Encoding\|( [ $val
] )
Set the given field in the font name to $val
if given and return the current
or previous value
Name\|( [ $max
] )
In a list context it returns a list of all font names that match the
fields given. It will return a maximum of $max
names, or 128 if
$max
is not given.
In a scalar contex it returns the first matching name or undef
Clone\|( [ key => value, [ ...]] )
Create a duplicate of the curent font object and modify the given fields