Re: Tk::Animation won't work :(

Here you go:

use Tk;
use Tk::Animation;
use strict;

my $scr = new MainWindow;
   $scr->configure(-background=>"black");
   $scr->geometry("500x500");
my $canvas = $scr->Canvas(-width,500,-height,500,
   -background=> "black")->pack(-expand, 1, -fill, 'both');
my $image  = $scr->Animation('-format' => 'gif', -file => "tree.gif");
   $canvas->createImage( 250,250, -image=> $image);
   $image->blank($image,1);
   $image->start_animation(40);

MainLoop;
[download]

JamesNC

Comment on Re: Tk::Animation won't work :( Download Code

Replies are listed 'Best First'.
Re^2: Tk::Animation won't work :( by rvosa (Curate) on May 13, 2005 at 17:47 UTC
Yay! It works! Thanks.	[reply]
Re^3: Tk::Animation won't work :( by JamesNC (Chaplain) on May 13, 2005 at 18:04 UTC
You are most welcome :^)	[reply]