Im new to using Win32::GUI. I installed it via nmake, and tried this sample
script:
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";
}
}
<STDIN>;
This and every other script results in a Parse Exception error.
Any suggestions?
Thanks. Steve
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
