Beginner TK frame question: left aligning buttons

water has asked for the wisdom of the Perl Monks concerning the following question:

I'm having trouble with a TK frame with radio buttons. I'd like each row in my list of radio buttons aligned with the left side of the frame; the code below renders each button row centered. The result looks ragged and goofy. Can anyone assist? Many many thanks. water

my $left_frame = $main->Frame;

my $quit_button = $left_frame->Button(
    -text    => 'quit',
    -command => [ $main => 'destroy' ]
);

$quit_button->pack( side => 'top' );
foreach my $r (@radio_values) {
    $left_frame->Radiobutton(
        -text     => $r,
        -variable => \$radio_state,
        -value    => $r,
        -command  => [ sub { 'foo' } ],
        -anchor =>'e',

        ,
    )->pack( side => 'top', );
}
[download]

Comment on Beginner TK frame question: left aligning buttons Download Code

Replies are listed 'Best First'.
Re: Beginner TK frame question: left aligning buttons by tachyon (Chancellor) on Sep 11, 2004 at 11:54 UTC
This is left justified, vertically aligned ie the usual. You need the west anchor and a width to make it take. pack( side => 'top' ) is the default so just ->pack() will do, or even just ->pack `$left_frame->Radiobutton( -text => $r, -variable => \$radio_state, -value => $r, -command => [ sub { 'foo' } ], -anchor => 'w', -width => 10, )->pack( side => 'top', );` [download] cheers tachyon	[reply] [d/l]
Re^2: Beginner TK frame question: left aligning buttons by qumsieh (Scribe) on Sep 12, 2004 at 15:23 UTC
Instead of hard-coding a width, you can also use the `-fill => 'x'` [download] option of `pack()` to make the widget take any extra horizontal space in its parent. You still need the `-anchor => 'w'` [download] bit of course.	[reply] [d/l] [select]
Re^3: Beginner TK frame question: left aligning buttons by tachyon (Chancellor) on Sep 13, 2004 at 02:44 UTC
That is much more elegant. cheers tachyon	[reply]