"Tickit::Widget::Spinner" − a widget displaying a small text animation
use Tickit;
use Tickit::Widget::Spinner;
my $spinner = Tickit::Widget::Spinner−>new(
chars => [ "<X> ", " <X>
", " <X>", "> <X",
"X> <" ],
);
Tickit−>new( root => $spinner
)−>run;
This class provides a widget which displays a simple animation, cycling through a fixed set of strings with a fixed interval.
The default style pen is used as the widget pen.
$spinner = Tickit::Widget::Spinner−>new( %args );
Constructs a new "Tickit::Widget::Spinner" object.
Takes the
following named arguments:
chars => ARRAY
Optional. An ARRAY reference containing the text strings to use.
interval => NUM
Optional. The time each string is displayed for. Defaults to 0.5.
$spinner−>start;
Starts the animation effect.
$spinner−>stop;
Stops the animation effect.
Paul Evans <[email protected]>