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.