Now it works with GIF's. :-) Just use GD ver. 1.19 instead of 1.38 which is the current release.
Script for creating hash:
#!/usr/bin/perl
use GD;
use Tk;
use MIME::Base64;
dbmopen %myhash, "myhash", 0666;
open (GIF,"image.gif");
$im = newFromGif GD::Image(GIF);
close GIF;
my $img = encode_base64($im->gif);
$myhash{image} = $img;
dbmclose %myhash;
And a script for showing the image:
#!/usr/bin/perl
use Tk;
dbmopen %myhash, "myhash", 0666;
my $main = MainWindow->new();
my $image = $main->Photo("button", -data => $myhash{image}, -format =>
+ 'gif');
my $label= $main->Label(-image => "button");
$label->grid(-in => $main);
dbmclose %myhash;
MainLoop;
Regards Søren Schimkat
|