Using grid to control widget placement: right : Grid « GUI « Perl






  1. Perl
  2. GUI
  3. Grid

Using grid to control widget placement: right

 

#!/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;
}








Related examples in the same category

1.Using grid to control widget placement: bottom
2.Using grid to control widget placement: left
3.Using grid to control widget placement: top