diff options
| -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"); } |