… | |
… | |
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 | |