Re: perltray/tk intercept windows minimize function

Whoops! I forgot the critical update call in the last two messages. 
Updated below.

use Tk;
use Win32::GUI;

my $mw = MainWindow->new;
$mw->update;  ## Important bit!

my $winH = hex($mw->frame);
my $style = Win32::GUI::GetWindowLong($winH, -16);
$style &= ~(WS_MINIMIZEBOX | WS_MAXIMIZEBOX);
Win32::GUI::SetWindowLong($winH, -16, $style);
Win32::GUI::DrawMenuBar($winH);
Win32::GUI::Maximize($winH);

MainLoop;


Rob Seegel wrote:
> As for maximize -- why not use Thundergnats solution? It seems to work 
> perfectly well for me. Below is the updated code...
>
>
>
>
>
>


-++**==--++**==--++**==--++**==--++**==--++**==--++**==
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]