diff options
| author | mertz | 2005-12-02 20:59:27 +0000 |
|---|---|---|
| committer | mertz | 2005-12-02 20:59:27 +0000 |
| commit | 5f1158dd2b32200767dafca5e1d5273b32b652ca (patch) | |
| tree | 76445e3ef0dd850645732101766c44f33ce783e6 /Perl/t | |
| parent | 9a2a7bc2ecfe409aa0430008d17a7a6b99c758a6 (diff) | |
| download | tkzinc-5f1158dd2b32200767dafca5e1d5273b32b652ca.zip tkzinc-5f1158dd2b32200767dafca5e1d5273b32b652ca.tar.gz tkzinc-5f1158dd2b32200767dafca5e1d5273b32b652ca.tar.bz2 tkzinc-5f1158dd2b32200767dafca5e1d5273b32b652ca.tar.xz | |
Using a MainLoop as $zinc->update before a mainloop makes core dumping
Diffstat (limited to 'Perl/t')
| -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; + +} |