blackadder has asked for the wisdom of the Perl Monks concerning the following question:

Greetings all,

How can I minimize or maximize a perl Tk main window?

I create the window like this: my $mw = MainWindow->new;

and I would like to minimize it like this: $mw->minimize; or maximise it like this: $mw->maximize;

Can someone please show me how? I sure you can't put this past Perl.
  • Comment on Maximise or minimise Perl/Tk Main Window

Replies are listed 'Best First'.
Re: Maximise or minimise Perl/Tk Main Window
by dree (Monsignor) on Sep 18, 2002 at 11:51 UTC
    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;

    [download]
    You can try perldoc Tk::Wm
[reply]
[d/l]
Re: Maximise or minimise Perl/Tk Main Window
by alien_life_form (Pilgrim) on Sep 18, 2002 at 11:47 UTC
    Greetings,

     $mw->geometry(($mw->maxsize())[0] .'x'.($mw->maxsize())[1]);

    [download]

    Cheers,
    alf
    You can't have everything: where would you put it?
[reply]
[d/l]
      Thanks to you Dree and Alf,....I will try this.
[reply]
Re: Maximise or minimise Perl/Tk Main Window
by Anonymous Monk on Aug 06, 2007 at 17:31 UTC
    I found a better way simply: $mw->iconify; # Minimize $mw->deiconify; # Restore $mw->state('withdrawn'); # Hide $mw->state('normal'); # Show
[reply]
      States: must be normal, iconic, withdrawn, or zoomed. 
      $mainwindow->state('zoomed'); #maximize

      [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom