#!/usr/bin/perl -w
# fill 與 expand 的差別

use Tk;
use strict;

my ($main);

$main = MainWindow->new();
$main->{top} = $main->Button;
$main->{left} = $main->Button;
$main->{right} = $main->Button;
$main->{bottom} = $main->Button;

# 以下四種 $main->{top}->pack 的方式, 請逐一試過. 每次都把主視窗放大,
# 看看 $main->{top} 的大小與 $main->{top} 所分到的 parcel 大小如何改變.
$main->{top}->pack(-side=>"top", -fill=>"both");
# $main->{top}->pack(-side=>"top", -fill=>"x");
# $main->{top}->pack(-side=>"top", -fill=>"y");
# $main->{top}->pack(-side=>"top", -fill=>"none");

$main->{left}->pack(-side=>"left", -expand=>"yes", -fill=>"both");
$main->{right}->pack(-side=>"right", -expand=>"yes", -fill=>"both");
$main->{bottom}->pack(-side=>"bottom", -expand=>"yes", -fill=>"both");
# 特別注意 $main->{bottom} 雖然 pack 的 -expand 與 -fill 選項和大家都一樣,
# 但是因為 -side 是上下, 因此 master 擴張時, $main->{bottom} 分不到額外的
# 水平空間, 只分到額外的垂直空間

MainLoop();