home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / tframe.pl < prev    next >
Encoding:
Perl Script  |  2002-11-17  |  561 b   |  28 lines
  1. # A Titled Frame widget.
  2. #!/usr/local/bin/perl -w
  3. use strict;
  4. use Tk;
  5. use Tk::TFrame;
  6.  
  7. my $mw = Tk::MainWindow->new;
  8.  
  9. my $frame = $mw->TFrame(
  10.     -label => [
  11.         -text => 'Title',
  12.         -borderwidth => 2,
  13.         -relief => 'groove'
  14.     ],
  15.     -borderwidth => 2,
  16.     -relief => 'groove'
  17. );
  18.  
  19. $frame->Label(-text => 'Left')->pack(-side => 'left');
  20. $frame->Label(-text => 'Right')->pack(-side => 'right');
  21. $frame->Label(-text => 'Top')->pack(-side => 'top');
  22. $frame->Label(-text => 'Bottom')->pack(-side => 'bottom');
  23.  
  24. $frame->pack(-fill => 'both', -expand => 1);
  25.  
  26. Tk::MainLoop;
  27. __END__
  28.