in reply to Tk::Animation fix
in thread TRansparent Animated gif bug in perlTk?

I'm not very experienced with Perl. But I was stuck with the same problem with animated gifs and Tk::Animation. I'm running Tk::Animation version 4.006. This seems to be patched with the line: $obj->blank if $obj->{_blank_}; # helps some make others worse But this line does not actually seem to blank the picture. When I examined the code of Tk::Animation I came to the conclusion that this is because the override function Tk::Animation::blank() gets called instead of Tk::Photo::blank(). Or is this a very silly conclusion by a rookie programmer? Anyway I decided to comment out the entire function Tk::Animation::blank() and then replace the line $obj->blank if $obj->{_blank_}; # helps some make others worse with just: $obj->blank; To my surprise this actually fixes the problem(!). When I call $anim->start_animation() the frames seem to get blanked before every new frame is drawn, giving me the desired effect... Did I do something wrong or did I stumble on a bug in Tk::Animation? JF

Replies are listed 'Best First'.
Re^2: Tk::Animation fix
by Anonymous Monk on Sep 18, 2007 at 11:46 UTC
    I think it is a bug. I had the same problem. Thanks a lot ;) I confirm your solution fixes the problem !