Viewing .png's under win32 / There must be a better way....

NaSe77 has asked for the wisdom of the Perl Monks concerning the following question:

i wasn't able to find a precompiled version of Tk::PNG for win32 ... so i wrote something to be able to view png's:

if ($OSNAME =~ /linux|unix|bsd/i){
   require Tk::PNG;
   $image = $pic_window->Photo("button", 
      -file => $photo_name, 
      -format => 'png');
}
elsif ($OSNAME =~ /win/i ){
   require GD;
   require Tk::JPEG;
   require MIME::Base64;
   my $im = GD::Image->newFromPng($photo_name);
   my $img = MIME::Base64::encode_base64($im->jpeg());
   $image = $pic_window->Photo("button", 
      -data => $img, 
      -format => 'jpeg');
}

my $label= $pic_window->Label(-image => "button");
[download]

but there must be a better way to do this... perhaps anyone has a better idea or a version of Tk::PNG for win32 ...

----
NaSe
:x

Comment on Viewing .png's under win32 / There must be a better way.... Download Code

Replies are listed 'Best First'.
Re: Viewing .png's under win32 / There must be a better way.... by PodMaster (Abbot) on Aug 29, 2002 at 10:56 UTC
Neat. Try Tk::PNG from http://crazyinsomniac.perlmonk.org/perl/ppm/ `____________________________________________________` ** The Third rule of perl club is a statement of fact: pod is sexy.	[reply]
Re: Re: Viewing .png's under win32 / There must be a better way.... by NaSe77 (Monk) on Aug 29, 2002 at 13:59 UTC
thanks for the hint i'll use that ---- NaSe :x	[reply]
Re: Viewing .png's under win32 / There must be a better way.... by particle (Vicar) on Aug 29, 2002 at 13:30 UTC
`elsif ($OSNAME =~ /win/i ){` [download] this will also match Darwin, which may not be what you want. be careful when determining the os. ~Particle accelerates	[reply] [d/l] [select]
Re: Re: Viewing .png's under win32 / There must be a better way.... by NaSe77 (Monk) on Aug 29, 2002 at 13:58 UTC
that is right - i havent thought of this in fact ... but i dont think that my chef will use the script on a darwin machine - i am even pretty shure she will use it only on her win2000 box ;) ---- NaSe :x	[reply]