home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / site / lib / Tk / demos / widtrib / labframe.pl < prev    next >
Encoding:
Text File  |  2000-03-30  |  316 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.