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 / labframe.pl < prev    next >
Encoding:
Text File  |  2003-07-19  |  303 b   |  14 lines
  1. # LabFrame, frame with embedded label.
  2.  
  3. use Tk;
  4. use Tk::LabFrame;
  5. use Tk::LabEntry;
  6.  
  7. my $test = 'Test this';
  8.  
  9. my $top = MainWindow->new;
  10. my $f = $top->LabFrame(-label => "This is a label", -labelside => "acrosstop");
  11. $f->LabEntry(-label => "Testing", -textvariable => \$test)->pack;
  12. $f->pack;
  13. MainLoop;
  14.