Pack Bottom : Layout « GUI « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » GUI » Layout 
Pack Bottom
 


#!/usr/bin/perl -w

use Tk;


$side = "bottom";

$Tk::strictMotif = 1;

$main = MainWindow->new();

$button1 = $main->Button(-text => "Button 1",
                         -command => \&exit_button);

$button1->pack(-side=>$side);

$button2 = $main->Button(-text => "Button 2",
                         -command => \&exit_button);

$button2->pack(-side=>$side);

$button3 = $main->Button(-text => "Button 3",
                         -command => \&exit_button);

$button3->pack(-side=>$side);

MainLoop();

sub exit_button {
    print "You pushed the button!\n";
    exit;
}

   
  
Related examples in the same category
1.Pack controls on a window
2.Pack left, right, both
3.Using pack to control widget placement
4.Using place method to set control location
5.Control the fill
6.Layout control: fill
7.Layout controls: Pack to the top
8.Pack Left
9.Pack Right
10.Pack Top
11.Adding radio buttom to Frame
12.Relayout(pack) the controls
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.