use Tk;
use Tk::Font;

my $mw = MainWindow->new;

print "Using Default Label Font:\n";
my $label = $mw->Label;
printFontInfo($label);

print "Using default Tk::Font:\n";
my $font = $label->Font;
$label->configure(-font => $font);
printFontInfo($label);

print "Using custom Tk::Font\n";
$font = $label->Font(-family => 'Times');
$label->configure(-font => $font);
printFontInfo($label);

print "Using custom font:\n";
$label->configure(-font => "Arial");
printFontInfo($label);

sub printFontInfo
{
   my $w = shift;
   my $font = $w->cget('-font');

   print "Name:  $font\n";
   print "Atrr:  " . join(",", $font->actual) . "\n";
   print "Fonts: " . join(",", $w->fontNames) . "\n\n";
}