Date: Mon, 11 Jun 2001 21:43:42 +0000 (UTC)
From: Vlad <vlad@niko.kiev.ua>
Newsgroups: fido7.ru.perl
Subject: сменить стандаpтнyю иконкy окна на Perl/Tk
$mw ->> iconimage ('qwerty.ico');
AV> MainLoop;
AV> Hy и pезyльтата, в итоге, никакого..
А если так:
use Tk;
use Tk::Photo;
my $mw = tkinit();
$mw->idletasks;
my $icon = $mw->Photo(-file => 'icon.bmp');
$mw->iconimage($icon);
MainLoop;
Очень рекомендую архив Perl/Tk-list:
http://www.xray.mpe.mpg.de/mailing-lists/ptk/
Кроме того, если уж очень хочется *.ico, был такой экспериментальный
модуль Tk::Icon http://www.schmuker.de/perl/modules/Tk-Icon-0.03.zip
(его на CPAN нет), сам не пробовал, но судя по доке умеет работать с
*.ico.
Vova
