Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: How do I change the icon on Toplevel?

by Anonymous Monk
on Nov 10, 2003 at 15:38 UTC ( [id://305894]=note: print w/replies, xml ) Need Help??


⭐ 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' );

[download]

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);

    [download]
    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?
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://305894]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others learning in the Monastery: (4)
As of 2024-04-19 06:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found