|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 13 Nov 2004 20:55:54
To : Alexey Paschenkov
Subject : Re: Динамическая кнопка
--------------------------------------------------------------------------------
Alexey Paschenkov wrote:
> Да таймеры знаю, но надо ж чтоб кнопка обновлялась...
>
> after ? у меня две книжки по перл, никакого after.
after - это в Tk. use Tk::after.
Вот пример с repeat , с after напиши сам в качестве упражнения.
#!perl -w
use strict;
use Tk;
my $main = MainWindow->new( -title => 'Test', );
my $but1 = $main->Button( -text => "???", );
$but1->pack();
my $i = 10;
my $time_id = $main->repeat(
1000,
sub {
$but1->configure( -text => $i );
$i--;
if ( $i == 0 ) {
warn('destroy');
$main->destroy();
} ## end if ( $i == 0 )
}
);
$main->MainLoop;
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
