From 5f1158dd2b32200767dafca5e1d5273b32b652ca Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 2 Dec 2005 20:59:27 +0000
Subject: Using a MainLoop as $zinc->update before a mainloop makes core
 dumping

---
 Perl/t/AnimatedGradient.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'Perl/t/AnimatedGradient.t')

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;
+
+}
-- 
cgit v1.1