diff options
Diffstat (limited to 'doc/exemple_groupe.pl')
-rwxr-xr-x | doc/exemple_groupe.pl | 4 |
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); |