| … | |
… | |
| 3673 | ); |
3673 | ); |
| 3674 | |
3674 | |
| 3675 | if ($self->{anim} && $self->{animspeed}) { |
3675 | if ($self->{anim} && $self->{animspeed}) { |
| 3676 | CFPlus::weaken (my $widget = $self); |
3676 | CFPlus::weaken (my $widget = $self); |
| 3677 | |
3677 | |
| 3678 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
3678 | $self->{animspeed} = List::Util::max 0.05, $self->{animspeed}; |
| 3679 | $widget->{anim_start} = $self->{animspeed} * int EV::now / $self->{animspeed}; |
3679 | $self->{timer} = EV::periodic_ns 0, $self->{animspeed}, undef, sub { |
| 3680 | $self->{timer} = EV::timer_ns 0, 0, sub { |
|
|
| 3681 | return unless $::CONN; |
3680 | return unless $::CONN; |
| 3682 | |
3681 | |
| 3683 | my $w = $widget |
3682 | my $w = $widget |
| 3684 | or return; |
3683 | or return; |
| 3685 | |
3684 | |
| … | |
… | |
| 3702 | my ($self) = @_; |
3701 | my ($self) = @_; |
| 3703 | |
3702 | |
| 3704 | return unless $self->{timer}; |
3703 | return unless $self->{timer}; |
| 3705 | |
3704 | |
| 3706 | if ($self->{visible}) { |
3705 | if ($self->{visible}) { |
| 3707 | $self->{timer}->set ( |
|
|
| 3708 | $self->{anim_start} |
|
|
| 3709 | + $self->{animspeed} |
|
|
| 3710 | * int 1.5 + (EV::now - $self->{anim_start}) / $self->{animspeed} |
|
|
| 3711 | ); |
|
|
| 3712 | $self->{timer}->start; |
3706 | $self->{timer}->start; |
| 3713 | } else { |
3707 | } else { |
| 3714 | $self->{timer}->stop; |
3708 | $self->{timer}->stop; |
| 3715 | } |
3709 | } |
| 3716 | } |
3710 | } |
| … | |
… | |
| 4181 | values %{ $self->{item} }; |
4175 | values %{ $self->{item} }; |
| 4182 | |
4176 | |
| 4183 | while (my ($k, $v) = each %{ $self->{item} }) { |
4177 | while (my ($k, $v) = each %{ $self->{item} }) { |
| 4184 | delete $self->{item}{$k} if $v->{timeout} < $NOW; |
4178 | delete $self->{item}{$k} if $v->{timeout} < $NOW; |
| 4185 | } |
4179 | } |
| 4186 | |
|
|
| 4187 | $self->{timer}->set (1, 1); |
|
|
| 4188 | |
4180 | |
| 4189 | my @widgets; |
4181 | my @widgets; |
| 4190 | |
4182 | |
| 4191 | my @items = sort { |
4183 | my @items = sort { |
| 4192 | $a->{pri} <=> $b->{pri} |
4184 | $a->{pri} <=> $b->{pri} |
