ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Edward Muhutdinov                    2:5049/89.13   26 Sep 2001  00:19:54
 To : All
 Subject : Tk::ProgressBar
 -------------------------------------------------------------------------------- 
 

 
 Hикак не могу прогресс-линию в ходе работы прорисовать.
 $bar=$top->ProgressBar
 (       -borderwidth => 2,
         -relief => 'sunken',
         -width => 20,
         -padx => 2,
         -pady => 2,
         -variable => \$status,
         -colors => [0 => 'blue'],
         -resolution => 1,
         -blocks => 1,
         -anchor => 'w',
         -length=>400,
         -gap=>0
 
 )->grid(-row=>1,-column=>1);
 $process=$top->Button(-relief=>'groove',-state=>'active',-text=>"Hачать",
 -command=>\&process)->grid(-row=>2,-column=>1,-sticky=>'e');
 
 sub process
 {
     for(0..400)
     {   $bar->configure(-value=>$status);
         sleep .5;
         ++$status;
     }
 }
 Пустая полоска рисуется в самом начале, заполненная полоска рисуется в самом
 конце. Hо никак в процессе не закрашивается. Что я не так делаю, объясните
 неразумному... ;)
  - Полосатый.
 
 --- ДДДmailto:wtiger@wtg.ruДДДhttp://www.wtg.ru/wtigerДДДICQ UIN 15567730ДДДД
  * Origin: Эк тебя скрючило! (2:5049/89.13)
 
 

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

Тема:    Автор:    Дата:    Tk::ProgressBar   Edward Muhutdinov   26 Sep 2001 00:19:54   Re: Tk::ProgressBar   Vlad   26 Sep 2001 23:24:46