The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Prima::Spinner - Show a spinner animation

SYNOPSIS

  use Prima qw(Application Buttons Spinner);

  my $mw = Prima::MainWindow->new(
                size => [200, 400],
                text => 'Button Example');

  my $spinner = $mw->insert('Spinner',
        style => 'drops',
        size => [200,400],
        growMode => gm::Center
  );

  my $button = $mw->insert(
        'Button',
        text => 'Start/Stop',
        checkable => 1,
        checked => 1,
        origin => [0,0],
        onClick => sub { $spinner->toggle },
        growMode => gm::XCenter
  );

  run Prima;

DESCRIPTION

Prima::Spinner provides a simple spinning animation with two designs and the opportunity to specify the colors of the spinning animation. This is useful to show an indeterminate progress of a running process.

USAGE

You can determine the following properties:

Properties

active [BOOLEAN]

If now parameter is passed, by this method you can get the active state of the spinning widget. '1' means that the spinner is running, '0' that it is stopped. With active(1) you can start the spinner animation, with active(0) you can stop it.

color COLOR

Inherited from Prima::Widget. color manages the basic foreground color. Concrete for the spinner widget this means the background color of the circle or the color of the active drops.

hiliteColor COLOR

Inherited from Prima::Widget. The color used to draw alternate foreground areas with high contrast. For the spinner widget this means the color of the arc. Only for circle style.

showPercent BOOLEAN

If set, displays completion percent as text. Only for circle style.

start

Same as active(1)

stop

Same as active(0)

style STRING

style can be 'drops', 'circle' or 'spiral'. 'drops' shows drops that switches consecutively the color. With 'circle' an arc moving around a circle is shown. 'spiral' shows a spinning spiral. The default is 'drops'.

value INT

Integer between 0 and 100, showing completion perentage. Only for circle style.

toggle

Same as active(!active)

SEE ALSO

Prima. Prima::Widget, examples/spinner.pl

AUTHOR

Maximilian Lika

COPYRIGHT AND LICENSE

Copyright (C) 2017 by Maximilian Lika

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.22.2 or, at your option, any later version of Perl 5 you may have available.