If I have understood your question, you can set the width dinamically based on the lenght of entries

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 );
[download]

L*