#!/usr/bin/perl -w use Tk; $side = "top"; $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; }