view release on metacpan or  search on metacpan

lib/Tickit/Widget/Button.pm  view on Meta::CPAN

   $_on_click->( $self );
}

# Activation by key should "flash" the button briefly on the screen as a
# visual feedback
method key_click
{
   $self->click;
   if( my $window = $self->window ) {
      $self->set_style_tag( active => 1 );
      $window->tickit->timer( after => 0.1, sub { $self->set_style_tag( active => 0 ) } );
   }
   return 1;
}

method _activate
{
   my ( $active ) = @_;
   $self->{active} = $active;
   $self->set_style_tag( active => $active );
}

lib/Tickit/Widget/Spinner.pm  view on Meta::CPAN

}

method tick
{
   return unless $_running;

   my $state = $_state++;
   $_state %= @_chars;

   if( my $win = $self->window ) {
      $win->tickit->timer( after => $_interval => sub { $self->tick } );
      $win->expose( $_rect );
   }
}

method render_to_rb
{
   my ( $rb, $rect ) = @_;

   $rb->eraserect( $rect );

t/24spinner.t  view on Meta::CPAN

ok( defined $spinner, 'defined $spinner' );

$spinner->set_window( $win );

flush_tickit;

is_display( [ BLANKLINES(4),
              [BLANK(11), TEXT("\\")]],
            'Display initially' );

# TODO: Can't unit-test any more for now because we don't have timer support
# in Tickit::Test.

done_testing;