diff options
Diffstat (limited to 'src/MTools/Anim/MTranslator.pm')
| -rw-r--r-- | src/MTools/Anim/MTranslator.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/MTools/Anim/MTranslator.pm b/src/MTools/Anim/MTranslator.pm index 3211eb9..73877e4 100644 --- a/src/MTools/Anim/MTranslator.pm +++ b/src/MTools/Anim/MTranslator.pm @@ -92,6 +92,13 @@ sub stop { } } +sub complete { + my ($self) = @_; + return if !$self->isRunning(); + $self->event($self -> mget ('to_x') - $self -> {__xdep}, $self -> mget ('to_y') - $self -> {__ydep}); + $self->stop(); +} + sub start { my ($self) = @_; |