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/MPath.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

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'),
 						    );
-- 
cgit v1.1