Re: Format of tkIcons.* contents ?

Ala Qumsieh wrote:
> 
> The images are in Base64-encoded GIF format.
> I got them from here:
> 
> http://www.satisoft.com/tcltk/icons/libraries.html
> 
> --Ala
> 

Many thanks. If anyone's interested, my script
to convert them into the original GIFs is provided below.

Dean Arnold
Presicient Corp.


# assumes the tk icon files are in ./srcicons,
# and writes the images out to
# ./icons/<srcfilename>/<imagename>.gif

use MIME::Base64;

use strict;
use warnings;

foreach my $file (@ARGV) {
        unless (-e "./icons/$file") {
                mkdir "./icons/$file" or die "Can't create ./icons/$file\n";
        }
        die "Can't open $file:$!"
                unless open(INF, "srcicons/$file");
        print " *** Starting $file...\n";
        while (<INF>) {
                my @items = split /[\s:]/;
                my $name = shift @items;
                my $src = pop @items;
                my $gif = decode_base64($src);
                warn "Can't open $name.gif: $!" and next
                        unless open(OUTF, ">./icons/$file/$name.gif");
                binmode OUTF;
                print "\t*** $name.gif\n";
                print OUTF $gif;
                close OUTF;
        }

        close INF;
}
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
ptk@xxxxxxxxxxxxxxxxxx
https://mailman.stanford.edu/mailman/listinfo/ptk