use Tk; use Tk::PNG; my $mw = MainWindow->new ( -title => 'KK', ); $mw->geometry ('200x30'); my $icon = $mw->Photo ( -file => 'valentine_prev.jpg', -format => 'PNG', -width => 32, -height => 32, ); $mw->iconimage ($icon); MainLoop;
In reply to Error in icon by Kandankarunai
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |