Using Grid To Control Widget Placement- Bottom in Perl

This article demonstrates the implementation of Using grid to control widget placement- bottom



Implementation

#!/usr/bin/perl -w

use Tk;

$side = "bottom";

$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;
}