ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim                                2:5020/400     16 Dec 2002  17:18:59
 To : All
 Subject : Вывод в TK
 -------------------------------------------------------------------------------- 
 

 Hello!
 
 Подскажите, кто знает, как мне во время выполнения программы показывать
 какой-то текст по мере продвижения. Я делаю вывод в ROText, но он
 показывается только после завершения процедуры, связанной с кнопкой.
 
 Делаю так:
  $text=$mw->Scrolled('ROText',
   -scrollbars => 'oe',
   -width => 120,
   -height => 30,
   -borderwidth=>1,
 
  )->pack(-side => 'left');
 
 for ($i=0;$i<5;$i++) {$text->insert('end',"#");sleep 2;}
 Все 5 символов '#' появляются через 10 сек вместе.
 
 А может по другому надо?
 
 Спасибо за внимание!
 --- ifmail v.2.15dev5
  * Origin: Информсвязь-Черноземье (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Вывод в TK   Vadim   16 Dec 2002 17:18:59   Re: Вывод в TK   Andrey Sapozhnikov   16 Dec 2002 17:46:36   Hа: Вывод в TK   Vadim   16 Dec 2002 18:03:00