diff options
| -rw-r--r-- | Perl/t/AnimatedGradient.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/Perl/t/AnimatedGradient.t b/Perl/t/AnimatedGradient.t index e65f9a3..8a8418e 100644 --- a/Perl/t/AnimatedGradient.t +++ b/Perl/t/AnimatedGradient.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: AnimatedGradient.t,v 1.1 2004-09-20 20:07:06 mertz Exp $ +# $Id: AnimatedGradient.t,v 1.2 2005-12-02 20:59:27 mertz Exp $ # Author: Christophe Mertz mertz@intuilab.com # @@ -39,6 +39,13 @@ my $zinc = $mw->Zinc(-width => 200, -height => 200, -backcolor => "white", like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created"); + +$zinc->after(10, \&proceedTests); + +Tk::MainLoop; + +sub proceedTests { + $zinc->add('text', 1, -position => [10,5], -text => "the gradient fills a rectangle which is clipped by the curve @@ -173,3 +180,7 @@ for (1..4) { } pass("fade out/in in 400 steps"); } + +exit; + +} |