Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 30585
Status: open
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: aveckey [...] hotmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 804.026
Fixed in: (no value)



Subject: Tk::Animation 'blank' is broken
In the Tk::Animation module, the function 'blank' overrides the 'blank' function from Tk::Photo (its SUPER class). Because of this, 'blank' does not work, it will not blank the old picture like the POD says it should. The fix is to either rename the 'blank' function (to maybe 'set_blank') or call $obj->SUPER::blank in the 'set_image' function.
From: SREZIC [...] cpan.org
On Thu Nov 08 14:28:39 2007, aveckey wrote: Show quoted text
> In the Tk::Animation module, the function 'blank' overrides the 'blank' > function from Tk::Photo (its SUPER class). Because of this, 'blank' > does not work, it will not blank the old picture like the POD says it > should. > > The fix is to either rename the 'blank' function (to maybe 'set_blank') > or call $obj->SUPER::blank in the 'set_image' function.
It's also problematic that Tk::Animation does not use the disposal method or delay information from the GIF metadata itself. I just tried to fix this problem by using Image::Info to peek into GIF metadata and set these two values. And I was surprised that there are actually *four* disposal methods, whereas Tk::Animation always supported only two (and still is). See the current state of development at the subversion repository https://svn.perl.org/modules/Tk/trunk Regards, Slaven