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