aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authormarion2007-09-24 13:24:19 +0000
committermarion2007-09-24 13:24:19 +0000
commitbc5487e344dd8c4db6ae8fbb28a09d575ebd070f (patch)
tree09e0e6d25d3eea95a2f71224d71da78b911c7c02 /src
parenta7bd2b66c38b625a50ab8bf85e8d8ea0be78ac8f (diff)
downloadmtc-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')
-rw-r--r--src/MTools/Anim/MOpacity.pm6
-rw-r--r--src/MTools/Anim/MPath.pm7
-rw-r--r--src/MTools/Anim/MScalor.pm6
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 ();