home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _6345004eeb22990ff5fd1a85819908ea < prev    next >
Encoding:
Text File  |  2004-04-13  |  733 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.