I archive some old messages, and used the code that Chris Anderson posted
last year to replace the "Tk" icon with an image I've defined. I've realised
that Tk accepts base64 encoded image codes, instead of a raw image data, so
I've changed the code a little:
if (my $image = image('logo.gif')) {
my $icon = $mw->Photo(-data => $image->[1],-format => $image->[0]);
$mw->idletasks; # this line is crucial
$mw->iconimage($icon);
}
But I couldn't find a way to make this image's background transparent (I've
tried with '-file' also). If I create a transparent gif, it is shown as
partially transparent.
So, is there a way?
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
