diff options
Diffstat (limited to 'src/MTools')
| -rw-r--r-- | src/MTools/Anim/MOpacity.pm | 6 | ||||
| -rw-r--r-- | src/MTools/Anim/MPath.pm | 7 | ||||
| -rw-r--r-- | 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 (); |