diff options
| author | ribet | 2007-06-13 18:53:03 +0000 |
|---|---|---|
| committer | ribet | 2007-06-13 18:53:03 +0000 |
| commit | 80211308e4a34e5c29349725b2a4b14656d72f75 (patch) | |
| tree | 081dadfe16563c08e8967357d7ccefbe3e9ac4c2 /doc/exemple_rect.pl | |
| parent | c0dbd65a0c3e0b66d69b8fcc827f8380a7b35767 (diff) | |
| download | mtc-80211308e4a34e5c29349725b2a4b14656d72f75.zip mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.gz mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.bz2 mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.xz | |
Adding 'use strict;'
Diffstat (limited to 'doc/exemple_rect.pl')
| -rwxr-xr-x | doc/exemple_rect.pl | 4 |
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; |