From 80211308e4a34e5c29349725b2a4b14656d72f75 Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 13 Jun 2007 18:53:03 +0000
Subject: Adding 'use strict;'

---
 doc/manuel_utilisateur.txt | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'doc/manuel_utilisateur.txt')

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();
-- 
cgit v1.1