Tk application window icons

Hi,

I'm using the following bit of code to set the window icon in my
application (Perl 5.008004 on Win32, Tk 804.027):

sub set_window_icon {
    my ($window, $image_file) = @_;
                                                                                
    eval {
        my $image = $window->Photo(-format => 'png', -file =>
$image_file);
        $window->Icon(-image => $image);
    };
}

Indeed the image is used as the window icon as planned.  However, the
transparent parts of the png are not respected, they are instead
rendered as black pixels.  

How can I get the icon transparency working?  There is probably a FAQ
for this somewhere, but I could not locate it, sorry.
-- 
Regards,
Rich



-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx