1 files changed, 3 insertions, 1 deletions
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);