Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Answer: How do I change the icon on Toplevel?

( #305894=categorized answer: print w/ replies, xml ) Need Help??

Q&A > GUI Programming > How do I change the icon on Toplevel? contributed by Anonymous Monk

# 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.

Comment on Answer: How do I change the icon on Toplevel?
Download Code
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?
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2014-09-21 06:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (167 votes), past polls