Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # Form, window management by Tix->form. |
2 | ||
3 | use Tk; | |
4 | ||
5 | my $Main = MainWindow->new(); | |
6 | ||
7 | my $box4 = $Main->Label(-text => 'box4', -borderwidth => 1, -relief => "raised"); | |
8 | my $box1 = $Main->Label(-text => 'box1',-borderwidth => 1, -relief => "raised"); | |
9 | my $box2 = $Main->Label(-text => 'box2',-borderwidth => 1, -relief => "raised"); | |
10 | my $box3 = $Main->Label(-text => 'box3',-borderwidth => 1, -relief => "raised"); | |
11 | ||
12 | $box1->form(-top => '%0', -left => '%0', -right => '%100'); | |
13 | $box2->form(-top => $box1, -left => '%0', -right => '%50', -bottom => | |
14 | $box4); | |
15 | $box3->form(-top => $box1, -left => $box2, -right => '%100', -bottom => | |
16 | $box4); | |
17 | $box4->form(-left => '%0', -right => '%100', -bottom => '%100'); | |
18 | ||
19 | MainLoop; | |
20 | __END__ | |
21 |