home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _1d8cb378db889359754b9bed7a38c451 < prev    next >
Encoding:
Text File  |  2004-06-01  |  731 b   |  22 lines
  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.  
  22.