tk help

[moof15]

Hi all:
I just need to know how to you reset a progress bar back to the beginning of the progress bar after it completes the first script.
This is what I have now and it only does one script:
$ProgressBar2->configure(-value => $loop_index2);
$ProgressBar2->update;

Thanks,
moof15

 

[raider2001]

You need to set the variable that controls the progress bar to 0. Here's an example:

use Tk;
use Tk::ProgressBar;
$Main = MainWindow->new(); 
$ResetButton = $Main->Button(-text=>'Reset', -command=>sub {$PctDone=0})->pack();
$PctDone = 35;
$ProgressBar = $Main->ProgressBar(-variable => \$PctDone)->pack();
MainLoop();
exit;