my $frame1 = $parent->Frame()->pack(-side => 'left', -fill => 'y');
my $frame2 = $parent->Frame()->pack(-side => 'top', -fill => 'both');
my $frame3 = $parent->Frame()->pack(-side => 'top', -fill => 'both');