Win32Util::maximize after redrawing tk window

listmail <[email protected]>
Newsgroups gmane.comp.lang.perl.tk
Message-ID <[email protected]>
I'm troubleshooting a problem with using Win32Util::maximize and Rob's code
suggestion for removing the Min/Max buttons.  If you run the code ~as 
is~ you
will get a full screen Text widget that has a makeshift "footer bar" 
drawn below it.
After uncommenting the code, the Min/Max buttons are removed as 
expected, but for
some reason the footer bar is getting drawn behind the Windows taskbar.  
Is there
some attribute being set or a way I can work around this?

#!/usr/bin/perl -w
use strict;
use warnings;
use Tk;
use Win32::GUI;
use Win32Util;

my $mw = MainWindow->new;
$mw->configure(-title=>"Hello");
my $frm1=$mw->Frame()->pack(-expand=>1
                            ,-fill=>'both');
my $text=$frm1->Text(-relief=>'ridge')->pack(-expand=>1
                                             ,-fill=>'both');
my $footerbar = $mw->Frame(-relief=>"raised",
                            -borderwidth=>1);
my $footerbutton = $footerbar->Menubutton(-text=>"",-state=>'disabled');
my $footermenu = $footerbutton->Menu();
$footerbutton->configure(-menu=>$footermenu);
$footerbutton->pack(-side=>"left");
$footerbar->pack(-side=>"bottom", -fill=>"x");
$mw->update;

#my ($winH) = Win32::GUI::FindWindow("", "Hello");
#my $style = Win32::GUI::GetWindowLong($winH, -16);
#$style &= ~(WS_MINIMIZEBOX | WS_MAXIMIZEBOX);
#Win32::GUI::SetWindowLong($winH, -16, $style);
#Win32::GUI::DrawMenuBar($winH);

Win32Util::maximize($mw);
MainLoop;
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
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.