![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
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.
$val
if given and return the current or previous value
$max
names, or 128 if $max
is not given.
In a scalar contex it returns the first matching name or undef
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>