… | |
… | |
2026 | |
2026 | |
2027 | $self->{oy} = int ($self->{valign} < 0 ? $self->{padding_y} |
2027 | $self->{oy} = int ($self->{valign} < 0 ? $self->{padding_y} |
2028 | : $self->{valign} > 0 ? $self->{h} - $size->[1] - $self->{padding_y} |
2028 | : $self->{valign} > 0 ? $self->{h} - $size->[1] - $self->{padding_y} |
2029 | : ($self->{h} - $size->[1]) * 0.5); |
2029 | : ($self->{h} - $size->[1]) * 0.5); |
2030 | }; |
2030 | }; |
2031 | |
|
|
2032 | my $w = List::Util::min $self->{w} + 4, $size->[0]; |
|
|
2033 | my $h = List::Util::min $self->{h} + 2, $size->[1]; |
|
|
2034 | |
2031 | |
2035 | $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style}); |
2032 | $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style}); |
2036 | } |
2033 | } |
2037 | |
2034 | |
2038 | ############################################################################# |
2035 | ############################################################################# |
… | |
… | |
3439 | |
3436 | |
3440 | if ($self->{anim} && $self->{animspeed}) { |
3437 | if ($self->{anim} && $self->{animspeed}) { |
3441 | CFPlus::weaken (my $widget = $self); |
3438 | CFPlus::weaken (my $widget = $self); |
3442 | |
3439 | |
3443 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
3440 | $widget->{animspeed} = List::Util::max 0.05, $widget->{animspeed}; |
3444 | $widget->{anim_start} = $self->{animspeed} * Event::time / $self->{animspeed}; |
3441 | $widget->{anim_start} = $self->{animspeed} * int Event::time / $self->{animspeed}; |
3445 | $self->{timer} = Event->timer ( |
3442 | $self->{timer} = Event->timer ( |
3446 | parked => 1, |
3443 | parked => 1, |
3447 | cb => sub { |
3444 | cb => sub { |
3448 | return unless $::CONN && $widget; |
3445 | return unless $::CONN && $widget; |
3449 | |
3446 | |