diff options
| author | ribet | 2008-09-03 12:55:28 +0000 |
|---|---|---|
| committer | ribet | 2008-09-03 12:55:28 +0000 |
| commit | 3c98f0da26adb393f998be819600d8238f53456c (patch) | |
| tree | 7cc03107c2b6d1a9b667ac6ac3abf8ad9384dbea /src/MTools/Anim | |
| parent | fbed78e8c1b992a886a20ec7e1dd2817c55a2cae (diff) | |
| download | mtc-3c98f0da26adb393f998be819600d8238f53456c.zip mtc-3c98f0da26adb393f998be819600d8238f53456c.tar.gz mtc-3c98f0da26adb393f998be819600d8238f53456c.tar.bz2 mtc-3c98f0da26adb393f998be819600d8238f53456c.tar.xz | |
Adding 'complete' function.
Diffstat (limited to 'src/MTools/Anim')
| -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) = @_; |