Re: [perl-win32-gui-users] Win32::GUI::Icon and Win32::Console - an icon for a console

[Aldo Calpini]

Johan Lindstrom wrote:
> Untested, but try something like this:
>
> my $icoDOS = ... create your icon object here ...;
> my $hwindDOS = Win32::GUI::GetPerlWindow();
> Win32::GUI::SetIcon($hwindDOS, $icoDOS, 0);

it works, but it's only a temporary change; when the icon
needs to be repainted (eg. if you minimize the window or
move the upper left corner out of sight), the icon reverts
to the default one. SetIcon (as SetCursor, BTW) only draws
its content one time, it does not change it permanently.
AFAIK, there's no way to permanently change the DOS window
icon with Win32::GUI.

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;