diff options
| -rw-r--r-- | src/MTools/Anim/MOpacity.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/MTools/Anim/MOpacity.pm b/src/MTools/Anim/MOpacity.pm index 64cf739..4525b2d 100644 --- a/src/MTools/Anim/MOpacity.pm +++ b/src/MTools/Anim/MOpacity.pm @@ -115,6 +115,13 @@ sub stop { } } +sub complete { + my ($self) = @_; + return if !$self->isRunning(); + $self->__event($self -> mget ('to_opacity') - $self -> {__opacitydep}); + $self->stop(); +} + sub __event { my ($self, $opacity) = @_; $opacity += $self -> {__opacitydep}; |