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

Along w/Popcorn Dave's thoughts, i also am supsicious that the widget is not being packed/displayed properly.. On thing that might be contributing (though i still couldn't get a working version after hardcoding 500's) is that $scr->width and $scr->height are both returning 1, even after the ->geomerty() call.

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

Replies are listed 'Best First'.
Re^2: Tk::Animation won't work :( by rvosa (Curate) on May 13, 2005 at 17:34 UTC
You're right about the geometry thing. Let me rephrase: `my $scr = new MainWindow; $scr->FullScreen(1); $scr->configure(-background=>"yellow"); my $canvas = $scr->Canvas( -background=>"blue", -width=>$scr->width, -height=>$scr->height )->pack( -side=>"top" ); my $tree = $canvas->Animation( -format => 'GIF', -file => 'tree.gif' )->start_animation( 20 );` [download] This yields a blue screen, not a yellow one, with nothing on it. I'm not sure how the pack syntax should be for Animation..? The pod remains silent on the issue...	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Tk::Animation won't work :(
by rvosa (Curate) on May 13, 2005 at 17:34 UTC

my $scr = new MainWindow;
$scr->FullScreen(1);
$scr->configure(-background=>"yellow");

my $canvas = $scr->Canvas(
   -background=>"blue",
   -width=>$scr->width,
   -height=>$scr->height
)->pack( -side=>"top" );
        
my $tree = $canvas->Animation(
   -format => 'GIF', 
   -file => 'tree.gif'
)->start_animation( 20 );
[download]

[reply]
[d/l]