my $atleast = 10; # default width

my $c2 = $f->BrowseEntry(-label => "Misc2:", -width => $atleast );
$c2->pack;


foreach my $entry ( qw(0 Large LargeEnoughToNotFitInTopWidget) ){

	$c2->insert("end", $entry);
	$atleast = length $entry if length $entry > $atleast;
}

$c2->configure( -width => $atleast );