aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
authormertz2004-05-07 13:52:01 +0000
committermertz2004-05-07 13:52:01 +0000
commit011ed156c5e62e01478e9c263d3c441aae909205 (patch)
treeb39f22c194a21f3832cb4e7f2765da2689b4816f /Perl
parentd30cfd5294f8ec2a6e0b2ce94a4677b214427989 (diff)
downloadtkzinc-011ed156c5e62e01478e9c263d3c441aae909205.zip
tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.gz
tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.bz2
tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.xz
typo in comment
Diffstat (limited to 'Perl')
-rw-r--r--Perl/t/Images.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/t/Images.t b/Perl/t/Images.t
index dfa342b..85b9714 100644
--- a/Perl/t/Images.t
+++ b/Perl/t/Images.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
#
-# $Id: Images.t,v 1.3 2003-11-28 09:21:10 mertz Exp $
+# $Id: Images.t,v 1.4 2004-05-07 13:52:01 mertz Exp $
# Author: Christophe Mertz
#
@@ -108,7 +108,7 @@ TODO: {
local $TODO = "because it makes Tk::Zinc dying" if 1;
# the next line makes Tk::Zinc (v3.29x) dying... so I comment it out the 3 next lines
- # $zinc->itemconfigure($rect1, -fillpattern => $bitmap)
+ # $zinc->itemconfigure($rect1, -fillpattern => $bitmap);
# is ($zinc->itemcget($rect1, -fillpattern), $bitmap, "verifying rectangle -fillpattern option value as a Tk::Bitmap");
# &wait ("displaying a rectangle with -fillpattern as a Tk::Bitmap");
}