Update: Here's an example:
#!/usr/bin/perl use strict; use warnings; use Tk qw{ MainLoop }; my $mw = 'MainWindow'->new; $mw->iconimage($mw->Pixmap(-data => << '__XPM__')); /* XPM */ static char * pm_xpm[] = { "32 32 4 1", " c black", ". c blue", "X c yellow", "o c red", " ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " ..........ooooooo............. ", " ........ooooooooooo........... ", " .......oo.........oo.......... ", " ......oo...XXXXX...oo......... ", " .....oo...X.....X...oo........ ", " .....oo..X.......X..oo........ ", " .....oo..X.......X..oo........ ", " .....oo...X.....X...oo........ ", " ......oo...XXXXX...oo......... ", " .......oo.........oo.......... ", " ........ooooooooooo........... ", " ..........ooooooo............. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " .............................. ", " "}; __XPM__ MainLoop();
In reply to Re: PerlTk GNOME3 alternate icon file shown as blank square
by choroba
in thread PerlTk GNOME3 alternate icon file shown as blank square
by kaza_perl_ip
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |