Hi,

You can use Tk::grid instead of Tk::pack, this example from the widget demo program that comes with Tk

{
## Tk/demos/widget_lib/form.pl
    my $f = $mainwindow->Frame->pack(-fill => 'both');
    my $row = 0;
    foreach ('Name:', 'Address:', '', '', 'Phone:') {
        warn $row;
        my $e = $f->Entry(qw/-relief sunken -width 40/);
        my $l = $f->Label(-text => $_, -anchor => 'e', -justify => 'ri
+ght');
        $l->grid(-row => $row, -column => 0, -sticky => 'e');
        $e->grid(-row => $row++, -column => 1,-sticky => 'ew');
        $f->gridRowconfigure(1,-weight => 1);
        $e->focus if $_ eq 'Name:';
    }

}
[download]