| … | |
… | |
| 3439 | |
3439 | |
| 3440 | if ($self->{anim} && $self->{animspeed}) { |
3440 | if ($self->{anim} && $self->{animspeed}) { |
| 3441 | CFPlus::weaken (my $widget = $self); |
3441 | CFPlus::weaken (my $widget = $self); |
| 3442 | |
3442 | |
| 3443 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
3443 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
| 3444 | $widget->{anim_start} = $self->{animspeed} * Event::time / $self->{animspeed}; |
3444 | $widget->{anim_start} = $self->{animspeed} * int Event::time / $self->{animspeed}; |
| 3445 | $self->{timer} = Event->timer ( |
3445 | $self->{timer} = Event->timer ( |
| 3446 | parked => 1, |
3446 | parked => 1, |
| 3447 | cb => sub { |
3447 | cb => sub { |
| 3448 | return unless $::CONN && $widget; |
3448 | return unless $::CONN && $widget; |
| 3449 | |
3449 | |
