diff options
author | mertz | 2004-05-07 13:52:01 +0000 |
---|---|---|
committer | mertz | 2004-05-07 13:52:01 +0000 |
commit | 011ed156c5e62e01478e9c263d3c441aae909205 (patch) | |
tree | b39f22c194a21f3832cb4e7f2765da2689b4816f /Perl/t | |
parent | d30cfd5294f8ec2a6e0b2ce94a4677b214427989 (diff) | |
download | tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.zip tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.gz tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.bz2 tkzinc-011ed156c5e62e01478e9c263d3c441aae909205.tar.xz |
typo in comment
Diffstat (limited to 'Perl/t')
-rw-r--r-- | Perl/t/Images.t | 4 |
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"); } |