17 files changed, 41 insertions, 17 deletions

diff --git a/doc/exemple_circle.pl b/doc/exemple_circle.pl
index 290bec4..0e7bb2d 100755
--- a/doc/exemple_circle.pl
+++ b/doc/exemple_circle.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MCircle;
 
@@ -26,6 +28,6 @@ use MTools::GUI::MCircle;
 new MTools (800, 600, "Exemple de cercle");
 
 my $cercle = new MTools::GUI::MCircle (1, 400, 300, 200);
-my $disque = new MTools::GUI::MCircle (1, 400, 300, 200, -filled => 1, -fillcolor => red);
+my $disque = new MTools::GUI::MCircle (1, 400, 300, 200, -filled => 1, -fillcolor => "red");
 
 mrun;
diff --git a/doc/exemple_clip.pl b/doc/exemple_clip.pl
index bbfab40..bd7fd05 100755
--- a/doc/exemple_clip.pl
+++ b/doc/exemple_clip.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MGroup;
 use MTools::GUI::MCircle;
diff --git a/doc/exemple_curve.pl b/doc/exemple_curve.pl
index 58fcecc..a6cf464 100755
--- a/doc/exemple_curve.pl
+++ b/doc/exemple_curve.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MCurve;
 
diff --git a/doc/exemple_groupe.pl b/doc/exemple_groupe.pl
index 8b70a05..58cbbfb 100755
--- a/doc/exemple_groupe.pl
+++ b/doc/exemple_groupe.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use Math::Trig;
 use MTools;
 use MTools::GUI::MRect;
@@ -29,7 +31,7 @@ new MTools (800, 600, "Exemple de groupe");
 my $group = new MTools::GUI::MGroup (1);
 my $contour = new MTools::GUI::MRect ($group, 400, 300, 200, 10);
 my $surface = new MTools::GUI::MRect ($group, 400, 400, 200, 20,
-				     -filled => 1, -fillcolor => red);
+				     -filled => 1, -fillcolor => "red");
 clone($group);
 $group->rotate(pi/4, 400, 300);
 
diff --git a/doc/exemple_image.pl b/doc/exemple_image.pl
index 3863a3a..1d614c7 100755
--- a/doc/exemple_image.pl
+++ b/doc/exemple_image.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MImage;
 
diff --git a/doc/exemple_opacite.pl b/doc/exemple_opacite.pl
index f52da49..216c10b 100755
--- a/doc/exemple_opacite.pl
+++ b/doc/exemple_opacite.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MRect;
 use MTools::GUI::MGroup;
@@ -26,8 +28,7 @@ use MTools::Anim::MOpacity;
 
 new MTools (800, 600, "Exemple de animation opacity");
 
-new MTools::GUI::MRect (1, 400, 200, 100, 300, -filled => 1, -fillcolor => red
-);
+new MTools::GUI::MRect (1, 400, 200, 100, 300, -filled => 1, -fillcolor => "red");
 my $group = new MTools::GUI::MGroup (1);
 
 new MTools::GUI::MRect ($group, 300, 300, 300, 100, -filled => 1);
diff --git a/doc/exemple_path.pl b/doc/exemple_path.pl
index a014865..94bad13 100755
--- a/doc/exemple_path.pl
+++ b/doc/exemple_path.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MRect;
 use MTools::Anim::MPath;
diff --git a/doc/exemple_rect.pl b/doc/exemple_rect.pl
index 5b0d44d..67c646b 100755
--- a/doc/exemple_rect.pl
+++ b/doc/exemple_rect.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MRect;
 
@@ -26,6 +28,6 @@ use MTools::GUI::MRect;
 new MTools (800, 600, "Exemple de rectangle");
 
 my $contour = new MTools::GUI::MRect (1, 400, 300, 200, 10);
-my $surface = new MTools::GUI::MRect (1, 400, 400, 200, 20, -filled => 1, -fillcolor => red);
+my $surface = new MTools::GUI::MRect (1, 400, 400, 200, 20, -filled => 1, -fillcolor => "red");
 
 mrun;
diff --git a/doc/exemple_rotation.pl b/doc/exemple_rotation.pl
index 6090221..0859209 100755
--- a/doc/exemple_rotation.pl
+++ b/doc/exemple_rotation.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use Tk;
 
 use Math::Trig;
@@ -28,9 +30,9 @@ use MTools::Transform::MRotation;
 
 new MTools (800, 600, "Exemple de rotation");
 
-my $background = new MTools::GUI::MRect (1, 0, 0, 800, 600, -filled => 1, -fillcolor => lightblue);
+my $background = new MTools::GUI::MRect (1, 0, 0, 800, 600, -filled => 1, -fillcolor => "lightblue");
 
-my $barre = new MTools::GUI::MRect (1, 400, 300, 200, 20, -fillcolor => pink);
+my $barre = new MTools::GUI::MRect (1, 400, 300, 200, 20, -fillcolor => "pink");
 $barre->rotate(-(pi/2), 400, 300);
 
 my $rotation = new MTools::Transform::MRotation($barre, 0, 400, 300);
diff --git a/doc/exemple_scale.pl b/doc/exemple_scale.pl
index 2e583d3..91e4adb 100755
--- a/doc/exemple_scale.pl
+++ b/doc/exemple_scale.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::GUI::MRect;
 use MTools::GUI::MText;
diff --git a/doc/exemple_svg.pl b/doc/exemple_svg.pl
index 9ad5d28..71a56e9 100755
--- a/doc/exemple_svg.pl
+++ b/doc/exemple_svg.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 
 new MTools (800, 600, "Exemple de svg");
diff --git a/doc/exemple_switch.pl b/doc/exemple_switch.pl
index bbc9b20..d40a732 100755
--- a/doc/exemple_switch.pl
+++ b/doc/exemple_switch.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::MSwitch;
 use MTools::MTimer;
@@ -43,7 +44,7 @@ my $switch = new MTools::MSwitch(1,
 				 partiel => $mauve,
 				 anim => ["basique.svg#layer1", $mauve, $anim],
 				 complet => ["basique.svg#layer1", $mauve]);
-$switch->setState(partiel);
+$switch->setState("partiel");
 
 my @states = qw(vide partiel anim complet);
 my $timer = new MTools::MTimer(1000, 1, \&switch);
diff --git a/doc/exemple_texte.pl b/doc/exemple_texte.pl
index 031ca1c..49cf250 100755
--- a/doc/exemple_texte.pl
+++ b/doc/exemple_texte.pl
@@ -19,11 +19,12 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::GUI::MText;
 
 new MTools (800, 600, "Exemple de texte");
 
-my $message = new MTools::GUI::MText(1, "Texte d'exemple", 100, 100, -color => gray);
+my $message = new MTools::GUI::MText(1, "Texte d'exemple", 100, 100, -color => "gray");
 
 mrun;
diff --git a/doc/exemple_texture.pl b/doc/exemple_texture.pl
index a2fa156..7a3e804 100755
--- a/doc/exemple_texture.pl
+++ b/doc/exemple_texture.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::GUI::MCurve;
 use MTools::GUI::MTexture;
diff --git a/doc/exemple_timer.pl b/doc/exemple_timer.pl
index 8262ad6..a025972 100755
--- a/doc/exemple_timer.pl
+++ b/doc/exemple_timer.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::GUI::MRect;
 use MTools::MTimer;
diff --git a/doc/exemple_translator.pl b/doc/exemple_translator.pl
index 6e4e9b8..46dc9e3 100755
--- a/doc/exemple_translator.pl
+++ b/doc/exemple_translator.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::GUI::MRect;
 use MTools::Anim::MTranslator;
diff --git a/doc/manuel_utilisateur.txt b/doc/manuel_utilisateur.txt
index 65fb16c..0aebc05 100644
--- a/doc/manuel_utilisateur.txt
+++ b/doc/manuel_utilisateur.txt
@@ -178,7 +178,7 @@ use MTools::GUI::MCircle;
 new MTools (800, 600, "Exemple de cercle");
 my $cercle = new MTools::GUI::MCircle (1, 400, 300, 200);
 my $disque = new MTools::GUI::MCircle (1, 400, 300, 200,
-				       -filled => 1, -fillcolor => red);
+				       -filled => 1, -fillcolor => "red");
 mrun;
 ________
 MRect.pm :  l'objet rectangle. La création nécessite les arguments suivants :
@@ -194,7 +194,7 @@ use MTools::GUI::MRect;
 new MTools (800, 600, "Exemple de rectangle");
 my $contour = new MTools::GUI::MRect (1, 400, 300, 200, 10);
 my $surface = new MTools::GUI::MRect (1, 400, 400, 200, 20,
-				     -filled => 1, -fillcolor => red);
+				     -filled => 1, -fillcolor => "red");
 mrun;
 _________
 MGroup.pm : cet objet permet de regrouper d'autres objets, qui peuvent aussi
@@ -213,7 +213,7 @@ new MTools (800, 600, "Exemple de groupe");
 my $group = new MTools::GUI::MGroup (1);
 my $contour = new MTools::GUI::MRect ($group, 400, 300, 200, 10);
 my $surface = new MTools::GUI::MRect ($group, 400, 400, 200, 20,
-				     -filled => 1, -fillcolor => red);
+				     -filled => 1, -fillcolor => "red");
 clone($group);
 $group->rotate(pi/4, 400, 300);
 mrun;
@@ -290,7 +290,7 @@ Exemple d'utilisation :
 use MTools;
 use MTools::GUI::MText;
 new MTools (800, 600, "Exemple de texte");
-my $message = new MTools::GUI::MText(1,"Texte d'exemple",100,100,-color=>gray);
+my $message=new MTools::GUI::MText(1,"Texte d'exemple",100,100,-color=>"gray");
 mrun;
 ___________
 MTexture.pm :
@@ -429,8 +429,8 @@ use MTools::GUI::MRect;
 use MTools::Transform::MRotation;
 new MTools (800, 600, "Exemple de rotation");
 my $background = new MTools::GUI::MRect (1, 0, 0, 800, 600, -filled => 1,
-					-fillcolor => lightblue);
-my $barre = new MTools::GUI::MRect (1, 400, 300, 200, 20, -fillcolor => pink);
+					-fillcolor => "lightblue");
+my $barre = new MTools::GUI::MRect(1, 400, 300, 200, 20, -fillcolor => "pink");
 $barre->rotate(-(pi/2), 400, 300);
 my $rotation = new MTools::Transform::MRotation($barre, 0, 400, 300);
 $background->binding('<Motion>', [\&moved, Ev('x'), Ev('y')]);
@@ -488,7 +488,7 @@ use MTools::GUI::MRect;
 use MTools::GUI::MGroup;
 use MTools::Anim::MOpacity;
 new MTools (800, 600, "Exemple de animation opacity");
-new MTools::GUI::MRect(1, 400, 200, 100, 300, -filled => 1, -fillcolor => red);
+new MTools::GUI::MRect(1, 400, 200, 100, 300, -filled=>1, -fillcolor=>"red");
 my $group = new MTools::GUI::MGroup (1);
 new MTools::GUI::MRect ($group, 300, 300, 300, 100, -filled => 1);
 my $anim = new MTools::Anim::MOpacity(targets => $group,
@@ -751,7 +751,7 @@ my $switch = new MTools::MSwitch(1,
 				 partiel => $mauve,
 				 anim => ["basique.svg#layer1", $mauve, $anim],
 				 complet => ["basique.svg#layer1", $mauve]);
-$switch->setState(partiel);
+$switch->setState("partiel");
 my @states = qw(vide partiel anim complet);
 my $timer = new MTools::MTimer(1000, 1, \&switch);
 $timer->start();