From 13cfe752aa4d255a17dcdcb036676c1fca449060 Mon Sep 17 00:00:00 2001
From: marion
Date: Tue, 17 Feb 2009 13:05:26 +0000
Subject: ajout de la methode complete pour MOpacity

---
 src/MTools/Anim/MOpacity.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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};
-- 
cgit v1.1