1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| use strict ;
use Tk ;
use Tk::ProgressBar;
my $status_var =0;
my $mw = MainWindow->new;
$mw->ProgressBar(
-borderwidth => 2,
-relief => 'sunken',
-width => 20,
-padx => 2,
-pady => 2,
-variable => \$status_var,
-colors => [ 0 => 'green',
10 => 'yellow',
20 => 'blue',
30 => 'green',
40 => 'yellow',
50 => 'blue',
60 => 'green',
70 => 'yellow' ,
80 => 'blue',
90 => 'red' ],
-resolution => 0,
-blocks => 50,
-anchor => 'w',
-from =>'0',
-to => '100'
)->pack(
-padx => 10,
-pady => 10,
-fill => 'both',
-expand => 1
);
for (my $lostime = 0 ; $lostime < 101 ; $lostime += 2) {
sleep 2 ;
$status_var=$lostime ;
print "comptage en cours: $lostime \n" ;
$mw->update;
}
sleep 5;
print "Fin de l'exemple update \n";
$mw->destroy;
MainLoop; |
Partager