Beefy Boxes and Bandwidth Generously Provided by pair Networks Ovid
go ahead... be a heretic
 
PerlMonks  

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

by Khen1950fx (Canon)
on May 08, 2012 at 12:52 UTC ( #969445=note: print w/ replies, xml ) Need Help??


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

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;


Comment on Re: How to put animated GIF in a perl GUI created using Tk
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://969445]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2013-05-23 18:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (489 votes), past polls