#!/usr/bin/env perl

use strict;
use warnings;

use Tk;
use Tk::BrowseEntry;

my $mw = MainWindow::->new();
$mw->geometry('400x200');

my $layout_F = $mw->Frame(
)->pack(-expand => 1, -fill => 'both');

my $layer1_F = $layout_F->Frame()->pack();
my $layer2_F = $layout_F->Frame()->pack();

my $be_F = $layer1_F->Frame(
)->pack(-side => 'left', -anchor => 'n');

my $w_right_F = $layer1_F->Frame(
)->pack(-side => 'left', -anchor => 'n');

my $w_bottom_F = $layer2_F->Frame(
)->pack();

my $be1 = $be_F->BrowseEntry(-label => 'Misc1: ', -width => 35);
$be1->pack(-anchor => 'w');
$be1->insert("end", "0");
$be1->insert("end", "LargeButWillStillFitInTopWidgetAsItExpands");

my $be2 = $be_F->BrowseEntry(-label => 'Misc2: ', -width => 35);
$be2->pack(-anchor => 'w');
$be2->insert("end", "0");
$be2->insert("end", "Large");
$be2->insert("end", "LargeEnoughToNotFitInTopWidget");

$w_right_F->Label(-text => 'Label 1')->grid();
$w_right_F->Label(-text => 'Label 2')->grid();

$w_bottom_F->Button(
    -text => 'Exit', -command => sub { exit },
)->pack();

MainLoop;