Select Code to Download

use Tk;
use Tk::Font;
...

foreach (1 .. 10) { $l->Font }
print "Fonts: " . join(",", $l->fontNames) . "\n";

use Tk;
use Tk::Font;
...
)->pack;

MainLoop;

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

   
   print "Size: " . $font->configure('-size') . "\n";

use Tk;
use Tk::Font;
...
   $widget->update;
   $widget->bind('<Configure>', \&ResizeText);
}