| 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]