[EMAIL PROTECTED] wrote:
> I probably have the wrong mailing list - but you just solved
> my Tk problem
> as to disabling the X button - so here goes.
>
> Anyone know how to change the standard Tk icon on Win32 platform? I
> searched on this a while back and it seems impossible..
>
> If I have abused this mailing list then please ignore the message.
It is very possible - here's what I do to use an embedded pixmap - it
requires a solid background to look OK...
#! perl
use strict;
use warnings;
use Tk;
#
my $title = "Tk something";
my $mw = new MainWindow( -title => $title );
my %images;
load_images();
my $smallemuicon = $mw->Pixmap( 'emuicon', -data => $images{emuicon} );
$mw->Icon( -image => 'emuicon' );
MainLoop();
sub load_images {
$images{emuicon} = <<'EOXPM';
/* XPM */
static char *emuicon[] = {
/* width height num_colors chars_per_pixel */
" 32 32 16 1",
/* colors */
"` c #ffffff",
". c #000000",
"# c #808080",
"a c #c0dcc0",
"b c #fffbf0",
"c c #555f55",
"d c #a0a0a4",
"e c #aabfaa",
"f c #d4dfff",
"g c #553f55",
"h c #aa9faa",
"i c #2a1f00",
"j c #2a3f55",
"k c #7f5f55",
"l c #2a1f55",
"m c #2a7f55",
/* pixels */
"................................",
".``````````````````````````````.",
".``````````````````````````````.",
".``````d###########dbbbb```````.",
".``````f#..icccccj.gfffb```````.",
".```````a..#edeaaaj#aabb```````.",
".```````d..d##dheegdafbb```````.",
".```````g.j#k#dheeceaabb```````.",
".``````b..c###haaaaaaabb```````.",
".``````d..###daa#faaae#d````e#d.",
".``````c.id##eaecbfffc.c````j.#.",
".``````..chdeaeiebbbb..hbb`f..e.",
".`````e.........bbbbe..ffbbd.ie.",
".`````c..#cc##jgabbbc.gaafbg.cd.",
".`````i.gcggcdc#affbi.#eaaa..##.",
".````a..cgjgcdchaafa..hhea#..#c.",
".````#..#ggc#deeaaf#.jeheai.g#c.",
".````l.g#c#deaaadafl.#eha#..##c.",
".```a..###deaffecfa..dhhag..#cc.",
".```#..###hafbajabd.ihdhc#.j#gc.",
".```i.ld#dafbai#bb#.jddc#c.c#j#.",
".bac...jjggcj.ibbf#..gicdc.iic#.",
".a#kccggggcck#dffd##iic###jicc#.",
".baed#ccc##deeaaag###ccc###ccc#.",
".bae##ccc##dheeaa.##ccc####kc#d.",
".faed##c###ddeead.###c##ddd##dh.",
".bfaedd#dddheaaac.####dheeeehea.",
".bbffaaaaaaafffai.d##deaffffaff.",
".``bbbbbbbbbbbfa####deabbbbbbbb.",
".````````````bbaed#dhafb```````.",
".````````````bbfahddeab````````.",
"................................"
};
EOXPM
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
