|
#!/usr/bin/perl -w
use Tk;
$side = "right";
$Tk::strictMotif = 1;
$main = MainWindow->new();
$button1 = $main->Button(-text => "Button 1",
-command => \&exit_button);
$button2 = $main->Button(-text => "Button 2",
-command => \&exit_button);
$button3 = $main->Button(-text => "Button 3",
-command => \&exit_button);
if ($side eq "left" ) {
$button1->grid(-column => 0, -row => 0);
$button2->grid(-column => 1, -row => 0);
$button3->grid(-column => 2, -row => 0);
} elsif ($side eq "right" ) {
$button1->grid(-column => 2, -row => 0);
$button2->grid(-column => 1, -row => 0);
$button3->grid(-column => 0, -row => 0);
} elsif ($side eq "top" ) {
$button1->grid(-column => 0, -row => 0);
$button2->grid(-column => 0, -row => 1);
$button3->grid(-column => 0, -row => 2);
} elsif ($side eq "bottom" ) {
$button1->grid(-column => 0, -row => 2);
$button2->grid(-column => 0, -row => 1);
$button3->grid(-column => 0, -row => 0);
}
MainLoop();
sub exit_button {
print "You pushed the button!\n";
exit;
}
|