Re: Perl TK - How do I resize a MainWindow?

To resize or reposition the main window use geometry:

use strict;
use warnings;
use Tk;

my $main = Tk::MainWindow->new (-title => 'Resize demo');

$main->Button (
    -text => 'Change size',
    -command => sub {ChangeSize ($main, @_)},
)->pack ();

MainLoop ();

sub ChangeSize {
    my ($wind) = @_;
    my $newSize = int (100 + rand (100)) . 'x100+100+100';
    
    $wind->geometry ($newSize);
}
[download]

True laziness is hard work

Comment on Re: Perl TK - How do I resize a MainWindow? Download Code

Replies are listed 'Best First'.
Re^2: Perl TK - How do I resize a MainWindow? by paulchernoch (Acolyte) on May 19, 2009 at 14:03 UTC
Works like a charm! Thanks. - Paul	[reply]