aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/t/AnimatedGradient.t13
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;
+
+}