use Tk;
use Tk::BrowseEntry;

my $top = MainWindow->new;
my $f = $top->Frame;
my $c1 = $f->BrowseEntry(-label => "Misc1:", -width => 0);
$c1->pack;
$c1->insert("end", "0");
$c1->insert("end", "LargeButWillStillFitInTopWidgetAsItExpands");

my $c2 = $f->BrowseEntry(-label => "Misc2:", -width => 10);
$c2->pack;
$c2->insert("end", "0");
$c2->insert("end", "Large");
$c2->insert("end", "LargeEnoughToNotFitInTopWidget");

$f->pack;

MainLoop;