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]