http://www.perlmonks.org?node_id=305894


in reply to How do I change the icon on Toplevel?

# define the icon's data: my $my_icon_data = <<'EOF'; /* XPM */ static char *main[]={ "32 32 3 1", "# c #1655fe", ". c #ffffff", "$ c #fbc819", "................................", "................#...............", . ...the rest of your really cool pixel art here... . "......####............####......", "......####............####......",}; EOF # associate that with the image name 'my_icon': $main->Pixmap( 'my_icon', -data => $my_icon_data ); # use the image as an icon on any TopLevel: $toplevel->Icon( -image => 'my_icon' );

I've tested the above in Windows XP and Linux.

See Tk::Pixmap for info on XPM files.

Replies are listed 'Best First'.
Re: Answer: How do I change the icon on Toplevel?
by batkins (Chaplain) on Nov 10, 2003 at 16:26 UTC
    What a convoluted mess. All you do is:
    my $img = $tl->Photo(-file => "path_to_image"); $tl->Icon(-image => $img);
    And substitute a Pixmap or Image for the Photo if necessary.

    Are you sure it was a book? Are you sure it wasn't.....nothing?