Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Maximise or minimise Perl/Tk Main Window

by dree (Monsignor)
on Sep 18, 2002 at 11:51 UTC ( #198799=note: print w/replies, xml ) Need Help??

in reply to Maximise or minimise Perl/Tk Main Window

What do you mean for "minimize" ? Iconify? If yes, try this:
use strict; use Tk; my $mw = new MainWindow; $mw->Frame(-width=>200, height =>25); $mw->Button(-text => "Maximize", -command => sub {$mw->geometry($mw->screenwidth . "x" . $mw->s +creenheight . "+0+0")}) ->pack(); $mw->Button(-text => "Minimize", -command => sub {$mw->iconify;}) ->pack(); $mw->Button(-text => "Close", -command => sub {exit;}) ->pack(); MainLoop;
You can try perldoc Tk::Wm

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://198799]
[LanX]: cho: your joke has very limited impact on a non German+Czech speaking board ... we need to create one and invite Lichtkind and "Peta...Monk"
[Eily]: I still don't understand how the Turkish AA fit into the German+Czech joke though :P
[LanX]: new Firefox + cb sidebar do random auto expand on submit

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2017-03-27 12:08 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (319 votes). Check out past polls.