Help for this page

Select Code to Download


  1. or download this
    my $mw = Tkx::widget->new('.');

my $img = Tkx::image_create_photo(-file => 'icon.gif');
$mw->g_wm_iconphoto($img);
  2. or download this
    #Pack hardcoded GIF bytes:
my $icon = pack('C*' ,71,73,70,56,57,97,64,0,64,0,247,0,0,84,186, ...
...

my $img = Tkx::image_create_photo(-data => $icon);
$mw->g_wm_iconphoto($img);