From 3c98f0da26adb393f998be819600d8238f53456c Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 3 Sep 2008 12:55:28 +0000
Subject: Adding 'complete' function.

---
 src/MTools/Anim/MTranslator.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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) = @_;
 	
-- 
cgit v1.1