use Win32::GUI;
@ret = Win32::GUI::ChooseFont(
-name => "Courier New",
-height => 14,
-size => 180,
-italic => 1,
-ttonly => 1,
-fixedonly => 1,
-script => 0,
-effects => 1,
);
if($#ret > 0) {
print "ChooseFont returned:\n";
%ret = @ret;
foreach $key (keys(%ret)) {
print "\t$key => $ret{$key}\n";
}
$F = new Win32::GUI::Font(%ret);
%ariret = $F->Info();
print "Info returned:\n";
foreach $key (keys(%ariret)) {
print "\t$key => $ariret{$key}\n";
}
} else {
if(Win32::GUI::CommDlgExtendedError()) {
print "ERROR. CommDlgExtendedError is: ", Win32::GUI::CommDlgExtendedError(), "\n";
} else {
print "You cancelled.\n";
}
}