diff options
author | marion | 2007-09-24 13:24:19 +0000 |
---|---|---|
committer | marion | 2007-09-24 13:24:19 +0000 |
commit | bc5487e344dd8c4db6ae8fbb28a09d575ebd070f (patch) | |
tree | 09e0e6d25d3eea95a2f71224d71da78b911c7c02 /src/MTools/Anim/MScalor.pm | |
parent | a7bd2b66c38b625a50ab8bf85e8d8ea0be78ac8f (diff) | |
download | mtc-bc5487e344dd8c4db6ae8fbb28a09d575ebd070f.zip mtc-bc5487e344dd8c4db6ae8fbb28a09d575ebd070f.tar.gz mtc-bc5487e344dd8c4db6ae8fbb28a09d575ebd070f.tar.bz2 mtc-bc5487e344dd8c4db6ae8fbb28a09d575ebd070f.tar.xz |
Correction de endcommand,stopcommand de certaines classes du repertoire Anim
Diffstat (limited to 'src/MTools/Anim/MScalor.pm')
-rw-r--r-- | src/MTools/Anim/MScalor.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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 (); |