diff options
Diffstat (limited to 'doc/manuel_utilisateur.txt')
| -rw-r--r-- | doc/manuel_utilisateur.txt | 16 |
1 files changed, 8 insertions, 8 deletions
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(); |