aboutsummaryrefslogtreecommitdiff
path: root/src/MTools
diff options
context:
space:
mode:
Diffstat (limited to 'src/MTools')
-rw-r--r--src/MTools/Anim/MPath.pm7
-rw-r--r--src/MTools/Anim/MScalor.pm8
2 files changed, 14 insertions, 1 deletions
diff --git a/src/MTools/Anim/MPath.pm b/src/MTools/Anim/MPath.pm
index f6213f7..57fd846 100644
--- a/src/MTools/Anim/MPath.pm
+++ b/src/MTools/Anim/MPath.pm
@@ -138,6 +138,13 @@ sub stop {
}
}
+sub complete {
+ my ($self) = @_;
+ return if !$self->isRunning();
+ $self->__event(100);
+ $self->stop();
+}
+
sub __getPoint {
my ($self, $percentage) = @_;
my @points = @{$self -> mget ('path')};
diff --git a/src/MTools/Anim/MScalor.pm b/src/MTools/Anim/MScalor.pm
index 4845c54..da1914d 100644
--- a/src/MTools/Anim/MScalor.pm
+++ b/src/MTools/Anim/MScalor.pm
@@ -55,7 +55,6 @@ sub new {
my ($class, %options) = @_;
my $self = new MTools::MObjet ();
bless $self, $class;
-
$self -> recordProperty ('-visible', 0);
$self -> recordProperty ('center_x', 0);
$self -> recordProperty ('center_y', 0);
@@ -123,6 +122,13 @@ sub stop {
}
}
+sub complete {
+ my ($self) = @_;
+ return if !$self->isRunning();
+ $self->__event($self -> mget ('to_x') - $self -> {__xdep}, $self -> mget ('to_y') - $self -> {__ydep});
+ $self->stop();
+}
+
sub __event {
my ($self, $x, $y) = @_;
my $cx = $self -> mget ('center_x');