Re^2: Get Windows Installed Fonts

[spandox]

use Tk;
my $mw = MainWindow->new(-title => "Fonts");
my @fonts=  sort keys { map {$_, 1}  @{$mw->fontFamilies}}