diff options
| author | marion | 2009-02-17 13:05:26 +0000 |
|---|---|---|
| committer | marion | 2009-02-17 13:05:26 +0000 |
| commit | 13cfe752aa4d255a17dcdcb036676c1fca449060 (patch) | |
| tree | b187285d6d8b1418d1f193f7a36fa1f2cd8618b5 /src/MTools/Anim/MOpacity.pm | |
| parent | d0abbef391942ce67ca6dfb430e8bdb0ebdda841 (diff) | |
| download | mtc-13cfe752aa4d255a17dcdcb036676c1fca449060.zip mtc-13cfe752aa4d255a17dcdcb036676c1fca449060.tar.gz mtc-13cfe752aa4d255a17dcdcb036676c1fca449060.tar.bz2 mtc-13cfe752aa4d255a17dcdcb036676c1fca449060.tar.xz | |
ajout de la methode complete pour MOpacity
Diffstat (limited to 'src/MTools/Anim/MOpacity.pm')
| -rw-r--r-- | src/MTools/Anim/MOpacity.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/MTools/Anim/MOpacity.pm b/src/MTools/Anim/MOpacity.pm index 64cf739..4525b2d 100644 --- a/src/MTools/Anim/MOpacity.pm +++ b/src/MTools/Anim/MOpacity.pm @@ -115,6 +115,13 @@ sub stop { } } +sub complete { + my ($self) = @_; + return if !$self->isRunning(); + $self->__event($self -> mget ('to_opacity') - $self -> {__opacitydep}); + $self->stop(); +} + sub __event { my ($self, $opacity) = @_; $opacity += $self -> {__opacitydep}; |