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;
+
+}