From bc5487e344dd8c4db6ae8fbb28a09d575ebd070f Mon Sep 17 00:00:00 2001
From: marion
Date: Mon, 24 Sep 2007 13:24:19 +0000
Subject: Correction de endcommand,stopcommand de certaines classes du
 repertoire Anim

---
 src/MTools/Anim/MScalor.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/MTools/Anim/MScalor.pm b/src/MTools/Anim/MScalor.pm
index 8131b7a..8cac21e 100644
--- a/src/MTools/Anim/MScalor.pm
+++ b/src/MTools/Anim/MScalor.pm
@@ -105,9 +105,11 @@ sub start {
 		-resources => [
 			$animationpath,
 			-command => sub { $self -> __event (@_)},
-			-endcommand => sub {$self -> notify ('ANIMATION_END');$self -> {__animation} = undef;},
+			-endcommand => sub {$self -> {__animation} = undef;
+					    $self -> notify ('ANIMATION_END');},
 		],
-		-stopcommand => sub {$self -> notify ('ANIMATION_ABORD', $self -> {__x}, $self -> {__y});$self -> {__animation} = undef;},
+		-stopcommand => sub {$self -> {__animation} = undef;
+				     $self -> notify ('ANIMATION_ABORD', $self -> {__x}, $self -> {__y});},
 		-loop => $self -> mget ('loop'),
 	);
 	$animation -> start ();
-- 
cgit v1.1