Perl Progressbar

[mfarrag]

Dear perl professionals,

I have a problem in my perl code. I am trying to create progressbar which will be able to adapt its color according to specific decision i.e. if ($x<10)
$progress->configure(-colors=>[10,"green"])
else
$progress->configure(-colors=>[10,"red"])

assume progressbar is already created with @colors=(0,'green') and -colors = \@colors

I am trying to run this code but it doesn't work. I will be thankful for your help

 

[feherke]

Hi

Perl standard distribution alone is not able to create progress bars.
In case you used a Perl module, please specify which.

By the way, in case you use the [tt]Tk[/tt] module, your code works for me. Of course, after correcting the elementary Perl syntax errors.


Feherke.

http://feherke.github.com/

 

[mfarrag]

I am using tk:rogressbar and there's no compilation errors but the color of progressbar is not changed.

Here's example
@colors = (0,'green');
$progress = $mw->ProgressBar(
-width => 20,
-length => 200,
-colors => \@colors,
-variable => \$progress,
)->pack();


if ($x<10)
$progress->configure(-colors=>(0,'green',10,'red'));
else
$progress->configure(-colors=>(0,'green',10,'yellow'));