ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Paschenkov 2:5020/400 13 Nov 2004 13:37:15
To : All
Subject : Динамическая кнопка
--------------------------------------------------------------------------------
Hello ALL !
Хочу сделать кнопку в Tk, так чтобы на ней шел отсчет секунд от 10 до 1 и
при 0 окошко исчезает. Ума не приложу как сделать.
т е надо как-то $count менять динамически
$b1=$mw->Button(-textvariable=>\$count, -command=>
sub{exit;} )-> pack(-side=>'bottom');
Алексей.
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
