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/MOpacity.pm | 6 ++++--
 src/MTools/Anim/MPath.pm    | 7 ++++---
 src/MTools/Anim/MScalor.pm  | 6 ++++--
 3 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/src/MTools/Anim/MOpacity.pm b/src/MTools/Anim/MOpacity.pm
index cbb5571..19c2108 100644
--- a/src/MTools/Anim/MOpacity.pm
+++ b/src/MTools/Anim/MOpacity.pm
@@ -98,9 +98,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 -> {__opacity});$self -> {__animation} = undef;},
+		-stopcommand => sub {$self -> {__animation} = undef;
+				     $self -> notify ('ANIMATION_ABORD', $self -> {__opacity});},
 		-loop => $self -> mget ('loop'),
 	);
 	$animation -> start ();
diff --git a/src/MTools/Anim/MPath.pm b/src/MTools/Anim/MPath.pm
index 6d73cff..f6213f7 100644
--- a/src/MTools/Anim/MPath.pm
+++ b/src/MTools/Anim/MPath.pm
@@ -117,12 +117,13 @@ 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 -> __getPoint ($self -> {__percentage}));
 						       $self -> {__animation} = undef;
+						       $self -> notify ('ANIMATION_ABORD', $self -> __getPoint ($self -> {__percentage}));
 						     },
 						     -loop => $self -> mget ('loop'),
 						    );
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