Hi all!

#!/usr/bin/perl -w
use strict;

use Tk;
use Tk::Table;

my %pack_options = (-fill => 'both', -expand => 1);

my $main_window = MainWindow->new();

my $frame = $main_window->Frame()->pack(%pack_options);
my $table = $frame->Table(-rows => 1, -columns => 1)->pack(%pack_optio
+ns);
my $button = $table->Button( -text => "I'm not resizable... Why?! ='("
+, -command => sub {})->pack(%pack_options);
$table->put(0, 1, $button);

MainLoop();
[download]

How can I change size of the button after resize of the main window in the table?