Win32Util INIT error

[email protected]
Newsgroups gmane.comp.lang.perl.tk
Message-ID <[email protected]>
the following script is testing the maximize function of the Win32Util module. Although it seems to work, I am getting an error which I'd like to know if I can do anything different in order to prevent it.

#!/usr/bin/perl -w
use strict;
use warnings;

use Tk;
use Win32Util;

my $top=MainWindow->new();

my $frame1 = $top->Frame();

my $listbox = $frame1->Scrolled("Listbox", -scrollbars => "e",
                                -selectmode => "single",
                                -foreground => "white",
                                -background=>'black',
                                -border => 5)->pack(-side=>'left', -fill=>'both', -expand=>0);
$listbox->pack(-side=>'top');

$top->update;
Win32Util::maximize($top);
MainLoop();

-----
Too late to run INIT block at C:/Perl/site/lib/Win32/API/Type.pm line 71.
16 at C:/Perl/site/lib/Win32Util.pm line 1456.


-++**==--++**==--++**==--++**==--++**==--++**==--++**==
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 [email protected]
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.