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/MOpacity.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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

diff --git a/src/MTools/Anim/MOpacity.pm b/src/MTools/Anim/MOpacity.pm
index d7aba19..cbb5571 100644
--- a/src/MTools/Anim/MOpacity.pm
+++ b/src/MTools/Anim/MOpacity.pm
@@ -129,7 +129,14 @@ sub __event {
 	}
 	for (my $i = 0; $i < @targets; $i++)
 	{
-		$targets [$i] -> mconfigure ('-alpha' => $opacity);
+		if (ref($targets [$i]) eq '')
+		{
+			mconfigure ($targets[$i], '-alpha' => $opacity);
+		}
+		else
+		{
+			$targets [$i] -> mconfigure ('-alpha' => $opacity);
+		}
 	}
 	$self -> {__opacity} = $opacity;
 	$self -> notify ('OPACITY_CHANGED', $opacity);
-- 
cgit v1.1