M martinthurn New member Dec 4, 2009 #1 Just use pack(-side => 'left'); for all of them. It will push each one towards the left up against the previous ones.
Just use pack(-side => 'left'); for all of them. It will push each one towards the left up against the previous ones.
Z zzman70 New member Dec 4, 2009 #2 here's (part of) my code: my $but1 = $mw -> Button(-text => "1", -command =>\&push_1)->pack(-side => 'left'); my $but2 = $mw -> Button(-text => "2", -command =>\&push_2)->pack(); my $but3 = $mw -> Button(-text => "3", -command =>\&push_3)->pack(-side => 'right'); how do i align all the buttons on the top row together so they are at the top and on the same line. (so reading left-right it has the 1button, the 2button, then the 3button in perl tk
here's (part of) my code: my $but1 = $mw -> Button(-text => "1", -command =>\&push_1)->pack(-side => 'left'); my $but2 = $mw -> Button(-text => "2", -command =>\&push_2)->pack(); my $but3 = $mw -> Button(-text => "3", -command =>\&push_3)->pack(-side => 'right'); how do i align all the buttons on the top row together so they are at the top and on the same line. (so reading left-right it has the 1button, the 2button, then the 3button in perl tk
