use Tk;

my $top = MainWindow->new;
my $f = $top->Frame;
$f->Button(-text => "1", -width => 0)->pack();
$f->Button(-text => "LargeButStillQuiteVisible", -width => 0)->pack();
$f->Button(-text => "2", -width => 10)->pack();
$f->Button(-text => "TooLargeToBeVisible", -width => 10)->pack();
$f->pack;

MainLoop;