#!/usr/bin/perl
use warnings;
use strict;
use Tk;

# by Ch Lambrecht

my $logo = <<'logo_end';
/* XPM */
static char * logo_xpm[] = {
"32 32 5 1",
"     c None",
".    c #FD000A",
"+    c #FD6463",
"@    c #FEBEBE",
"#    c #FEFFFC",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"########........##.....@########",
"#########@....+####@.###########",
"##########+....@###.@###########",
"###########.....##++############",
"###########@....+@.#############",
"############+.....@#############",
"#############.....##############",
"#############@....@#############",
"#############@.....#############",
"#############.+....+############",
"############++#+....@###########",
"###########@.###.....###########",
"###########.@###@....+##########",
"##########++#####+....@#########",
"########+....###........########",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################",
"################################"};
logo_end
;
package Tk::Toplevel;

sub InitObject{
     my ($self,$args) = @_;
     $self->SUPER::InitObject($args);
     my $mw = $self;
     while ($mw->parent){$mw = $mw->parent}
     if ($mw->cget('-appicon')){
         $self->afterIdle(sub{$self->iconimage($mw->cget('-appicon'))}
+) ;
     }
}

package MainWindow;
sub Populate{
     my ($self,$args) = @_;

     $self->SUPER::Populate($args);
     $self->ConfigSpecs(-appicondata => ['METHOD'],
                        -appiconfile => ['METHOD'],
                        -appicon     => ['PASSIVE']
                    );
     $self->configure(%$args);
     }

sub appicondata{
     my $self = shift;
     $self->configure(-appicon => $self->Pixmap(-data=>$_[0]));

}
sub appiconfile{
     my $self = shift;
     $self->configure('-appicon' => $self->Pixmap(-file=>$_[0]));
}



package main;

#my $mw = MainWindow->new(-appiconfile => 'logo.xpm');
my $mw = MainWindow->new(-appicondata => $logo);
$mw->Toplevel();
my $tp = $mw->Toplevel();

MainLoop;
[download]

s:tk logo: Tk logo on GUI window: - Python:

[php]from Tkinter import *
form1 = Tk()
# use an icon file you have in the working folder
form1.wm_iconbitmap('py.ico')
form1.wm_title('Title')
form1.mainloop()
[/php]
[download]

s: perl tkx wm_iconbitmap