in reply to Re: Perl TK changing the logo
in thread Perl TK changing the logo

#!/usr/bin/perl
use Tk;

my $mw = tkinit;

my $image = 'z-icon.gif';    # 32x32 GIF or BMP

my $icon = $mw->Photo(-file => $image);

$mw->idletasks;        # this line is crucial

$mw->iconimage($icon);
MainLoop;

[download]
In this how to add to increase the dimension of the gif file?
Am using 200x200 gif file

Replies are listed 'Best First'.
Re^3: Perl TK changing the logo
by zentara (Cardinal) on Oct 26, 2010 at 11:19 UTC
    Resize the 200x200 gif to 32x32 first. Icons need to be 32x32, unless a module does it automatically for you.
    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh
[reply]

In Section Seekers of Perl Wisdom