Subject: | Tk::ProgressBar configure method, -colors |
Dear,
Perl 5.10 on XP and 5.12 on Suse Linux
I have this program
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::ProgressBar;
my $mw = new MainWindow;
my $progress = $mw->ProgressBar(
-from => 0,
-to => 100,
-length => 200,
-width => 20,
)->pack(qw / -pady 10 /);
$progress->configure( -colors => [0,'red']);
$progress->update;
sleep 1;
$progress->configure( -colors => [0,'green']);
$progress->value(100);
$progress->update;
sleep 1;
$progress->value(0);
$progress->configure( -colors => [0,'yellow']);
$progress->value(100);
$progress->update;
MainLoop;
Normally, the progress bar must be red, green and yellow (after using
configure method), but nothing change. The change happened just if I
resize the widget manually with mouse.
Have a suggestion to resolve this bug ?
Best regards,
Djibril