How to put animated GIF in a perl GUI created using Tk

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw    = MainWindow->new;
my $image = $mw->Photo(-file => 'C:/wamp/bin/Perl/bin/ajax_loader.gif'
+);
$mw->Label(-image=>$image)->pack;
$mw->MainLoop;

[download]

This image is animated one and it runs successfully in IE.

Comment on How to put animated GIF in a perl GUI created using Tk Download Code
Re: How to put animated GIF in a perl GUI created using Tk by Anonymous Monk on May 08, 2012 at 12:27 UTC
Try Tk::Animation - Display sequence of Tk::Photo images See also tk animation, tk gif	[reply]
Re: How to put animated GIF in a perl GUI created using Tk by ww (Chancellor) on May 08, 2012 at 12:29 UTC
Googling for `animated gif handler Tk` produces, among others, http://www.consistent.org/terran/reference/perltk.txt and http://docs.activestate.com/activetcl/8.5/img/doc/img-gif.html GD, rather than Tk but possibly helpful? http://search.cpan.org/~dmuey/GD-Image-AnimatedGif-0.05/AnimatedGif.pm http://www.aspfree.com/c/a/Code-Examples/Handling-Animation-and-Bitmaps-Using-GDI-for-Image-Manipulation/	[reply]
Re: How to put animated GIF in a perl GUI created using Tk by Khen1950fx (Canon) on May 08, 2012 at 12:52 UTC
Try this... `#!/usr/bin/perl use strict; use warnings; use Tk::Animation; my $gif = 'C:/wamp/bin/Perl/bin/ajax_loader.gif'; my $mw = MainWindow->new; my $img = $mw->Animation( '-format' => 'gif', '-file' => $gif, ); $mw->Label('-image' => $img)->pack; $img->start_animation; $mw->MainLoop;` [download]	[reply] [d/l]


The stupid question is the question not asked
	PerlMonks

How to put animated GIF in a perl GUI created using Tk

The best material for plates (tableware) is: