Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
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
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?
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 drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2015-07-08 06:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (96 votes), past polls