Foro - Perl en Español

por **BigBear** » 2010-04-16 18:01 @792

Hola. Ando teniendo una duda, porque quiero usar un gif animado que se comience a mover cuando le de clic a un botón pero lo raro es que no da errores pero el gif ni se mueve.

Código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tk;
use Tk::Animation;
 
my $mw = MainWindow->new; 
$mw->title("Animated GIF"); 
 
my @gif_files = "tigre.gif"; 
 
my $animate = $mw->Animation;
 
for (@gif_files) {
    $animate->add_frame(
        $mw->Photo( -file => $_ )
    );
}
 
$animate->set_image(0);
 
my $lab   = $mw->Label( -image => $animate )->grid;
my $start = $mw->Button(
    -text => 'Start',
    -command => [ $animate => 'start_animation', 500 ]
)->grid;
my $stop = $mw->Button(
    -text => 'Stop',
    -command => [ $animate => 'stop_animation' ]
)->grid;
 
 
 
MainLoop;
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

¿Alguien me puede ayudar?

#!/usr/local/bin/perl -w
use Tk;
 
my $mw = MainWindow->new;
 
use strict;
 
use Tk::widgets qw(Photo Animation);
 
my $file = (@ARGV) ? shift : Tk->findINC('anim.gif');
 
my $img = $mw->Animation('-format' => 'gif',-file => $file);
 
my $lab = $mw->Label(-image => $img);
 
my $start = $mw->Button(-text => 'Start', -command => ['start_animation' => $img]);
my $stop  = $mw->Button(-text => 'Stop', -command => ['stop_animation' => $img]);
my $quit  = $mw->Button(-text => 'Quit', -command => [destroy => $mw]);
Tk::grid($lab,'-','-',-sticky => 'nsew');
Tk::grid($start, $stop, $quit,-sticky => 'ew');
$mw->gridRowconfigure(0,-weight => 1);
MainLoop;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Como ves, se define la animación como 'gif' y se indica el fichero gif que contiene la animación. Luego, se definen los botones (a propósito, de forma muy distinta a como los tienes tu definidos. Quizás depende de la versión de Tk que tengas instalada).

Foro - Perl en Español

Cómo usar correctamente Tk::Animation

Cómo usar correctamente Tk::Animation

Publicidad

Re: Cómo usar correctamente Tk::Animation

¿Quién está conectado?