in reply to Perl TK changing the logo

This works on linux. 
#!/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]
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Replies are listed 'Best First'.
Re^2: Perl TK changing the logo
by Anonymous Monk on Oct 26, 2010 at 07:24 UTC 
    #!/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
[reply]
[d/l]
      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