Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Removing maximize/minimize in Perl/Tk (Urgent query: PERL/Tk)

by rcseege (Pilgrim)
on Nov 30, 2005 at 15:50 UTC ( [id://512970]=note: print w/replies, xml ) Need Help??


in reply to Urgent query : PERL/Tk

Here's another approach using Win32::GUI that I haven't seen posted. It's a variation of something I've done in other programming languages, but it seems to work well enough on my desktop running XP. The downside is that it pretty much throws portability out the window.

use Tk; use Win32::GUI; my $mw = MainWindow->new; $mw->title("Hello"); $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); MainLoop;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://512970]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-03-29 10:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found