home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _0e2fdd2bfb2391787919ff599246bfe8 < prev    next >
Encoding:
Text File  |  2004-06-01  |  297 b   |  17 lines
  1. package Tk::Labelframe;
  2. use strict;
  3.  
  4. use vars qw($VERSION);
  5. $VERSION = sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
  6.  
  7. # New widget which is a kind of Frame with a label ...
  8.  
  9. use base qw(Tk::Frame);
  10.  
  11. Construct Tk::Widget 'Labelframe';
  12.  
  13. sub Tk_cmd { \&Tk::labelframe }
  14.  
  15. 1;
  16. __END__
  17.