An example would be nice, it's hard to say what you mean exactly. Are you trying to align vertically or make a nice grid?
This shows one way using pack. I think you are looking for the justify and anchor option. Also look at -padx.
#!/usr/bin/perl
use Tk;
use strict;
use warnings;
my $mw = MainWindow->new( -bg => 'beige', );
my $l = $mw->Frame(
-width => 111,
-height => 333,
-relief => "raised",
-borderwidth => 2,
-bg => '#EEE000',
)->pack(
-fill => 'x',
-side => 'left',
-anchor => 'n',
);
my $r = $mw->Frame(
-width => 111,
-height => 333,
-relief => "raised",
-borderwidth => 2,
-bg => '#F0F000',
)->pack(
-fill => 'both',
-side => 'left',
-anchor => 'n',
);
my $r2 = $mw->Frame(
-width => 111,
-height => 333,
-relief => "raised",
-borderwidth => 2,
-bg => '#F0F000',
)->pack(
-fill => 'both',
-side => 'left',
-anchor => 'n',
);
for ( qw[Name: Version: Description: Date: ] ){
$l->Label(
-text => $_,
-justify => 'left',
-anchor => 'w',
)->pack(
#-anchor => 'e', # if you don't fill
-fill => 'x',
);
$r->Label(
-text => $_,
# -justify => 'right',
-anchor => 'e',
)->pack(
-anchor => 'e', # if you don't fill
#-fill => 'x',
);
$r2->Label(
-text => $_,
-justify => 'right',
# -anchor => 'e',
)->pack(
#-anchor => 'e', # if you don't fill
#-fill => 'x',
);
}
#$top->Label(-text => "Enter the scroll frame")->pack;
MainLoop;
|