Tk::ActivityBar - Adds an indeterminate progress display to Tk::ProgressBar.
use Tk::ActivityBar;
$progress = $parent->ActivityBar(
-width => 200,
-length => 20,
-anchor => 's',
-from => 0,
-to => 100,
-blocks => 10,
-colors => [0, 'green', 50, 'yellow' , 80, 'red'],
-variable => \$percent_done
);
$progress->value($position);
Tk::ActivityBar keeps all the functions of Tk::ProgressBar and adds a display indicating indeterminate progress: either a continuously cycling 'barberpole,' or a continuously cycling Tk::Image.
Specifies the angle of the stripes in the barberpole display, in degrees. Defaults to 45.
Specifies the color of the 'background' stripes in the barberpole display. Defaults to 'SlateGray1'.
Specifies the color of the 'foreground' stripes in the barberpole display. Defaults to 'SlateGray3'.
Specifies the distance in pixels taken up by individual barbershop bands along the length of the bar. Defaults to 15.
Specifies the Tk::Image to be used for the cycling display. If the -image option is used, then the specified image will be used instead of the barbershop display.
Specifies the offset of the image in X, Y pixels, as an anonymous array. Defaults to [0, 0].
Specifies the number of pixels the display will be shifted each time it is updated. Defaults to 1.
Specifies the number of milliseconds between display updates. Smaller values will result in a faster cycling speed. Defaults to 100.
Activates a cycling indeterminate progress display. This display will continue until the -value method of Tk::ProgressBar is used, or until the variable set using the -variable method is changed.
Bret Aarden <aarden.1 at osu.edu>
