|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vlad 2:5020/400 12 Jun 2001 01:43:42
To : Aleksey Veselov
Subject : Re: Tk : сменить стандаpтнyю иконкy
--------------------------------------------------------------------------------
Hello Aleksey,
Monday, June 11, 2001, 6:55:24 PM, you wrote:
$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.
--
Best regards,
VLAD
mailto:vlad@niko.kiev.ua
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: NIKO (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Tk : сменить стандаpтнyю иконкy 
