Perl TK changing the logo

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

Replies are listed 'Best First'.
Re: Perl TK changing the logo by zentara (Archbishop) on Dec 14, 2007 at 14:09 UTC
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	[reply] [d/l]
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]
Re^3: Perl TK changing the logo by zentara (Archbishop) 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]
Re: Perl TK changing the logo by poolpi (Hermit) on Dec 14, 2007 at 13:16 UTC
with iconbitmap see PerlMonks HTH, PooLpi	[reply]
Re: Perl TK changing the logo by davies (Prior) on Dec 14, 2007 at 16:24 UTC
`$mw->toplevel->iconbitmap($filename);` But there can be issues. See the help I was given in Tk oddity with Label, iconbitmap and listbox. Regards, John Davies Update: Added code tags	[reply] [d/l]
Re: Perl TK changing the logo by lamprecht (Friar) on Oct 26, 2010 at 11:24 UTC
Hi, here is a small addon: Load once and get the Icon for every Toplevel. Read more... (4 kB) usage: `use strict; use warnings; use Tk; use Tk::ToplevelIcon; tkinit; MainLoop;` [download] Cheers, Chris	[reply] [d/l] [select]


Welcome to the Monastery
	PerlMonks