| … | |
… | |
| 3498 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
3498 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
| 3499 | $widget->{anim_start} = $self->{animspeed} * Event::time / $self->{animspeed}; |
3499 | $widget->{anim_start} = $self->{animspeed} * Event::time / $self->{animspeed}; |
| 3500 | $self->{timer} = Event->timer ( |
3500 | $self->{timer} = Event->timer ( |
| 3501 | parked => 1, |
3501 | parked => 1, |
| 3502 | cb => sub { |
3502 | cb => sub { |
| 3503 | return unless $::CONN; |
3503 | return unless $::CONN && $widget; |
| 3504 | |
|
|
| 3505 | if (!$widget) {#d# |
|
|
| 3506 | warn "animation widget timer active but widgetd estroyed\n";#d# |
|
|
| 3507 | warn $_[0]->w->active;#d# |
|
|
| 3508 | }#d# |
|
|
| 3509 | |
3504 | |
| 3510 | ++$widget->{frame}; |
3505 | ++$widget->{frame}; |
| 3511 | $widget->update_face; |
3506 | $widget->update_face; |
| 3512 | $widget->update; |
3507 | $widget->update; |
| 3513 | |
3508 | |
