use strict;
use Tk;
use Tk::LabFrame;
use Tk::Treeplus;
use Tk::ErrorDialog;

my $mw = MainWindow->new();

my $gridOrPack="grid"; #"pack";
#my $gridOrPack="pack"; 

my $tpFrame;
my $butFrame;
my $tpFrame=$mw->LabFrame(-label=>'TreePlusFrame');

my $butFrame=$mw->LabFrame(-label=>'ButtonFrame');

if ($gridOrPack=~/grid/i) {
  $tpFrame->grid(-row=>1, -column=>1, -sticky=>'ew');
  $butFrame->grid(-row=>2, -column=>1, -sticky=>'ew');
}
else {
  $tpFrame->pack(-side=>'top',-expand=>1,-fill=>'both');
  $butFrame->pack(-side=>'top',-expand=>1, -fill=>'both');
}

$tpFrame->Label(-text=>'I like pack better')->pack(-side=>'top');
$butFrame->Button(
            -text => 'Exit',
            -command => sub { exit(0) },
           )
   ->pack(qw(-side bottom -pady 10));

MainLoop();