From cc5a8f9ba0bd6bb53d1629e45c781be965799435 Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 6 Jun 2007 06:22:04 +0000
Subject: Code plus polyvalent

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

(limited to 'src/MTools/Anim/MTranslator.pm')

diff --git a/src/MTools/Anim/MTranslator.pm b/src/MTools/Anim/MTranslator.pm
index c50aef9..734f42b 100644
--- a/src/MTools/Anim/MTranslator.pm
+++ b/src/MTools/Anim/MTranslator.pm
@@ -155,7 +155,14 @@ sub event {
 		}
 		else
 		{
-			$targets [$i] -> translate ($x - $self -> {__x}, $y - $self -> {__y});
+			if (ref($targets [$i]) eq '')
+			{
+				translate ($targets [$i], $x - $self -> {__x}, $y - $self -> {__y});
+			}
+			else
+			{
+				$targets [$i] -> translate ($x - $self -> {__x}, $y - $self -> {__y});
+			}
 		}
 	}
 	$self -> {__x} = $x;
-- 
cgit v1.1