Perl Tk Icons

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

I have recently been messing around with PTK.. and i tried to create some icons for my program wich use the following:

use Tk::Photo;
my $egg = &im(1);
$icon = $mw->Photo('image', -data=>$egg, format=>'gif');
$mw->iconimage($icon);
[download]

i got that from perltk.org and the question is.. that i wanted
to know how to create gif icons to use for my program by using such data like the one below:

my $egg_gif = 
"R0lGODdhIAAgAPf/AAAAAIAAAACAAICAAAAAgIAAgACAgMDAwMDcwKbK8P//zP//mf//Z
+v//M//M
///MzP/Mmf/MZv/MM//MAP+Z//+ZzP+Zmf+ZZv+ZM/+ZAP9m//9mzP9mmf9mZv9mM/9mAP
+8z//8z
zP8zmf8zZv8zM/8zAP8AzP8Amf8AZv8AM8z//8z/zMz/mcz/Zsz/Zsz/M8z/AMzM/8zMzM
+zMmczM
ZszMM8zMAMyZ/8yZzMyZmcyZZsyZM8yZAMxm/8xmzMxmmcxmZsxmM8xmAMwz/8wzzMwzmc
+wzZswz
M8wzAMwA/8wAzMwAmcwAZswAM8wAAJn//5n/zJn/mZn/Zpn/M5n/AJnM/5nMzJnMmZnMZp
+nMM5nM
AJmZ/5mZzJmZmZmZZpmZM5mZAJlm/5lmzJlmmZlmZplmM5lmAJkz/5kzzJkzmZkzZpkzM5
+kzAJkA
/5kAzJkAmZkAZpkAM5kAAGb//2b/zGb/mWb/Zmb/M2b/AGbM/2bMzGbMmWbMZmbMM2bMAG
+aZ/2aZ
zGaZmWaZZmaZM2aZAGZm/2ZmzGZmmWZmZmZmM2ZmAGYz/2YzzGYzmWYzZmYzM2YzAGYA/2
+YAzGYA
mWYAZmYAM2YAADP//zP/zDP/mTP/ZjP/MzP/ADPM/zPMzDPMmTPMZjPMMzPMADOZ/zOZzD
+OZmTOZ
ZjOZMzOZADNm/zNmzDNmmTNmZjNmMzNmADMz/zMzzDMzmTMzZjMzMzMzADMA/zMAzDMAmT
+MAZjMA
MzMAAAD/zAD/mQD/ZgD/MwDM/wDMzADMmQDMZgDMMwDMAACZ/wCZzACZmQCZZgCZMwCZAA
+Bm/wBm
zABmmQBmZgBmAABmMwAz/wAzzAAzmQAzZgAzMwAzAAAAzAAAmQAAZgAAM90AALsAAKoAAI
+gAAHcA
AFUAAEQAACIAAADdAAC7AACqAACIAAB3AABVAABEAAAiAN3d3VVVVXd3d3d3d0RERCIiIh
+EREQAA
dwAAVQAARAAAIv/78KCgpICAgP8AAAD/AP//AAAA//8A/wD//////yH5BAEAAAEALAAAAA
+AgACAA
Bwj/AAMIHEiwoMGDCBMqXMiwocOHECNKnEixIkEAGDNqnJhRgUcF40J+zOgQY4wYH0OO+6
+hgjss5
GBWajLEvBgOVDHLmzMPzJUwAB2fGuHFznM6jPPN8+JA05kUAJ2/suxFSZ9WdPJcmzeNUIN
+SpN8Je
LYp1a1ILEIB6jRp2X86xOs1utYBWLdShYK3iLKuVJ926Ae6GHXz0bdWkffP8pWtycN7Chu
+X6XYyx
7WCicA9LXmyh8uWpZA3zZTqZLofKU8ESPWo0blbSiv+eDnw5rN7CkmNbmE3b8eqbohnkVs
+yBd2/V
wIMjhp2nuFqvAGrDRfo6z5/rXaE7LtqaetLrf7IPKcS4r4d5w2Otg8f+PCgA8xLiy1cpYb
+34hBnl
61dJUqLG/+1ZJOCAAgUEADs=\n\n";

my %send_back = (1 => $egg_gif );


return($send_back{$_[0]});
[download]

is there programs to get this type of data.. or to create icons for ptk?

thanx for your support!

Comment on Perl Tk Icons Select or Download Code

Replies are listed 'Best First'.
Re: Perl Tk Icons by didier (Vicar) on May 03, 2003 at 19:24 UTC
This script will does the trick: It's not very nice but it was written 7 years ago... use MIME::Base64; unless(defined($ARGV[0])){ print <<'END'; Usage: perl im2b64.pl one.gif two.gif etc... Output is bin2b64.txt Use example of result: $c->Photo('image',-data=>$im_encode,format=>'gif'); END exit; } $c = 0; foreach(@ARGV){ open(K, $_) or die "$!"; binmode(K); foreach(<K>){ $data_im .= $_; } $im_encode = encode_base64($data_im); chop($im_encode); $ARGV[$c] =~ s/\./_/g; $done{$ARGV[$c]} = $im_encode; undef($data_im); $c++; close(K); } $sep = '-' x 35; open(K,">>$ARGV[0].txt") \|\| die "$!"; foreach $key (keys(%done)){ print K "\x24$key = \n\"$done{$key}\\n\\n\"\;\n\n"; print K "$sep\n\n"; } close(K); [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Perl Tk Icons
by didier (Vicar) on May 03, 2003 at 19:24 UTC

 
use MIME::Base64;

unless(defined($ARGV[0])){
print <<'END';
Usage: perl im2b64.pl one.gif two.gif etc...
Output is bin2b64.txt
Use example of result:
$c->Photo('image',-data=>$im_encode,format=>'gif');
END
exit;
}

$c = 0;

foreach(@ARGV){
open(K, $_) or die "$!";
binmode(K);
    foreach(<K>){
    $data_im .= $_;
    }

$im_encode = encode_base64($data_im);
chop($im_encode);
$ARGV[$c] =~ s/\./_/g;
$done{$ARGV[$c]} = $im_encode;
undef($data_im);
$c++;
close(K);
}

$sep = '-' x 35;

open(K,">>$ARGV[0].txt") || die "$!";
foreach $key (keys(%done)){
print K "\x24$key = \n\"$done{$key}\\n\\n\"\;\n\n";
print K "$sep\n\n";
}
close(K);
[download]

[reply]
[d/l]