NAME

Tk::ProgressIndicator - Another, simpler ProgressBar

SYNOPSIS

    use Tk::ProgressIndicator;
    my $MainWindow = MainWindow->new();
    $ProgressIndicator = $MainWindow->ProgressIndicator
       (
        '-current' => 0,
        '-limit' => 200,
        '-increment' => 10,
        '-height' => 20,
        '-width' => 400
       );
    Tk::MainLoop;
    ...
    $ProgressIndicator->configure ('-current' => ++$index);

DESCRIPTION

A progress bar widget.

AUTHORS

Damion K. Wilson, dkw@rcm.bm

HISTORY

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 163:

=cut found outside a pod block. Skipping to next block.