diff options
Diffstat (limited to 'src/MTools/Anim/MScalor.pm')
| -rw-r--r-- | src/MTools/Anim/MScalor.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/MTools/Anim/MScalor.pm b/src/MTools/Anim/MScalor.pm index eb8695f..8131b7a 100644 --- a/src/MTools/Anim/MScalor.pm +++ b/src/MTools/Anim/MScalor.pm @@ -139,7 +139,14 @@ sub __event { } for (my $i = 0; $i < @targets; $i++) { - scale ($targets [$i], $x / $self -> {__x}, $y / $self -> {__y}, $cx, $cy); + if (ref($targets [$i]) eq '') + { + scale ($targets [$i], $x / $self -> {__x}, $y / $self -> {__y}, $cx, $cy); + } + else + { + $targets [$i] -> scale ($x / $self -> {__x}, $y / $self -> {__y}, $cx, $cy); + } } $self -> {__x} = $x; $self -> {__y} = $y; |