aboutsummaryrefslogtreecommitdiff
path: root/src/MTools
diff options
context:
space:
mode:
Diffstat (limited to 'src/MTools')
-rw-r--r--src/MTools/Anim/MTranslator.pm7
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) = @_;