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);
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]});
is there programs to get this type of data.. or to create icons for ptk?
thanx for your support!