File Coverage

lib/Games/Sudoku/Component/TkPlayer/Splashscreen.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Games::Sudoku::Component::TkPlayer::Splashscreen;
{
  use strict;
  use warnings;
  use Carp;

  use Tk::widgets qw/Toplevel/;
  use base qw/Tk::Toplevel/;

  Construct Tk::Widget 'Splashscreen';

  use Tk::ProgressBar;

  sub Populate {
    my $this = shift;

    $this->withdraw;
    $this->geometry('300x50+0+0');
    $this->overrideredirect(1);

    $this->SUPER::Populate(@_);

    $this->Label(
      -text => 'Loading...',
    )->pack(
      -fill => 'x',
      -expand => 1,
    );
    $this->{pbar} = $this->ProgressBar(
      -anchor => 'w',
      -colors => [0, 'blue'],
    )->pack(
      -side  => 'top',
      -fill  => 'x',
      -padx  => 10,
      -pady  => 10,
    );
  }

  sub progress {
    my ($this, $value) = @_;

    $this->{pbar}->value($value);
  }

  sub Show {
    my ($this, %args) = @_;

    $this->{pbar}->configure(
      -blocks => int($args{-max} / 5),
      -to     => $args{-max},
    );

    $this->{old_focus} = $this->focusSave;
    $this->{old_grab}  = $this->grabSave;

    $this->transient($this->Parent->toplevel);

    $this->Popup(
      -popover => $this->Parent,
      -overanchor => 'c',
      -popanchor => 'se',
    );

    $this->grab;

    if (my $focusw = $this->cget(-focus)) {
      $focusw->focus;
    }
    else {
      $this->focus;
    }
  }

  sub Hide {
    my $this = shift;

    $this->grabRelease;

    $this->{old_focus}->();
    $this->{old_grab}->();

    $this->withdraw;
  }
}

1;

__END__