Skip Menu |

This queue is for tickets about the Tk-Splash CPAN distribution.

Report information
The Basics
Id: 12754
Status: resolved
Priority: 0/
Queue: Tk-Splash

People
Owner: SREZIC [...] cpan.org
Requestors: LGODDARD [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.13
Fixed in: (no value)

Attachments


Subject: Image
Error: @ 535 not utf8 SV = PV(0x3449700) at 0x342c224 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x344b034 "couldn't recognize data in image file \"\350\226D\3\1\""\0 [UTF8 "couldn't recognize data in image file "\x{8584}\x{3}\x{1}""] CUR = 45 LEN = 46 SV = PVMG(0x34489dc) at 0x342c224 REFCNT = 1 FLAGS = (SMG,POK,pPOK,UTF8) IV = 0 NV = 0 PV = 0x344b034 "couldn't recognize data in image file \"\350\226D\3\1\""\0 [UTF8 "couldn't recognize data in image file "\x{8584}\x{3}\x{1}""] CUR = 45 LEN = 46 MAGIC = 0x344b58c MG_VIRTUAL = &PL_vtbl_utf8 MG_TYPE = PERL_MAGIC_utf8(w) MG_LEN = 43 couldn't recognize data in image file "??D" at C:/amp/Perl/site/lib/Tk/FastSplash.pm line 60. D:\cvsroot\ingestint\scripts\ingest_client\ingest_client.tk.pl Called with: require Tk::FastSplash; $splash = Tk::FastSplash->Show( 'banner_home_t03.jpg', # Image 315, # Width 51, # Height __PACKAGE__, 0 # $overrideredirect ); The filename prints as expected if a "warn $image_file" is placed above the following line in Tk::FastSplash: my $img = Tk::image($splash_screen, 'create', 'photo', 'splashphoto', -file => $image_file);
Download banner_home_t03.jpg
image/pjpeg 3.4k
banner_home_t03.jpg
I will add the following paragraph to the documentation of Tk::FastSplash: I<$image> should be one of the core Perl/Tk image types (gif, ppm, bmp). For jpegs and pngs, a C<use Tk::JPEG> or C<use Tk::PNG> prior to the call of the C<Show> method would be necessary, but calling one of these two would slurp the whole Tk module in, making the point of B<Fast>Splash useless. Regards, Slaven