From 4fd9ef49bb8f41ec1583dda78d424ded7f929556 Mon Sep 17 00:00:00 2001
From: marion
Date: Tue, 24 Jul 2007 14:44:41 +0000
Subject: Correction pour une initialisation correcte

---
 src/MTools/Transform/MRotation.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/MTools/Transform/MRotation.pm b/src/MTools/Transform/MRotation.pm
index 16b405a..f019bdb 100644
--- a/src/MTools/Transform/MRotation.pm
+++ b/src/MTools/Transform/MRotation.pm
@@ -37,6 +37,7 @@ sub new {
 	if (!defined $x) {$x = 0;}
 	if (!defined $y) {$y = 0;}
 	if (!defined $angle) {$angle = 0;}
+	$self -> {__current_angle} = 0;
 
 	$self -> recordProperty ('-visible', 0);
 	$self -> recordProperty ('target', $target);
@@ -58,7 +59,6 @@ sub new {
 		my ($src, $key, $val) = @_;
 		$self -> __rotate ($val);
 	});
-	$self -> {__current_angle} = 0;
 	$self -> __rotate ($angle);
 	return $self;
 }
-- 
cgit v1.1